<%@LANGUAGE="VBSCRIPT"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Dim Access : Access = "User" Dim Nav3 : Nav3 = "8" %> <% prefName = trim(PersonalName) if (trim(request("prefName")) <> "") then prefName = trim(request("prefName")) prefEmail = trim(PersonalEmail) if (trim(request("prefEmail")) <> "") then prefEmail = trim(request("prefEmail")) prefPassword = "" if (trim(request("prefPassword")) <> "") then prefPassword = trim(request("prefPassword")) prefPassword2 = "" if (trim(request("prefPassword2")) <> "") then prefPassword2 = trim(request("prefPassword2")) prefNavigation = trim(Navigation) if (trim(request("prefNavigation")) <> "") then prefNavigation = trim(request("prefNavigation")) prefNumSub = trim(ViewNumSub) if (trim(request("prefNumSub")) <> "") then prefNumSub = trim(request("prefNumSub")) prefShowTips = trim(showTips) if (trim(request("prefShowTips")) <> "") then prefShowTips = trim(request("prefShowTips")) if request.form("Action") = "Update" then valFields = dataCheck() If valFields = 1 then '''''''''''''' response.cookies("defSubscriberSortName") = request("defSubscriberSortName") response.cookies("defSubscriberSortName").expires = dateAdd("d", 90, Now) '''''''''''''' response.cookies("defSubscriberSortOrder") = request("defSubscriberSortOrder") response.cookies("defSubscriberSortOrder").expires = dateAdd("d", 90, Now) '''''''''''''' response.cookies("defSubscriberStatus") = request("defSubscriberStatus") response.cookies("defSubscriberStatus").expires = dateAdd("d", 90, Now) '''''''''''''' response.cookies("defNewsletterSortName") = request("defNewsletterSortName") response.cookies("defNewsletterSortName").expires = dateAdd("d", 90, Now) '''''''''''''' response.cookies("defNewsletterSortOrder") = request("defNewsletterSortOrder") response.cookies("defNewsletterSortOrder").expires = dateAdd("d", 90, Now) '''''''''''''' response.cookies("defNewsletterFilter") = request("defNewsletterFilter") response.cookies("defNewsletterFilter").expires = dateAdd("d", 90, Now) '''''''''''''' response.cookies("defNewsletterMode") = request("defNewsletterMode") response.cookies("defNewsletterMode").expires = dateAdd("d", 90, Now) '''''''''''''' strSQL = "UPDATE ML_Users SET " if prefPassword <> "" then strSQL = strSQL & "MyPassword = '" & replace(prefPassword, "'", "''") & "', " end if strSQL = strSQL & "RealName = '" & replace(prefName, "'", "''") & "', " strSQL = strSQL & "RealEmail = '" & replace(prefEmail, "'", "''") & "', " strSQL = strSQL & "ViewNum = " & prefNumSub & ", " strSQL = strSQL & "Navigation = " & prefNavigation & ", " strSQL = strSQL & "showTips = " & prefShowTips & " " strSQL = strSQL & "WHERE Username = '" & replace(session("svUsername"), "'", "''") & "'" mlConn.Execute(strSQL) msg = 1 prefPassword = "" prefPassword2 = "" if Navigation <> prefNavigation then Navigation = prefNavigation end if elseif valFields = 2 then msg = 2 elseif valFields = 3 then msg = 3 elseif valFields = 4 then msg = 4 elseif valFields = 5 then msg = 5 else msg = 6 end if end If defSubscriberSortName = request.cookies("defSubscriberSortName") defSubscriberSortOrder = request.cookies("defSubscriberSortOrder") defSubscriberStatus = request.cookies("defSubscriberStatus") defNewsletterSortName = request.cookies("defNewsletterSortName") defNewsletterSortOrder = request.cookies("defNewsletterSortOrder") defNewsletterFilter = request.cookies("defNewsletterFilter") defNewsletterMode = request.cookies("defNewsletterMode") %> <%=ListName%> - Spd E-Letter Administration

Personal Preferences

<% if msg = 1 Then %>

Your Information has been updated. <% elseif msg = 2 Then %>

Error: Missing Information. <% elseif msg = 3 Then %>

Invalid Email Address. <% elseif msg = 4 Then %>

Your new password did not match the confirmation. <% elseif msg = 5 Then %>

Invalid password length. Passwords must be between 4-12 characters. <% elseif msg = 6 Then %>

Unknown Error. <% End If %>

Program Settings
User Name:
 <%=Session("svUsername")%>
Real Name:
Email Address:
* New Password:
* Confirm New Password:
Navigation Bar:
Show # Records Per Page:
Show Tips:
Access Privileges:
 <%=Broadcast%> - Broadcast Abilities
<%=Admin%> - Admin Abilities
<%=Prefs%> - Prefs Abilities
<%=Master%> - Master Account

Program Defaults
Subscriber View Sort:
Subscriber View Filter:
Newsletter View Sort:
Newsletter View Filter:
Newsletter Creation Mode:
* Note: Only enter a password if you want to change it.


<% function dataCheck() if prefName = "" or prefEmail = "" or prefNavigation = "" or prefNumSub = "" then dataCheck = 2 : exit function end if if NOT verifyEmail(prefEmail) then dataCheck = 3 : exit function end if if prefPassword <> "" then if prefPassword <> prefPassword2 then dataCheck = 4 : exit function end if if len(prefPassword) < 4 or len(prefPassword) > 12 then dataCheck = 5 : exit function end if end if dataCheck = 1 : exit function end function %>