%@LANGUAGE="VBSCRIPT"%> <% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Spd E-Letter v4 ' © 2001, 2002 PensaWorks, inc. ' For help with this program, please visit http://www.pensaworks.com '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' %> <% if request("Action") = "login" then if (request.form("UserID") <> "") then UserID = request.Form("UserID") else UserID = "" if (request.form("Password") <> "") then Password = request.form("Password") else Password = "" set rsLogin = mlConn.Execute("SELECT * FROM ML_Users WHERE Username = '" & Replace(UserID, "'", "''") & "'") if rsLogin.EOF then response.redirect "default.asp?msg=1" else if rsLogin("MyPassword") <> Password then response.redirect "default.asp?msg=2" else session("svUsername") = rsLogin("Username") mlConn.Execute ("UPDATE ML_Users SET LastLoginDate = " & cfgDate & " WHERE UserName = '" & replace(session("svUsername"), "'", "''") & "'") if request.form("cbxRemember") = "checkbox" then response.cookies("MLv31_UserID") = request.form("UserID") response.cookies("MLv31_UserID").expires = date + 90 If RememberPass = "Y" then response.cookies("MLv31_Password") = request.form("Password") response.cookies("MLv31_Password").expires = date + 90 end If end If response.redirect "default_list.asp" end If end If end if %>
|
<%=Listname%>
|
|
|
|
Login to the Mailing List Administration Panel
<% If Request("msg") = "1" Then %>
Invalid
Username. Please try again.
<% elseif Request("msg") = "2" Then %>
Invalid
Password. Please try again.
<% elseif Request("msg") = "3" Then %>
Your
Password has been emailed to you.
<% elseif Request("msg") = "4" Then %>
You have been sucessfully logged out.
<% elseif Request("msg") = "5" Then %>
There
was an error sending your login information. The following error was received:
"<%=request("err")%>" <% end if %>
|
||
|
|