<!-- #INCLUDE FILE="doc.asp" -->
<!-- #INCLUDE VIRTUAL="/xlib/x_pwd.asp" -->
<!-- #INCLUDE VIRTUAL="/lib/mail.asp" -->
<%
DIM s, ErrCode, Msg
DIM r
v.GetReq "LoginID"
v.GetReqNum "SKey"
IF v("LoginID") = "" THEN	Response.Redirect "forgotPasswordForm.asp"
v.TrimEx "LoginID", " '""*%<>"

ErrCode = 0
Msg = ""

IF ErrCode = 0 THEN
	IF v("SKey") <> Session("SKey") THEN
		ErrCode = 1
		Msg = "<i>Key</i> entered is incorrect."
	END IF
END IF

IF ErrCode = 0 THEN
	OpenDatabase
	SET r = db.LockRs
	v.SetRs r.Rs
	r.OpenRead "SELECT ID, LoginID, Password, Name, Tel, Email FROM Members WHERE IsActive=1 AND LoginID='" & v("LoginID") & "'"
	IF NOT r.EOF THEN
		v.ReadRs
	ELSE
		ErrCode = 1
		Msg = "Member of (<b>" & v("LoginID") & "</b>) does not exist or invalid Login ID given."
	END IF
	r.Close
END IF

StartDoc "Forgot Password"

	'PrintTitle "Forget Password"

	IF ErrCode = 0 THEN
		v("Password") = PW_GetM(v("ID"), 1)
		v("PasswordEx") = PW_GetM(v("ID"), 2)

		s =     "Contact SSP2u.com" & vbCRLF
		s = s & "----------------------" & vbCRLF
		s = s & "Subject: Forgot Password" & vbCRLF
		s = s & "Date:      " & DS_Date(DATE) & vbCRLF
		s = s & "Time:      " & TIME & vbCRLF
		s = s & "Browser:   " & Request.ServerVariables("HTTP_USER_AGENT") & vbCRLF
		s = s & "User IP:   " & Request.ServerVariables("REMOTE_ADDR") & vbCRLF
		s = s & "From:      " & v("LoginID") & vbCRLF
		s = s & "Name:      " & v("Name") & vbCRLF & vbCRLF
		s = s & "Your login password is: " & v("Password") & vbCRLF & vbCRLF
		's = s & "Please login again at http://www.SSP2u.com/membersite.asp" & vbCRLF & vbCRLF
		s = s & "Thank you for continual support for SSP2u.com" & vbCRLF
		s = s & "SSP2u Customer Service" & vbCRLF & vbCRLF
		s = s & "This is a system generated email. Please do not reply." & vbCRLF
		s = s & "********************************************************************" & vbCRLF & "DISCLAIMER:" & vbCRLF
		s = s & "This email and any attachments transmitted with it are intended solely for the addressee(s), and may contain information that are privileged and/or confidential. If you are not the intended recipient, or responsible for delivery of this message to the addressee, please notify the sender immediately by reply email and delete all copies of the transmission. The contents of this email may represent the author/sender's personal opinions, and not necessarily those of SSP2u group. As the email may have been intercepted, corrupted, lost, destroyed, arrive late, incomplete or contain viruses, no liability is accepted as a result."

		Email_Send "SSP2u", "support@SSP2u.com", v("Email"), "", "SSP2u.com - Forgot Password", s
		'Sms_Send v("Tel"), "Login to www.SSP2u.com: your Login ID: " & v("LoginID") & ", Login password: " & v("Password") & " and Extended password: " & v("PasswordEx")

		'Print "<IMG HSPACE=4 ALIGN=RIGHT SRC='/image/i_email.gif' BORDER=0>"
		PrintHeadline "Password is Sent"

		Print "Your login Password for <b>'" & v("LoginID") & "'</b> is sent to your registered email account & tel no.<br>You can check the email / sms in a couple of minutes and back to Member site login again.<br><br>"

		Print "Please click <a href='membersite.asp'>here</a> to back to Member site.<br>"

	ELSE
		'Print "<center><br><br>"
		PrintError Msg
		Print "Please click <a href='javascript:history.back()'>here</a> to redo your password retrival."

		'Print "</center>"

	END IF

EndDoc
%>