<%@LANGUAGE="VBSCRIPT"%> Architectural Printing Service | Reprographics | Blueprints Services


 
 
   

ATA Reprographics Printing, Copying, Scanning Services
<% email = Trim(CleanString(Request.Form("email"))) If Len(email) < 1 Then %>

Please Enter Your Email Address.
Your password will be emailed to this address immediately.

 

<% ELSE Set oConn = Server.CreateObject("ADODB.Connection") oConn.Open MM_ATArepro_STRING Set rsPassword = Server.CreateObject("ADODB.Recordset") lcQuery = "SELECT password FROM customer WHERE email = '" & CleanString(email) & "'" rsPassword.Open lcQuery, oConn, adOpenForwardOnly, adLockReadOnly 'if the value does not match any record in the database then tell the user If rsPassword.EOF Then Response.write "
This email address is not in our records.
" Response.Write "

" Response.Write "

Try again
" 'otherwise, a match is found Else 'grab the password from the database password = rsPassword("password") TBdy = "Hello," & vbcrlf & vbcrlf & "Your ATArepro.com password is " & password & vbcrlf & vbcrlf & vbcrlf TBdy = TBdy & "*** THIS MESSAGE HAS BEEN AUTOMATICALLY GENERATED ***" 'On Error Resume Next 'sendmail( fromWho, toWho, Subject, TBdy ) call sendmail( "do-not-reply@atarepro.com", Request.Form("email"), "ATA Reproduction Password Retrieval", TBdy ) Response.Write "
Your Password has been sent to your email address.

" rsPassword.Close oConn.Close Set rsPassword = Nothing Set Conn = Nothing End If End If %>

Contact Print Shop

1202 Main Street
Redwood City, CA 94063

TEL: (650) 363-2008
FAX: (650) 363-2031

Email: info@atarepro.com

ATA Reprographics Business Hours

Monday - Friday 9AM - 5:30PM

ATA Reprographics Social Networks



© 2011 ATA REPROGRAPHICS. All rights reserved.

<% function sendmail( fromWho, toWho, Subject, TBdy ) Dim objCDO Dim iConf Dim Flds Const cdoSendUsingPort = 2 Set objCDO = Server.CreateObject("CDO.Message") Set iConf = Server.CreateObject("CDO.Configuration") Set Flds = iConf.Fields With Flds .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "mail-fwd" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPconnectiontimeout) = 10 .Update End With Set objCDO.Configuration = iConf With objCDO .To = toWho .From = fromWho .Subject = Subject .HTMLBody = TBdy '.TextBody = TBdy End With 'Response.Write "TO: " & toWho & "
" 'Response.Write "FROM: " & fromWho & "
" 'Response.Write "SUBJECT: " & Subject & "
" 'Response.Write "BODY: " & TBdy & "
" sendmail=objCDO.Send END function %>