Datacheck Solutions :: ASP

Script Snippets
Back

Forgot Password

<%
Option Explicit
Dim sql, rsUser, name, sentok, sqlflag, password, objMail, noObj, mailbody, fromemail

'Replace the email address below with your email address
fromemail = "Picture-This-PW-Reminder@datachecknh.com"

'Grab the submitted variables (page is the page they've come from, set by the hidden variable at the login box)
name = Request.Form("name")

'Open connection
%>

<%
'Get a recordset corresponding to the submitted name and password
sql = "SELECT password, email FROM users WHERE name = '" & name & "'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conn, 3, 3

'If there was a valid recordset there, then send them back to the page they came from, with the Company cookie set
If (not rsUser.BOF) and (not rsUser.EOF) and sqlflag <> True then
 On error resume next
 set objMail = Server.CreateObject("CDONTS.NewMail")
 
 if err.number <> 0 then 
	noObj = True
 else
	mailbody = "Hello " & name & vbcrlf & vbcrlf
	mailbody = mailbody & "You requested a password reminder, your password is:" & vbcrlf & vbcrlf
	mailbody = mailbody & " " & rsUser("password") & vbcrlf & vbcrlf
	mailbody = mailbody & "----------------------------------------------------" & vbcrlf
	mailbody = mailbody & "www.datachecknh.com"
	objMail.Body = mailbody
	objMail.to = rsUser("email")
	objMail.from = fromemail
	objMail.subject = "Password Request"
	objMail.send
	set objMail = nothing 
	sentok = true
 end if
end if

'Otherwise, display an invalid entry screen
rsUser.close
set rsUser = nothing
conn.close
set conn = nothing%>
<html>

<head>
<script language="JavaScript">
<!-- hide on

function popup(popupfile,winwidth,winheight,scrollbars)
{
open(popupfile,"PopupWindow","resizable=no,height=" + winheight + ",width=" + winwidth + ",scrollbars=" + scrollbars);
}
// hide off -->
</script>
<title>SecureSave  -  A DCS HOSTED APPLICATION</title>

<img border="0" src="images/ss-small.jpg">
<%if sentok = True then%>
<blockquote>
Your password has been emailed to you, please check your email, then try 
signing in again.
<%elseif noObj = True then%>
I'm afraid this server does not support emailing via the web, please contact
<a href="mailto:ss.sales@datachecknh.com">ss.sales@datachecknh.com</a> and request your password.
<%else%>
Hmm, can't seem to find that Name in our database. Either it's been 
deactivated or you have spelled it incorrectly.
</blockquote>
<%end if%>

</body>

</html>