<% language="VBScript"%>
<%
fid = Request.QueryString("fid")
set mycon=Server.CreateObject("ADODB.Connection")
mycon.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\fpdb\cyberfamily.mdb"))
set rs= mycon.execute("SELECT * FROM details WHERE FID ="&fid&" ORDER BY LastName,FirstName")
%>
Search Results
|
|
Searched the
Family Directory for <%=fname%> <%=lname%>
|
|
|
|
| Last Name |
Middle Name |
First Name |
Maiden Name |
ID number |
<% i=0
while not rs.eof
i=i+1
%>
| <%=rs("LastName")%> |
<%=rs("MiddleName")%> |
" target="main"> <%=rs("FirstName")%> |
<%=rs("Maiden Name") %> |
<%=rs("ID") %> |
<% rs.movenext
wend
mycon.close
%>
|
|
| |
Total Results : <%=i%>
|
|
search again
[ HOME
| INTRODUCTION | FEEDBACK ]