") Response.Write ("") Response.Write ("") Response.Write ("") Response.Write ("") rsMain.MoveNext wend end if end if else Response.Write "You can edit the record by clicking on the Number in the edit column." end if %>

Search for a Person:

Enter a Full or Partial Name

You can also search by partial name.  For example: Smi  in the last name field.
<% if Request.QueryString("FN") <> "" then dim con dim rsMain dim prjDesc dim fnamelen dim lnamelen session("id")="" set con=server.CreateObject("adodb.connection") con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath ("./fpdb/lists.mdb") Response.Write ("
 "& rsMain.Fields("name") &" "& rsMain.Fields("t7") &" "& rsMain.Fields("D1") &" "& rsMain.Fields("D2") &" "& rsMain.Fields("S1") & " " &"