<%@ Language=VBScript %> <% PageTitle = "SiteManager - Delete Part" %> <% PageID=400 %> <% Header %> <% Menu PageID %> <%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %> <%partdeleteconfirm%> <%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %> <% Footer %> <% Sub partdeleteconfirm%>

<%= FormatDateTime(Date,1) %>

<% PartID = Request.QueryString("PID") SEL="SELECT txtPart FROM Parts WHERE PartID ="&PartID Set rs=Server.CreateObject("ADODB.Recordset") OpenConnection1 rs.Open SEL,DB,1,3 txtPart=rs("txtPart") rs.Close %>

Are you sure you want to delete the following Part?

<%=txtPart%>

YES NO

<%End Sub %>