<% 'retrieve variables from previous page LastName_Search = Trim(Request.Form("LastName_Search")) If LastName_Search = "" Then LastName_Search = Trim(Request.Querystring("LastName_Search")) End If ResultPage = Trim(Request.Form("Page")) If ResultPage = "" Then ResultPage = Trim(Request.Querystring("Page")) End If If ResultPage = "" Then ResultPage = 1 Else ResultPage = CInt(ResultPage) End If %>

<% If LastName_Search = "" Then %> Error: You must enter a name or portion of a name to search for. New Search <% Else %> <% 'test to see if there is an apostrophe in the LastName_Search string IsApostrophe = apostString(LastName_Search) 'create the SQL statement to retrieve data from the Surname table of SurnameFile If IsApostrophe > 0 Then LastName_Search1 = "'" + Left(LastName_Search,IsApostrophe - 1) + "%'" 'LastName_Search to left of apostrophe LastName_Search2 = "'%" + Right(LastName_Search,Len(LastName_Search) - IsApostrophe) + "%'" 'LastName_Search to right of apostrophe SQLQuery = "SELECT recordID,LastName,FirstName,MiddleName,BirthYear,DeathYear FROM Surname" SQLQuery = SQLQuery + " WHERE (LastName LIKE " + LastName_Search1 + " AND LastName LIKE " + LastName_Search2 + ")" SQLQuery = SQLQuery + " OR (MotherLastName LIKE " + LastName_Search1 + " AND MotherLastName LIKE " + LastName_Search2 + ")" SQLQuery = SQLQuery + " OR (FatherLastName LIKE " + LastName_Search1 + " AND FatherLastName LIKE " + LastName_Search2 + ")" SQLQuery = SQLQuery + " OR (SpouseLastName LIKE " + LastName_Search1 + " AND SpouseLastName LIKE " + LastName_Search2 + ")" SQLQuery = SQLQuery + " OR (SpouseMotherLastName LIKE " + LastName_Search1 + " AND SpouseMotherLastName LIKE " + LastName_Search2 + ")" SQLQuery = SQLQuery + " OR (SpouseFatherLastName LIKE " + LastName_Search1 + " AND SpouseFatherLastName LIKE " + LastName_Search2 + ")" SQLQuery = SQLQuery + " OR (Notes1 LIKE " + LastName_Search1 + " AND Notes1 LIKE " + LastName_Search2 + ")" SQLQuery = SQLQuery + " OR (Notes2 LIKE " + LastName_Search1 + " AND Notes2 LIKE " + LastName_Search2 + ") ORDER BY LastName, FirstName" ElseIf IsApostrophe = 0 Then SQLQuery = "SELECT recordID,LastName,FirstName,MiddleName,BirthYear,DeathYear FROM Surname" SQLQuery = SQLQuery + " WHERE LastName LIKE '" + LastName_Search + "%'" SQLQuery = SQLQuery + " OR MotherLastName LIKE '" + LastName_Search + "%'" SQLQuery = SQLQuery + " OR FatherLastName LIKE '" + LastName_Search + "%'" SQLQuery = SQLQuery + " OR SpouseLastName LIKE '" + LastName_Search + "%'" SQLQuery = SQLQuery + " OR SpouseMotherLastName LIKE '" + LastName_Search + "%'" SQLQuery = SQLQuery + " OR SpouseFatherLastName LIKE '" + LastName_Search + "%'" SQLQuery = SQLQuery + " OR Notes1 LIKE '%" + LastName_Search + "%'" SQLQuery = SQLQuery + " OR Notes2 LIKE '%" + LastName_Search + "%' ORDER BY LastName, FirstName" End If tableBGColor = "#FF8282" 'execute the SQL query RS.Open SQLQuery, DB, 3, 1 If RS.EOF Then %> Search Results You searched for <%= LastName_Search %> No Matches New Search Home

<% Response.End Else RS.MoveLast 'required to get an accurate record count RS.MoveFirst RS.AbsolutePage = ResultPage 'get the number of pages thePageCount = RS.PageCount %> <% If thePageCount > 1 Then %>

Page <%= ResultPage %> of <%= thePageCount %>
Go to:	<% If ResultPage > 1 Then %> previous page <% Else%>previous page <% End If%>	<% If thePageCount > ResultPage Then %> next page <% Else%>next page <% End If%>
	first page	last page

<% End If %> Search Results
You searched for <%= LastName_Search %>

---

<% End If For i = 1 To maxRecordsPerPage recordID = RS("recordID") If IsNull(Trim(RS("LastName"))) Then LastName = "" Else LastName = Trim(RS("LastName")) End If If IsNull(Trim(RS("FirstName"))) Then FirstName = "" Else FirstName = Trim(RS("FirstName")) End If If IsNull(Trim(RS("MiddleName"))) Then MiddleName = "" Else MiddleName = Trim(RS("MiddleName")) End If If IsNull(Trim(RS("BirthYear"))) Then BirthYear = "" Else BirthYear = Trim(RS("BirthYear")) End If If IsNull(Trim(RS("DeathYear"))) Then DeathYear = "" Else DeathYear = Trim(RS("DeathYear")) End If %> <%= LastName %>, <%= FirstName %> <%= MiddleName %> l <%If BirthYear = "" Then %> n/a <% End If %> <% = BirthYear %> – <%= DeathYear %>
<% RS.MoveNext If RS.EOF Then Exit For Next 'close all connections RS.Close Set RS = Nothing DB.Close Set DB = Nothing %>

---

<% If thePageCount > 1 Then %>

Page <%= ResultPage %> of <%= thePageCount %>
Go to:	<% If ResultPage > 1 Then %> previous page <% Else%>previous page <% End If%>	<% If thePageCount > ResultPage Then %> next page <% Else%>next page <% End If%>
	first page	last page

<% End If %> New Search

Home <% End If %>