| |
<%
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%> |
|
|
|
|
the story : the music : get the goods : stage the play : dive deeper : become us : home : contact us
|
|
