<% ' Database #1 Set conDB1 = Server.CreateObject("ADODB.Connection") ' Open the Database conDB1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\inetpub\ussdavidson.com\data\crewmembers.mdb" ' Make the SQL Query strName = "A" If Request.QueryString("Name") <> "" then strName = Request.QueryString("Name") SQL_Members = "SELECT * FROM crew WHERE txtLname LIKE '" & strName & "%'" ' Execute the SQL Query and load it into a recordset Set rsCrew = conDB1.Execute(SQL_Members) %> Welcome to the USS Davidson Reunion Website - Dedicated to the memory of the ship and the officers and men who sailed her.

Content on this page requires a newer version of Adobe Flash Player.

Get Adobe Flash player

Search our database below to find a long lost shipmate.
To send them an email, simply click on the email address, type your email and hit send!

The list is alphabetized by last name. To make your search a little easier,
click on the letters below to narrow your search.


A B C D E F G H I J K L M N O P Q R S T U V W X Y Z

<% Do while not rsCrew.EOF %> <% 'Move to the next record....dont forget this line! :) rsCrew.MoveNext ' Loop to next record Loop %>
First Name
Middle
Last Name
Rank
Years Served
State
Email
<%=rsCrew("txtFname")%> <%=rsCrew("txtMname")%> <%=rsCrew("txtLname")%> <%=rsCrew("txtRank")%> <%=rsCrew("numYearsServed")%> <%=rsCrew("txtState")%> "><%=rsCrew("txtEmail")%>
             

 

 


 
<% conDB1.Close Set conDB1=Nothing %>