<% If Request.Cookies("login") = "" Then Response.Cookies("action") = "error" Response.Write("") Response.End Elseif Request.Cookies("login") = "2" Then Response.Redirect"default.asp" Elseif Request.Cookies("login") = "3" Then Response.Redirect"sendemail.asp" End If 'If Session("Start") = "" Then 'Response.Cookies("a") = "ended" 'Response.Redirect"login.asp?logoff=1" 'End If '*********************************************************** '** Copyright Notice ** '** Tassietek - MailerPro ** '** Copyright 2001-2004 Tassietek All Rights Reserved. ** '*********************************************************** '** DO NOT CHANGE ANYTHING HERE '** DELETING ALL LIST TABLE IF ANY '------------------------------------------------------------------------------------------------------------------------------ Dim rs Set rs = conn.execute("Select * From " & tbl_prefix & "listnames") If err <> 0 Then Response.Write"" err.clear Response.End End If If Not rs.EOF Then Do While Not rs.EOF conn.execute("DROP TABLE " & tbl_prefix & rs("ID")) If err <> 0 Then Response.Write"" err.clear Response.End End If rs.MoveNext Loop rs.Close Set rs = nothing End If '** DELETING SETUP TABLE FROM DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "DROP TABLE IF EXISTS " & tbl_prefix & "set_up" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If '** DELETING USERS TABLE FROM DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "DROP TABLE IF EXISTS " & tbl_prefix & "users" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If '** DELETING BANNED TABLE FROM DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "DROP TABLE IF EXISTS " & tbl_prefix & "banned" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If '** DELETING LISTS TABLE FROM DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "DROP TABLE IF EXISTS " & tbl_prefix & "listnames" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If '** DELETING SAVED MESSAGES TABLE FROM DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "DROP TABLE IF EXISTS " & tbl_prefix & "saved_messages" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If '** DELETING SAVED DETAILS TABLE FROM DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "DROP TABLE IF EXISTS " & tbl_prefix & "save_details" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If '** DELETING TEMP SEND TABLE FROM DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "DROP TABLE IF EXISTS " & tbl_prefix & "temp_send" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If '** DELETING TEMP SEND TABLE FROM DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "DROP TABLE IF EXISTS " & tbl_prefix & "tracking" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If '** DELETING TEMP SEND TABLE FROM DATABASE '------------------------------------------------------------------------------------------------------------------------------ sql = "DROP TABLE IF EXISTS " & tbl_prefix & "tracking_lists" conn.Execute(sql) If err <> 0 Then Response.Write"" err.clear Response.End End If %>