<%
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%> |
|
|
JILL SOBULE
Jill Sobule is an American singer-songwriter best known for the controversial 1995 song "I Kissed a Girl," and for "Supermodel" from the soundtrack of the 1995 film Clueless. Her folk-inflected compositions alternate between ironic, story-driven character studies and emotive ballads, a duality reminiscent of such 1970s American songwriters as Warren Zevon, Harry Nilsson and Randy Newman.
Autobiographical elements, including Sobule's Jewish heritage and her adolescent battles with anorexia and depression, frequently occur in Sobule's writing. An appreciable percentage of her work is also dedicated to detailed accounts of both her own fictional female creations and such troubled but celebrated women as Joey Heatherton and Mary Kay Letourneau, whose stories are usually used to make ironic comments about fame and celebrity.
See Jill's website! www.jillsobule.com
Read more about her on wikipedia.com
|
|
|
