<%
Dim enable_trace
if request.QueryString("trace") = "yes" then
enable_trace = true
else
enable_trace = false
end if
Sub SendEmail (xfrom,xto,xsubject,xtext)
Set myMail=CreateObject("CDO.Message")
set cdoConfig = CreateObject("CDO.Configuration")
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
cdoConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "relay-hosting.secureserver.net"
cdoConfig.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
cdoConfig.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False
cdoConfig.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 30
'cdoConfig.Fields ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
'cdoConfig.Fields ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="web@prozakandtheplatypus.com"
'cdoConfig.Fields ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="web4platy"
cdoConfig.Fields.Update
myMail.Configuration = cdoConfig
myMail.Subject=xsubject
myMail.From=xfrom
myMail.To=xto
myMail.TextBody=xtext
myMail.Send
set myMail=nothing
set cdoConfig=nothing
end sub
sub trace (msg)
if enable_trace then
SendEmail "web@prozakandtheplatypus.com","tony@bosauto.com","test script trace",msg
end if
end sub
dim LoggedInWithCookie
LoggedInWithCookie = false
trace "initial session info: id = " & Session("LoginID") & "; password = " & Session("loginPassword")
If (Session("LoginID") = "") or (Session("LoginPassword") = "") then
Session("LoginID") = Request.Cookies("PlatyCredentials")("ID")
Session("LoginPassword") = Request.Cookies("PlatyCredentials")("Password")
LoggedInWithCookie = true
trace "no password in session. After cookie check, id = " & Session("LoginID") & "; password = " & Session("LoginPassword")
end if
Dim LoginRecord__ID
LoginRecord__ID = "-1"
If (Session("LoginID") <> "") Then
LoginRecord__ID = Session("LoginID")
End If
Dim LoginRecord__PW
LoginRecord__PW = "zzz"
If (Session("LoginPassword") <> "") Then
LoginRecord__PW = Session("LoginPassword")
End If
Dim LoginRecord
Dim LoginRecord_cmd
Dim LoginRecord_numRows
Set LoginRecord_cmd = Server.CreateObject ("ADODB.Command")
LoginRecord_cmd.ActiveConnection = MM_PlatyDB_STRING
LoginRecord_cmd.CommandText = "SELECT * FROM Members WHERE ID = ? AND MemberPassword = ?"
LoginRecord_cmd.Prepared = true
LoginRecord_cmd.Parameters.Append LoginRecord_cmd.CreateParameter("param1", 5, 1, -1, LoginRecord__ID) ' adDouble
LoginRecord_cmd.Parameters.Append LoginRecord_cmd.CreateParameter("param2", 200, 1, 255, LoginRecord__PW) ' adVarChar
Set LoginRecord = LoginRecord_cmd.Execute
LoginRecord_numRows = 0
Logged__In = False
if not LoginRecord.eof then
if LoginRecord("MemberPassword") = Session("LoginPassword") then
Logged__In = True
Logged__InName = LoginRecord("MemberUsername")
end if
end if
LoginRecord.Close()
Set LoginRecord = Nothing
%>
"> " width="112" height="57" border="0" />
<% if logged__in then %>G'day, <%=Logged__InName%>!
[log out|profile]<% end if%> |
<%
dim MemberRec, ErrorMessage
set MemberRec = server.createobject("ADODB.Recordset")
ErrorMessage = ""
' This page operates in one of three modes, and there are subtle
' differences in how it functions depending on which mode it's in.
' In general, it provides for editing one's membership record,
' but in different ways depending on how we got here. Mode values
' are defined in modes.inc, which is included at the top of this
' file.
dim mode
dim ReqID, ReqPass
ReqID = request.querystring("x") & ""
ReqPass = request.querystring("y") & ""
if ReqID <> "" or ReqPass <> "" then
' If we were passed query string parameters, we are (provisionally) in either the
' new user or password reset modes. But we need to make sure the info passed to
' us is OK.
if isnumeric(ReqID) then
ReqID = CLng(ReqID)
else
ReqID = -1
end if
MemberRec.open "select * from Members where ID = " & ReqID & " and MemberPassword = '" & ReqPass & "'", MM_PlatyDB_STRING
if MemberRec.eof then
' The info passed in was invalid. Must be an old link. Produce message to that effect.
Mode = MODE_ERROR
ErrorMessage = "Sorry, but the link you used to access this page is either old or otherwise incorrect. If you manually copied it from the e-mail message, please make sure you copied it accurately. If you are unable to determine the problem, you may wish to try again."
else
' The record exists. Make sure we are not logged in already. We can't do this while logged in;
' it's too confusing.
if Logged__In then
Mode = MODE_ERROR
ErrorMessage = "You cannot access the new registration / password reset page while logged in as another user. Please log out first; the page you requested will then automatically proceed."
else
if MemberRec("Confirmed") then
Mode = MODE_PW
else
Mode = MODE_NEW
end if
end if
end if
else
' We're in normal edit profile mode. We'd better be logged in.
if Logged__In then
MemberRec.open "select * from Members where MemberUsername = '" & Logged__InName & "'", MM_PlatyDB_STRING
if MemberRec.eof then
Mode = MODE_ERROR
ErrorMessage = "Sorry, there was an internal system error. Please try logging out and logging in again."
else
Mode = MODE_EDIT
ErrorMessage = request.querystring("e")
if request.querystring("notify") = "yes" then
' Code must be added here to notify about password change confirmation.
end if
end if
else
Mode = MODE_ERROR
ErrorMessage = "You have to be logged in to edit your profile. Please log in to continue."
end if
end if
%>
|
|
|
|
<% if mode = MODE_EDIT or mode = MODE_PW then %>
<% elseif mode = MODE_NEW then %>
<% else %>
<% end if %>
<% if ErrorMessage <> "" then %><%=ErrorMessage%> <% end if %>
<% if mode = MODE_NEW then %>Thanks for signing up to be part of Team Platy! Your membership is free, and you can take part in discussions and receive the latest platy news. To complete the sign-up process, just select a username for yourself and fill in the other information below. Then click on Platy to confirm your registration.
<% elseif mode = MODE_EDIT then %>Hey, <%=MemberRec("FirstName")%>, thanks for being a part of Team Platy. Here's the information we have on you. If you want to change anything, just update the information in the form below and click on Platy to confirm your changes.
<% elseif mode = MODE_PW then %>Hi, <%=MemberRec("FirstName")%>. Per your request, your password is being reset. Please select a new password by typing it below (twice). And, while you're here, you can also change anything else from your profile that you like. Just enter your new password and anything else you like, and click on Platy to confirm.
<% end if %>
<% if mode <> MODE_ERROR then %>
<% end if %>
|
|
