<% sql="select * from member where u=true" set rs=db.execute(sql)%>

Update Transaction Summary Report

<%do until rs.eof=true response.write "" rs.movenext loop %>

Find Your Mate Using The Follwing Data

ID
Name
Update Date
"&rs("ID")&"
"&rs("Name")&"
"&rs("ud")&"
I'm Seekink For
Age
From    To 
E-mail
<% sql="select * from member where id > 0" se=request.form("sex") if se <> "0" then sql=sql&" and Gender='"&se&"'" end if from =request.form("from") if from > 0 then sql=sql& " and age >="&from end if to1=request.form("to") if to1 > 0 then sql=sql & " and age <= "&to1 end if email=request.form("mail") if email <> "" then sql=sql& " and e_mail = '"&email&"'" end if set rs=db.execute(sql) if rs.eof=true then response.write "
Sorry..No One Match Your Request " else %>
<% do until rs.eof=true response.write "" rs.movenext loop end if %>
Name
Age
M/F
Country
"&rs("name") &"
"& rs("age") &"
"&rs("Gender")&"
"&rs("NAtionality") &"
I'm Seekink For
Age From
To

> form name=f1 action=form.asp>
Eenter Mail
To Edit Your Data Please Enter Your Mial Without
Example : IF Your mail

test@ayahoo.com

 You Enter

test

<% id=request.querystring("id") m=request.querystring("mail") if id>0 then sql="select * from member where id="&id else sql="select * from member where e_mail like '"&m&"%'" 'sql="select * from member" end if set rs=db.execute(sql) if rs.eof=true then response.write "not found" else session("id")= rs("id") %>
Name>
Gender>
Age>
Region>
Matrial State>
Loction">
Natonality>
Tall>
Weight>
E_MAil>
About My Self
About My Partner
<%end if%> <% set db=server.createobject("adodb.connection") str="Driver={Microsoft Access Driver (*.mdb)}"&"dbq="&server.MapPath("/db/db3.mdb") db.open str %>