<%@ Language=VBScript %>
<% Updated = Request.QueryString("Updated") %>
<% PageTitle = "SiteManager - Delete Category" %>
<% PageID=203 %>
<% Header %>
<% Menu PageID %>
<%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<%UCategoryDelete%>
<%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<% Footer %>
<%Sub UCategoryDelete%>
<%= FormatDateTime(Date,1) %>
<%
CatID = Request.QueryString("CID")
SEL="SELECT txtCategory FROM UCategories WHERE CatID =" & CatID
Set rs=Server.CreateObject("ADODB.Recordset")
OpenConnection1
rs.Open SEL,DB,1,3
If rs.EOF then
rs.Close
Response.Redirect("UCategory_Add.asp")
Else
txtName=rs("txtCategory")
rs.Close
End If
%>
Are you sure you want to remove the category <%=txtName%> from the database?
YES
NO
<%End Sub %>