
<%
    ' handle the submitted form
	Member = Request.Form("Member")

	If Member = "" Then
	    Session.Value("playground_Member") = ""
	    Response.Redirect "playgroundEmailPassword.asp?Message=3"
	End If

      'fetch the record

        Set MemberTable = CreateObject("ADODB.Recordset")
        MemberTable.Open "Select * From Members WHERE Member = '" & Member & "'", "DSN=frumembers;"

        If Not MemberTable.EOF Then
		Member = MemberTable.Fields("Member")
		FirstName = MemberTable.Fields("FirstName")
		LastName = MemberTable.Fields("LastName")
		Email = MemberTable.Fields("Email")
		Password = MemberTable.Fields("Password")

		Set JMail = Server.CreateObject("JMail.SMTPMail") 

		JMail.AddRecipientex Email, Member

		'This is my local SMTP server 
		JMail.ServerAddress = "mail.determan.net" 
		JMail.Sender = "fruplayground@determan.net" 
		JMail.Subject = "Your Moxy Fruvous Playground Password" 
		JMail.Body = "Hi," & vbNewLine
		JMail.Body = JMail.Body & vbNewLine & "As you requested, here is your member ID and password at the Fruvous Playground."
		JMail.Body = JMail.Body & vbNewLine & "Member ID: " & Member & " Your Password: " & Password & vbNewLine
		JMail.Body = JMail.Body & vbNewLine & "Have a great day!" & vbNewLine
		JMail.Body = JMail.Body & vbNewLine & "****************" & vbNewLine
		JMail.Body = JMail.Body & vbNewLine & "Fruvous Playground - Come and Play! " & vbNewLine & "http://www.determan.net/michele/fruvousplayground" & vbNewLine

		JMail.Priority = 3 
		JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
		JMail.Execute

		Response.Redirect "playgroundEmailPassword.asp?Message=3"
	Else
	    	Response.Redirect "playgroundEmailPassword.asp?Message=1"
	End If
        
   
%>