<% errmsg="" if request("Submit")="Submit" then username=request.form("username") email=request.form("email") sql1="select * from register where username='" & request("username") & "' " set usercheck=database.execute(sql1) if usercheck.eof then errmsg="Your information does not match our records - please try again." else vMsg1 = "USER INFORMATION

" vMsg1 = vMsg1 & "This is the information needed to login to the Download site.
" vMsg1 = vMsg1 & "Please login using the following information.

" vMsg1 = vMsg1 & "User Name : " & usercheck("username") & "
" vMsg1 = vMsg1 & "Password : " & usercheck("password") & "

" vMsg1 = vMsg1 & "
" vMsg1 = vMsg1 & "Please do not reply to this automated e-mail.
" vMsg1 = vMsg1 & "It was sent from an account that is not monitored.
" vMsg1 = vMsg1 & "Please call 1-800-864-6210 for assistance
" vMsg1 = vMsg1 & "or send e-mail to sales@ar-express.net
" Set Mailer = Server.CreateObject("SMTPsvg.Mailer") Mailer.FromName = "DIABCO - HIPAA Billing Systems LLC" Mailer.FromAddress = "register@ar-express.net" Mailer.RemoteHost = "smtp.siteserver.net" Mailer.AddRecipient usercheck("firstname") & " " & usercheck("lastname"), usercheck("email") Mailer.AddBCC "Sabine Kutt", "sabine@ar-express.net" Mailer.AddBCC "Edward Kutt", "asap@msn.com" Mailer.AddBCC "Tom Kriete", "Tom.Kriete@mycomputerworx.com" Mailer.Subject = "DIABCO User Information Retrieval" Mailer.ContentType = "text/html" Mailer.BodyText = vMsg1 if Mailer.SendMail then response.Redirect("email.html") else Response.Write "Mail failure. Check mail host server name and tcp/ip connection..." Response.Write "

" & Mailer.Response end if '------------------------------------------------------------------------------------------------------- end if end if %> DIABCO
 

Password Retrieval


<%=errmsg%>



 
© 2006-2009 HEALTHCARE SOFTWARE SOLUTIONS, L.L.C. / ALL RIGHTS RESERVED