<% Response.Buffer = "TRUE" usrid=Request("usrid") if Request.Form("chng_pswd")="Change Password" then uname=Request.Form("usrid") 'Response.Write session("usrid") 'Response.End pswd=Request.Form("pswd") new_pswd=Request.Form("new_pswd") Set Conn = Server.CreateObject("ADODB.Connection") Conn.open "filedsn=c:\inetpub\orangepie\dsn\sqldb.dsn","orangepie","orpie99" sql="Select * from member where UsrId='"&uname&"'" Set recset= Server.CreateObject("ADODB.Recordset") recset.Open sql,Conn,adOpenKeyset,adLockPessimistic if recset.EOF then Response.Redirect("regthnk.asp?result=register&usrid="&uname) end if if recset("Pswd")=pswd then recset("Pswd")=new_pswd recset.Update Response.Redirect("regthnk.asp?result=update&usrid="&uname) else Response.Redirect("regthnk.asp?result=password&usrid="&uname) end if End if %> Orangepie-Changepws
   
     
  Free Fun eCards Friendship Connection | Poetry Contest | Deutsche | Help | Recommend Orangepie
 
Change Password



User Name : <%Response.Write Request.QueryString("Usrid")%>
Old Password :
New Password :
Confirm Password :

>

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

Forgot your Password?

 
   


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