<%
email = replace(trim(request.form("email")), "'", "''")
errorFlag = ""
if email <> "" then
Set getLogin = Server.CreateObject("ADODB.Recordset")
getLogin.ActiveConnection = wallstSQLConnection
getLogin.Source = "SELECT userid, password FROM users_net WHERE Email = '"&email&"'"
getLogin.CursorType = 0
getLogin.CursorLocation = 2
getLogin.LockType = 1
getLogin.Open()
if NOT getLogin.EOF then
dbUserName = getLogin.Fields.Item("userid").Value
dbPassword = getLogin.Fields.Item("password").Value
errorMsg = "SUCCESS: Email has been sent. Please check your email in a few minutes."
errorFlag = "0"
else
errorMsg = "There is no record of that email address. If you would like to re-register click here."
errorFlag = "1"
end if
'response.write ("errorFlag: "&errorFlag&" ")
'response.write ("email: "&email&" ")
'response.write ("dbUserName: "&dbUserName&" ")
'response.write ("dbPassword: "&dbPassword&" ")
if errorFlag = "0" then
'####################### BEGIN CONFIRMATION EMAIL #############################
siteurl = "http://wallst.net"
supporturl = "mailto:support@wallst.net"
Dim ObjSendRegMail
Set ObjSendRegMail = CreateObject("CDO.Message")
'This section provides the configuration information for the remote SMTP server.
ObjSendRegMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
ObjSendRegMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="secure.emailsrvr.com"
ObjSendRegMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
ObjSendRegMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = true 'Use SSL for the connection (True or False)
ObjSendRegMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
' If your server requires outgoing authentication uncomment the lines below and use a valid email address and password.
ObjSendRegMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication
ObjSendRegMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="no.reply@wallst.net"
ObjSendRegMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="noreply$$"
ObjSendRegMail.Configuration.Fields.Update
'End remote SMTP server configuration section==
ObjSendRegMail.To = email
ObjSendRegMail.Subject = "Password / Login Request for WallSt.net"
ObjSendRegMail.From = "support@wallst.net"
'we are sending a text email.. simply switch the comments around to send an html email instead
ObjSendRegMail.HTMLBody = "Hello,
You have requested your login information for WallSt.net. Below is your login information. Please keep this email for your reference.
Username: "&dbUserName&" Password: "&dbPassword&"
This email has been automatically generated. For questions and concerns please contact support@wallst.net.
Thank You, WallSt.net www.wallst.net"
'ObjSendRegMail.TextBody = "this is the body"
On Error resume Next
ObjSendRegMail.Send
If Err.Number <> 0 then
response.Write("Email may not be validate. Record Inserted")
Error.Clear
End if
Set ObjSendRegMail = Nothing
'####################### END CONFIRMATION EMAIL #############################
end if
else
errorMsg = "Please enter your email address."
end if
%>
WallSt.net - Retrieve Password