<%@ 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
%>
<%=Session("SiteName")%> - Edit Subscriber
onUnload="goto();"<%End If%>>
Edit 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("which") & " Where email = '" & Request("email") & "' And ID <> " & Request("ID"), 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("which"),"field_count") > 0 Then
For i = 1 to getfields(Request("which"),"field_count")
If getfields(Request("which"),"type_" & i) = 2 Or getfields(Request("which"),"type_" & i) = 8 Then
strrecordarray = getfields(Request("which"),"field_" & i)
strrecordarray = split(strrecordarray,",")
If Request("field_" & i) = Trim("") Then
strerrora = strerrora & "
" & strrecordarray(0) & ": Is a required field.
"
strnotfound = 1
End If
If Len(Request("field_" & i)) > 255 Then
strerrora = strerrora & "
" & strrecordarray(0) & ": Exceeds the 255 character limit.
"
strnotfound = 1
End If
Else
If Request("field_" & i) = Trim("") Then
strerrora = strerrora & "
" & getfields(Request("which"),"field_" & i) & ": Is a required field.
"
strnotfound = 1
End If
If Len(Request("field_" & i)) > 255 Then
strerrora = strerrora & "
" & getfields(Request("which"),"field_" & i) & ": Exceeds the 255 character limit.
"
strnotfound = 1
End If
End If
Next
End If
If strnotfound = 1 Then
Response.Write"
<%
'** 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
%>