<%@ LANGUAGE = "VBScript" ENABLESESSIONSTATE = True %> <%Option Explicit%> <%Response.Buffer = True%> <% '*********************************************************** '** Copyright Notice ** '** Tassietek - MailerPro ** '** Copyright 2001-2004 Tassietek All Rights Reserved. ** '*********************************************************** '** 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 rs, sql, strreadonly If Request("action") = "edit" Then sql = "Update " & tbl_prefix & "listnames Set " sql = sql & "list_name = '" & Request("list_name") & "'," sql = sql & "description = '" & Request("description") & "'," If Trim(Request("field_1")) <> "" Then sql = sql & "field_1 = '" & Request("field_1") & "'," Else sql = sql & "field_1 = ''," End If sql = sql & "type_1 = " & Request("type_1") & "," If Trim(Request("field_2")) <> "" Then sql = sql & "field_2 = '" & Request("field_2") & "'," Else sql = sql & "field_2 = ''," End If sql = sql & "type_2 = " & Request("type_2") & "," If Trim(Request("field_3")) <> "" Then sql = sql & "field_3 = '" & Request("field_3") & "'," Else sql = sql & "field_3 = ''," End If sql = sql & "type_3 = " & Request("type_3") & "," If Trim(Request("field_4")) <> "" Then sql = sql & "field_4 = '" & Request("field_4") & "'," Else sql = sql & "field_4 = ''," End If sql = sql & "type_4 = " & Request("type_4") & "," If Trim(Request("field_5")) <> "" Then sql = sql & "field_5 = '" & Request("field_5") & "'," Else sql = sql & "field_5 = ''," End If sql = sql & "type_5 = " & Request("type_5") & "," If Trim(Request("field_6")) <> "" Then sql = sql & "field_6 = '" & Request("field_6") & "'," Else sql = sql & "field_6 = ''," End If sql = sql & "type_6 = " & Request("type_6") & "," If Trim(Request("field_7")) <> "" Then sql = sql & "field_7 = '" & Request("field_7") & "'," Else sql = sql & "field_7 = ''," End If sql = sql & "type_7 = " & Request("type_7") & "," If Trim(Request("field_8")) <> "" Then sql = sql & "field_8 = '" & Request("field_8") & "'," Else sql = sql & "field_8 = ''," End If sql = sql & "type_8 = " & Request("type_8") & "," If Trim(Request("field_9")) <> "" Then sql = sql & "field_9 = '" & Request("field_9") & "'," Else sql = sql & "field_9 = ''," End If sql = sql & "type_9 = " & Request("type_9") & "," If Trim(Request("field_10")) <> "" Then sql = sql & "field_10 = '" & Request("field_10") & "'," Else sql = sql & "field_10 = ''," End If sql = sql & "type_10 = " & Request("type_10") & "," sql = sql & "field_count = '" & Request("field_count") & "'" sql = sql & " Where ID = " & Request("ID") conn.execute sql, , adExecuteNoRecords If err <> 0 Then Response.Write"" err.clear Response.End End If Response.Cookies("edit") = "List as been edited!" End If Set rs = conn.execute("Select Count(ID) as total From " & tbl_prefix & Request("ID"), adOpenForwardOnly, adLockReadOnly) If err <> 0 Then Response.Write"" err.clear Response.End End If If Cint(rs("total")) = 0 Then strreadonly = "" Else strreadonly = " READONLY" End If rs.Close Set rs = nothing %> <%=Session("SiteName")%> - Edit List 0 Then%>onUnload="closewindow();"<%End If%>>
Edit List
<% Set rs = conn.execute("Select * From " & tbl_prefix & "listnames Where ID = " & Request("ID"), adOpenForwardOnly, adLockReadOnly) If err <> 0 Then Response.Write"" err.clear Response.End End If %> <%If strreadonly <> "" Then%> <%End If%>
<%=Request("saved")%>
List Name ">  
Description    
 
Can not edit Optional Fields. Subscribers have subscribed to this list. Text Type
Optional Field_1 "<%=strreadonly%>>
Optional Field_2 "<%=strreadonly%>>
Optional Field_3 "<%=strreadonly%>>
Optional Field_4 "<%=strreadonly%>>
Optional Field_5 "<%=strreadonly%>>
Optional Field_6 "<%=strreadonly%>>
Optional Field_7 "<%=strreadonly%>>
Optional Field_8 "<%=strreadonly%>>
Optional Field_9 "<%=strreadonly%>>
Optional Field_10 "<%=strreadonly%>>
">
<% rs.Close Set rs = nothing Response.Cookies("fldshow") = Request("ID") %>
Close Window
<% '** 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 %>