<%@ Language=VBScript %>
<%Response.Buffer=True%>
<% PageTitle = "SiteManager - Delete Subscription" %>
<% PageID=903 %>
<% Header %>
<% Menu PageID %>
<%' Main body of page goes here ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<%subdelete%>
<%' End Of Main body ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ %>
<% Footer %>
<%Sub subdelete%>
<%= FormatDateTime(Date,1) %>
<%
SubID = Request.QueryString("SID")
SEL="SELECT txtEmail FROM Subscribers WHERE SubID =" & SubID
Set rs=Server.CreateObject("ADODB.Recordset")
OpenConnection1
rs.Open SEL,DB,1,3
If rs.EOF then
rs.Close
Response.Redirect("subscriptions.asp")
Else
txtEmail=rs("txtEmail")
rs.Close
End If
Set rs=Nothing
%>
Remove this subscription?
<%=txtEmail%>
YES
NO
<%End Sub %>