<%@ LANGUAGE = "VBScript" ENABLESESSIONSTATE = True %> <%Option Explicit%> <%Response.Buffer = False%> <% '*********************************************************** '** Copyright Notice ** '** Tassietek - MailerPro ** '** Copyright 2001-2004 Tassietek All Rights Reserved. ** '*********************************************************** Server.Execute"settings.asp" Dim strredirect, strtitle If Request("a") = "u" or Request("a") = "uc" Then strtitle = strSubscriptionRemoval Else strtitle = strSubscriptions End If If Request("a") = "u" Then strredirect = Session("ScriptUrl") & "/su.asp?l=" & Request("l") & "&a=u&e=" & Request("e") Elseif Request("a") = "c" Then strredirect = Session("ScriptUrl") & "/su.asp?l=" & Request("l") & "&a=c&e=" & Request("e") Elseif Request("a") = "uc" Then strredirect = Session("ScriptUrl") & "/su.asp?l=" & Request("l") & "&a=uc&e=" & Request("e") Elseif Request("a") = "s" Then strredirect = Session("ScriptUrl") & "/su.asp?l=" & Request("l") & "&a=s" End If %>
/images/tl.gif"> /images/bg.jpg"><%=strtitle%> /images/bg.jpg"> /images/tr.gif" alt="Click to Close.">
<% '** ASSURING THAT ALL DATABASE CONNECTIONS ARE CLOSED On Error Resume Next rs.close Set rs = nothing rsfun.close Set rsfun = nothing conn.close Set conn = nothing on error goto 0 %>