% loggedin=session("is_member") session("regst")="" email=Request.Form("email") pswd=Request.Form("pswd") cpswd=Request.Form("cpswd") act=Request.Form("act") usrid = session("usrid") Set Conn = Server.CreateObject("ADODB.Connection") Set rs1=Server.CreateObject("ADODB.Recordset") Set rs2=Server.CreateObject("ADODB.Recordset") Conn.open "filedsn=c:\inetpub\orangepie\dsn\sqldb.dsn","orangepie","orangepie" sql="Select * from member where UsrId = '"&usrid&"'" rs1.Open sql,Conn,adOpenKeyset,adLockPessimistic email=rs1("Email") qstr="id1=" & usrid & "&id2=" & email pswd=rs1("pswd") name=rs1("Name") dob=rs1("DOB") gender=rs1("Gen") city=rs1("City") country=rs1("Country") ref=rs1("Know") pp=rs1("Penpal") address=rs1("addr") pincode=rs1("pin") intr=rs1("intr") profile=rs1("profile") optinoffers=rs1("OptInOffers") s_name=split(name," ") fname=s_name(0) lname=s_name(1) b_dd=day(dob) b_mmm=Month(dob) b_yyyy=Year(dob) if pp=true then che_pp="checked" end if if optinoffers=true then optinoffers="checked" end if %>
|
|
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 |