<%@ 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
%>
<%If Request.Form <> "" Then%>
<%End If%>
<%
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
%>