<%@ 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("firsttime") = "yes" Then 'nothing Else If Request.Cookies("login") = "" Then Response.Cookies("action") = "error" Response.Write("") Elseif Request.Cookies("login") = "2" Then Response.Redirect"default.asp" Elseif Request.Cookies("login") = "3" Then Response.Redirect"sendemail.asp" End If End If If Session("Start") = "" Then Response.Cookies("a") = "ended" Response.Redirect"login.asp?logoff=1" End If '** DIM VARIABLES Dim rs, sql '** ENTERING NEW INFORMAION TO SETUP TABLE THEN REDIRECTING YOU TO LOGIN PAGE TO LOGIN '** AGAIN DONE FOR SECURITY AND TO RELOAD Session SCOPES WITH CHANGES IF ANY sql = "Update " & tbl_prefix & "set_up Set " sql = sql & "first_name = '" & Trim(Request("first_name")) & "'," sql = sql & "last_name = '" & Trim(Request("last_name")) & "'," sql = sql & "user_name = '" & Trim(Request("user_name")) & "'," sql = sql & "pass_word = '" & Trim(Request("password")) & "'," sql = sql & "admin_email = '" & Trim(LCase(Request("admin_email"))) & "'," sql = sql & "reply_to_email = '" & Trim(LCase(Request("reply_to_email"))) & "'," sql = sql & "test_email = '" & Trim(LCase(Request("test_email"))) & "'," sql = sql & "site_name = '" & Trim(Request("site_name")) & "'," sql = sql & "site_url = '" & Trim(Lcase(Request("site_url"))) & "'," sql = sql & "script_url = '" & Trim(Lcase(Request("script_url"))) & "'," If DataBaseType = "mysql" Then sql = sql & "script_path = '" & Replace(Trim(Lcase(Request("script_path"))),"\","\\") & "'," Else sql = sql & "script_path = '" & Trim(Lcase(Request("script_path"))) & "'," End If sql = sql & "records = " & Request("fld_records_per_page") & "," sql = sql & "redirect = '" & Trim(Request("redirect")) & "'," sql = sql & "mail_component = '" & Request("mail_component") & "'," sql = sql & "mail_server = '" & Trim(Lcase(Request("mail_server"))) & "'," sql = sql & "mail_server_port = " & Trim(Request("mail_server_port")) & "," If Request("subscribe_notification") = "yes" Then sql = sql & "subscribe_notification = 1, " Else sql = sql & "subscribe_notification = 0, " End If If Request("unsubscribe_notification") = "yes" Then sql = sql & "unsubscribe_notification = 1, " Else sql = sql & "unsubscribe_notification = 0, " End If sql = sql & "purge_unverified = " & Request("purge_unverified") & "," sql = sql & "reminders = " & Request("reminders") & "," sql = sql & "first_time_setup = 'NO'," sql = sql & "country = '" & Request("fld_country") & "'," sql = sql & "time_zone = '" & Request("fld_time_zone") & "'," sql = sql & "adjust = '" & Getadjustment() & "'," If Request("LID") <> "" Then sql = sql & "daylight_savings = " & Request("fld_daylight_savings") & "," sql = sql & "licenseid = '" & Request("LID") & "'" Else sql = sql & "daylight_savings = " & Request("fld_daylight_savings") End If conn.execute sql, , adExecuteNoRecords If err <> 0 Then Response.Write"" err.clear Response.End End If '** SAVING USERNAME AND PASSWORD TO USER TABLE Set rs = conn.execute("SELECT * from " & tbl_prefix & "users Where pass_word = '" & Request("ID") & "'") If err <> 0 Then Response.Write"" err.clear Response.End End If If rs.EOF Then sql = "INSERT INTO " & tbl_prefix & "users " sql = sql & "(name,username,pass_word,securitylevel,main)" sql = sql & "Values" sql = sql & "('" & Trim(Request("first_name")) & " " & Request("last_name") & "'," sql = sql & "'" & Trim(Request("user_name")) & "'," sql = sql & "'" & Trim(Request("password")) & "'," sql = sql & "1," sql = sql & "1)" conn.execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If Else sql = "Update " & tbl_prefix & "users Set " sql = sql & "name = '" & Trim(Request("first_name")) & " " & Trim(Request("last_name")) & "'," sql = sql & "username = '" & Trim(Request("user_name")) & "'," sql = sql & "pass_word = '" & Trim(Request("password")) & "'," sql = sql & "securitylevel = 1," sql = sql & "main = 1" sql = sql & " Where pass_word = '" & Request("ID") & "'" conn.execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If End If rs.close Set rs = nothing Response.Cookies("firsttime") = "" Response.Cookies("a") = "s" Response.Redirect"login.asp?logoff=1" Function Getadjustment() Dim DiffADate, sMonth, sDay, sMinute, sSecond, sHour, DN, timeNow, dnc If Request("fld_daylight_savings") = 1 Then dnc = DateAdd("n", 60, Request.Cookies("gTime")) Else dnc = Request.Cookies("gTime") End If sMonth = DatePart("m", Now()) If Len(sMonth) = 1 Then sMonth = "0" & sMonth End If sDay = DatePart("d", Now()) If Len(sDay) = 1 Then sDay = "0" & sDay End If timeNow = sMonth & "/" & sDay & "/" & DatePart("yyyy",Now()) & " " & Time() DiffADate = DateDiff("n", timeNow, dnc) Getadjustment = DiffADate End Function '** 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 %>