<% If Request.Form("for_pwd")="Send Mail" then e_mail=Request.Form("e_mail") Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "filedsn=c:\inetpub\orangepie\dsn\sqldb.dsn","orangepie","orpie99" sql="Select * from member where Email='"&e_mail&"'" Set rs= Server.CreateObject("ADODB.Recordset") rs.Open sql,Conn,adOpenKeyset,adLockPessimistic If rs.EOF then Response.Redirect("regthnk.asp?result=register&usrid=User,") Else body1="Dear Orangepie Member,"& VbCrLf &_ "Your User ID : "& rs("UsrId")& VbCrLf &_ "Your Password : "& rs("Pswd")& VbCrLf & VbCrLf ' body2 is taken from emailadcode.inc for inserting advt. code body3="Thank you for using Orangepie."&vbcrlf &vbcrlf &_ "Have a great day! "&vbcrlf &vbcrlf &_ "Orangpie."&vbcrlf mcont=body1&body2&body3 Set objMail=CreateObject("CDONTS.Newmail") objMail.From="Orangepie" objMail.To=rs("Name")&"<"&rs("Email")&">" objMail.Subject="Orangepie Password Support!" objMail.Body=mcont objMail.Send Set objMail=Nothing Response.Redirect("regthnk.asp?result=forgot&usrid=Member,") End if End if %> Orangepie-Rules
   
     
  Free Fun eCards Friendship Connection | Poetry Contest | Deutsche | Help | Recommend Orangepie
 
Forgot Password?

Enter Your E-Mail :

* Please enter the email address which you will use to send cards.

If you are a new User, Register now  to use this feature.

 

 
   


Emails us at webmaster@orangepie.com
E-Cards From Orangepie

Copyright © 1999 by Orangepie. All Rights Reserved. Website Created & Designed by Astrosoft
_______________________________________________________________________________________________________
User Agreement | Privacy Policy | Register Now! | Advertise With Us | Add Orangepie Link