<%@ Language=VBScript %>
<% Updated = Request.QueryString("Updated") %>
<% PageTitle = "SiteManager - Delete Supply" %>
<% PageID=300 %>
<% Header %>
<% Menu PageID %>
<%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<%SupplyDeleteConfirm%>
<%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<% Footer %>
<% Sub SupplyDeleteConfirm%>
<%= FormatDateTime(Date,1) %>
<%
SupplyID = Request.QueryString("SID")
SEL="SELECT txtSupply FROM Supplies WHERE SupplyID ="&SupplyID
Set rs=Server.CreateObject("ADODB.Recordset")
OpenConnection1
rs.Open SEL,DB,1,3
txtSupply=rs("txtSupply")
rs.Close
%>
Are you sure you want to remove <%=txtSupply%> from the Supply database?
YES
NO
<%End Sub %>