<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("database\borivalidata.mdb")
country=request.form("t1")
%>
<%
if country<>"" then
sql="select * from member where fullname like '%" & country & "%' "
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open sql,conn
%>
Name
Village
Res-Phone
Mobile
<%
do until rs.EOF
response.write("
")
response.write("
" & rs.fields("fullname") & "
")
response.write("
" & rs.fields("native") & "
")
response.write("
" & rs.fields("resno") & "
")
response.write("
" & rs.fields("mobileno") & "
")
response.write("
")
rs.MoveNext
loop
rs.close
conn.Close
set rs=Nothing
set conn=Nothing%>