<%@ 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" %> <% '************************************** '** SETTINGS '** DO NOT CHANGE ANYTHING BELOW HERE '************************************** Dim rs Session.TimeOut = 60 Set rs = conn.execute("Select * from " & tbl_prefix & "set_up", adOpenForwardOnly, adLockReadOnly) If err <> 0 Then Response.Write"" err.clear Response.End End If rs.MoveFirst Session.Contents.RemoveAll() Session("FirstName") = rs("first_name") Session("LastName") = rs("last_name") Session("UserName") = rs("user_name") Session("Password") = rs("pass_word") Session("AdminEmail") = rs("admin_email") Session("ReplytoEmail") = rs("reply_to_email") Session("TestEmail") = rs("test_email") Session("SiteName") = rs("site_name") Session("SiteUrl") = rs("site_url") Session("ScriptUrl") = rs("script_url") Session("ScriptPath") = rs("script_path") Session("Records") = rs("records") Session("Redirect") = rs("redirect") Session("MailComponent") = rs("mail_component") Session("MailServer") = rs("mail_server") Session("MailServerPort") = rs("mail_server_port") Session("SubscribeNotification") = rs("subscribe_notification") Session("Un-SubscribeNotification") = rs("unsubscribe_notification") Session("PurgeUnverified") = rs("purge_unverified") Session("Reminders") = rs("reminders") Session("OffSet") = rs("adjust") Session("Country") = rs("country") Session("TimeZone") = rs("time_zone") Session("DayLightSavings") = rs("daylight_savings") Session("FirstTimeSetup") = rs("first_time_setup") Session("LicenseID") = rs("licenseid") Session("Start") = "Now" rs.close Set rs = nothing '** 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 %>