<%@ LANGUAGE = "VBScript" ENABLESESSIONSTATE = True %> <%Option Explicit%> <%Response.Buffer = True%> <% '*********************************************************** '** Copyright Notice ** '** Tassietek - MailerPro ** '** Copyright 2001-2004 Tassietek All Rights Reserved. ** '*********************************************************** '** PREVENT PAGE FROM BEING CACHED Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" '** CHECKING TO SEE IF LOGGED IN IF NOT TAKE YOU TO THE LOGIN PAGE If Request.Cookies("login") = "" Then Response.Cookies("action") = "error" Response.Write("") Response.End Elseif Request.Cookies("login") = "3" Then Response.Write("") End If If Session("Start") = "" Then Response.Cookies("a") = "ended" Response.Write"" End If %> <% Dim strarray, strtbc, strtw, strtbgc If Request("fld_table_border_color") = "" Then strtbc = "000000" Else strtbc = Request("fld_table_border_color") End If If Request("fld_table_width") = "" Then strtw = "200" Else strtw = Request("fld_table_width") End If If Request("fld_table_background_color") = "" Then strtbgc = "FFFFFF" Else strtbgc = Request("fld_table_background_color") End If %>
/su.asp" onSubmit="return subscribe_form('subscribe');" target="subscription">
<%If Request("fld_header") = "" Then%>header here<%Else%><%=Request("fld_header")%><%End If%>
<%If Request("fld_description") = "" Then%>description here<%Else%><%=Request("fld_description")%><%End If%>
Email *
Select List
SubscribeRemove
<% If err <> 0 Then Response.Write"" err.clear Response.End End If '** 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 %>