<%@ Language=VBScript %>
<%Updated = Request.QueryString("Updated")%>
<%PageTitle = "SiteManager - Delete Specification?"%>
<%PageID=256%>
<% Header %>
<% Menu PageID %>
<%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<%USpecDeleteConfirm%>
<%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^%>
<% Footer %>
<% Sub USpecDeleteConfirm
SpecID = Request.QueryString("SID")
ProdID = Request.QueryString("PID")
SEL="SELECT txtSpecification FROM UP_Specs WHERE SpecID =" & SpecID
Set rs=Server.CreateObject("ADODB.Recordset")
OpenConnection1
rs.Open SEL,DB,1,3
txtSpecification=TRIM(rs("txtSpecification"))
rs.Close
%>
<%= FormatDateTime(Date,1) %>
<%=DisPrepText(txtSpecification)%>
Are you sure you want to delete this Product Specification?
YES
NO
<%End Sub %>