<%@LANGUAGE="VBSCRIPT"%>
<%
'===============================================
' Personals System 2002
' ©2002 vSpin.net. www.vspin.net
'===============================================
' All rights reserved.
' Use of this code is covered by the terms and
' conditions in the license agreement. No
' unauthorized duplication or distribution is
' permitted. vSpin.net copyright notices must
' remain in the ASP sections of the code.
'===============================================
%>
<%
dim xxxxm, rsheadUpdatee, rsheadUpdatee_numRows
Dim field1, rsaccess, rsaccess_numRows, uemail, ufirst, ulast, uuser, upassword, email, body
if NOT request("userid") = "" then
field1 = request("userid")
set rsaccess = Server.CreateObject("ADODB.Recordset")
rsaccess.ActiveConnection = MM_conn_STRING
rsaccess.Source = "SELECT p_email, p_first, p_last, p_user, p_password FROM p_users WHERE p_user = '" + Replace(field1, "'", "''") + "'"
rsaccess.CursorType = 0
rsaccess.CursorLocation = 2
rsaccess.LockType = 3
rsaccess.Open()
rsaccess_numRows = 0
If rsaccess.EOF And rsaccess.BOF Then
rsaccess.close
MM_conn_STRING.close
set rsaccess = nothing
set MM_conn_STRING = nothing
response.redirect("forgot.asp?message=18&useri=" & field1)
elseIf NOT rsaccess.EOF And NOT rsaccess.BOF Then
uemail = rsaccess("p_email")
ufirst = rsaccess("p_first")
ulast = rsaccess("p_last")
uuser = rsaccess("p_user")
upassword = rsaccess("p_password")
body = "Hello " & ufirst & (" ") & ulast & vbCrLf & vbCrLf
body = body & "Below is your account information." & vbCrLf & vbCrLf
body = body & "Your username is: " & uuser & vbCrLf
body = body & "Your password is: " & upassword & vbCrLf
'*********************************************8
Dim objMail
Dim objConfig
Set objMail = Server.CreateObject("CDO.Message")
Set objConfig = Server.CreateObject("CDO.Configuration")
'Configuration
objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
objConfig.Fields(cdoSMTPServer) = "smtp.1and1.com"
objConfig.Fields(cdoSMTPServerPort) = 25
objConfig.Fields(cdoSMTPAuthenticate) = cdoBasic
objConfig.Fields(cdoSendUsername) = "m37083403-1"
objConfig.Fields(cdoSendPassword) = "gumby911"
'Updated Configuration
objConfig.Fields.Update
Set objMail.Configuration = objConfig
objMail.From= webemail
objMail.To= uemail
'objMail.CC="webmaster@saultevents.com"
objMail.Subject="Your Account Information!"
objMail.TextBody = body
objMail.Send
Set objMail=Nothing
Set objConfig=Nothing
'************************************************8
rsaccess.close
MM_conn_STRING.close
set rsaccess = nothing
set MM_conn_STRING = nothing
response.redirect("default.asp?message=19")
end if
end if
%>
|
Forgot Password
|
 |
|
