<%@ 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 '** VARIABLES Dim strerror Dim stri Dim strrecordarray Dim strcount Dim strx Dim strnotfound Dim rs Dim sql Dim strvalidate Dim i Dim strerrora Dim x Dim strfieldcount %> - Add Subscriber Record 0 Then%>onUnload="closewindow();"<%End If%>>
Add Subscriber
<% If Request("edit") = "yes" Then strvalidate = RegExpTest(Trim(Lcase(Request("email")))) If Not strvalidate = True Then strerrora = strerrora & "

   Email: Either email blank or incorrect syntax.

" strnotfound = 1 End If Set rs = conn.execute("Select email From " & tbl_prefix & Request("ID") & " Where email = '" & Request("email") & "'", adOpenForwardOnly, adLockReadOnly) If err <> 0 Then Response.Write"" err.clear Response.End End If If Not rs.EOF then strerrora = strerrora & "

   Email: " & Request("email") & " already recorded in List." strnotfound = 1 End If rs.Close Set rs = nothing If Len(Request("email")) > 255 Then strerrora = strerrora & "

   Email: Exceeds the 255 character limit.

" strnotfound = 1 End If If Trim(Request("edate")) = "" Then strerrora = strerrora & "

   Subscribe Date: Can't be empty.

" strnotfound = 1 End If If Trim(Request("fromip")) = "" Then strerrora = strerrora & "

   From IP: Can't be empty.

" strnotfound = 1 End If If getfields(Request("ID"),"field_count") > 0 Then For stri = 1 to getfields(Request("ID"),"field_count") If getfields(Request("ID"),"type_" & stri) = 2 Or getfields(Request("ID"),"type_" & stri) = 8 Then strrecordarray = getfields(Request("ID"),"field_" & stri) strrecordarray = split(strrecordarray,",") If Request("field_" & stri) = Trim("") Then strerrora = strerrora & "

   " & strrecordarray(0) & ": Is a required field.

" strnotfound = 1 End If If Len(Request("field_" & stri)) > 255 Then strerrora = strerrora & "

   " & strrecordarray(0) & ": Exceeds the 255 character limit.

" strnotfound = 1 End If Else If Request("field_" & stri) = Trim("") Then strerrora = strerrora & "

   " & getfields(Request("ID"),"field_" & stri) & ": Is a required field.

" strnotfound = 1 End If If Len(Request("field_" & stri)) > 255 Then strerrora = strerrora & "

   " & getfields(Request("ID"),"field_" & stri) & ": Exceeds the 255 character limit.

" strnotfound = 1 End If End If Next End If If strnotfound = 1 Then Response.Write"

  Status Error in Form

" Response.Write strerrora Response.Write"

Click here to go back

" Response.End End If If Not strnotfound = 1 Then strfieldcount = getfields(Request("ID"),"field_count") sql = "Insert Into " & tbl_prefix & Request("ID") sql = sql & "(email,field_1,field_2,field_3,field_4,field_5,field_6,field_7,field_8,field_9,field_10,edate,fromip,verified,reminder_sent,admin_entry) " sql = sql & "Values(" sql = sql & "'" & Trim(Lcase(Request("email"))) & "'," If strfieldcount >= 1 Then sql = sql & FormatDatabaseString(Trim(Request("field_1")), Len(Trim(Request("field_1")))) & "," Else sql = sql & "''," End If If strfieldcount >= 2 Then sql = sql & FormatDatabaseString(Trim(Request("field_2")), Len(Trim(Request("field_2")))) & "," Else sql = sql & "''," End If If strfieldcount >= 3 Then sql = sql & FormatDatabaseString(Trim(Request("field_3")), Len(Trim(Request("field_3")))) & "," Else sql = sql & "''," End If If strfieldcount >= 4 Then sql = sql & FormatDatabaseString(Trim(Request("field_4")), Len(Trim(Request("field_4")))) & "," Else sql = sql & "''," End If If strfieldcount >= 5 Then sql = sql & FormatDatabaseString(Trim(Request("field_5")), Len(Trim(Request("field_5")))) & "," Else sql = sql & "''," End If If strfieldcount >= 6 Then sql = sql & FormatDatabaseString(Trim(Request("field_6")), Len(Trim(Request("field_6")))) & "," Else sql = sql & "''," End If If strfieldcount >= 7 Then sql = sql & FormatDatabaseString(Trim(Request("field_7")), Len(Trim(Request("field_7")))) & "," Else sql = sql & "''," End If If strfieldcount >= 8 Then sql = sql & FormatDatabaseString(Trim(Request("field_8")), Len(Trim(Request("field_8")))) & "," Else sql = sql & "''," End If If strfieldcount >= 9 Then sql = sql & FormatDatabaseString(Trim(Request("field_9")), Len(Trim(Request("field_9")))) & "," Else sql = sql & "''," End If If strfieldcount >= 10 Then sql = sql & FormatDatabaseString(Trim(Request("field_10")), Len(Trim(Request("field_10")))) & "," Else sql = sql & "''," End If sql = sql & FormatDatabaseDate(Request("edate")) & "," sql = sql & "'" & Request("fromip") & "'," sql = sql & "1," sql = sql & "0," sql = sql & "1)" conn.execute sql, ,adExecuteNoRecords If err <> 0 Then Response.Write"" err.clear Response.End End If strerror = "Saved" End If End If If Request("edit") = "yes" Then Set rs = conn.execute("Select * From " & tbl_prefix & Request("ID") & " Where email = '" & Request("email") & "'", adOpenForwardOnly, adLockReadOnly) End If %>
<% If getfields(Request("ID"),"field_count") > 0 Then For stri = 1 to getfields(Request("ID"),"field_count") Select Case getfields(Request("ID"),"type_" & stri) Case "1" %> <% Case "2" strrecordarray = getfields(Request("ID"),"field_" & stri) strrecordarray = split(strrecordarray,",") strcount = Ubound(strrecordarray) %> <%Case "3"%> <%Case "4"%> <%Case "5"%> <%Case "6"%> <%Case "7"%> <% Case "8" strrecordarray = getfields(Request("ID"),"field_" & stri) strrecordarray = split(strrecordarray,",") strcount = Ubound(strrecordarray) %> <% End Select Next End If %>
<%=strerror%>
List Name <%=getlistname(Request("ID"))%>
Email " style="width: 250" size="20">
Subscribe Date " style="width: 250" size="20">
From IP " style="width: 250" size="20">
<%=getfields(Request("ID"),"field_" & stri)%> " style="width: 250" size="20">
<%=strrecordarray(0)%>
<%=getfields(Request("ID"),"field_" & stri)%>
<%=getfields(Request("ID"),"field_" & stri)%>
<%=getfields(Request("ID"),"field_" & stri)%>
<%=getfields(Request("ID"),"field_" & stri)%>
<%=getfields(Request("ID"),"field_" & stri)%>
<%=strrecordarray(0)%> <% For x = 1 To strcount %> > <%=strrecordarray(x)%>
<% Next %>
">
Window Close
<% '** 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 %>