<%@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
Dim objCDO, objConfig
set objCDO = createobject("cdo.message")
set objConfig = createobject("cdo.configuration")
' Setting the SMTP Server
Set Flds = objConfig.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.abac.com"
Flds.update
Set objCDO.Configuration = objConfig
objCDO.To = uemail
objCDO.From = webemail
objCDO.Subject = "Your Account Information!"
objCDO.TextBody = body
objCDO.fields.update
objCDO.Send
set objCDO = nothing
set objConfig = nothing
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
|
 |
|
