Shiawassee District Library: Shiawassee County Surname File <% 'retrieve variables from previous page recordID = Request.Form("recordID") If recordID = "" Then recordID = Request.Querystring("recordID") End If 'create the SQL statement to retrieve data from the Surname table of SurnameFile SQLQuery = "SELECT * FROM Surname WHERE recordID = " + recordID 'execute the SQL query Set RS = DB.Execute(SQLQuery) If Not RS.EOF Then 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("BirthDay"))) Then BirthDay = "" Else BirthDay = Trim(RS("BirthDay")) End If If IsNull(Trim(RS("BirthMonth"))) Then BirthMonth = "" Else BirthMonth = Trim(RS("BirthMonth")) End If If IsNull(Trim(RS("BirthYear"))) Then BirthYear = "" Else BirthYear = Trim(RS("BirthYear")) End If If IsNull(Trim(RS("BirthPlace"))) Then BirthPlace = "" Else BirthPlace = Trim(RS("BirthPlace")) End If If IsNull(Trim(RS("DeathDay"))) Then DeathDay = "" Else DeathDay = Trim(RS("DeathDay")) End If If IsNull(Trim(RS("DeathMonth"))) Then DeathMonth = "" Else DeathMonth = Trim(RS("DeathMonth")) End If If IsNull(Trim(RS("DeathYear"))) Then DeathYear = "" Else DeathYear = Trim(RS("DeathYear")) End If If IsNull(Trim(RS("LifeSpan"))) Then LifeSpan = "" Else LifeSpan = Trim(RS("LifeSpan")) End If If IsNull(Trim(RS("DeathPlace"))) Then DeathPlace = "" Else DeathPlace = Trim(RS("DeathPlace")) End If If IsNull(Trim(RS("BurialPlace"))) Then BurialPlace = "" Else BurialPlace = Trim(RS("BurialPlace")) End If If IsNull(Trim(RS("MotherLastName"))) Then MotherLastName = "" Else MotherLastName = Trim(RS("MotherLastName")) End If If IsNull(Trim(RS("MotherFirstName"))) Then MotherFirstName = "" Else MotherFirstName = Trim(RS("MotherFirstName")) End If If IsNull(Trim(RS("MotherMiddleName"))) Then MotherMiddleName = "" Else MotherMiddleName = Trim(RS("MotherMiddleName")) End If If IsNull(Trim(RS("FatherLastName"))) Then FatherLastName = "" Else FatherLastName = Trim(RS("FatherLastName")) End If If IsNull(Trim(RS("FatherFirstName"))) Then FatherFirstName = "" Else FatherFirstName = Trim(RS("FatherFirstName")) End If If IsNull(Trim(RS("FatherMiddleName"))) Then FatherMiddleName = "" Else FatherMiddleName = Trim(RS("FatherMiddleName")) End If If IsNull(Trim(RS("SpouseLastName"))) Then SpouseLastName = "" Else SpouseLastName = Trim(RS("SpouseLastName")) End If If IsNull(Trim(RS("SpouseFirstName"))) Then SpouseFirstName = "" Else SpouseFirstName = Trim(RS("SpouseFirstName")) End If If IsNull(Trim(RS("SpouseMiddleName"))) Then SpouseMiddleName = "" Else SpouseMiddleName = Trim(RS("SpouseMiddleName")) End If If IsNull(Trim(RS("MarriageDay"))) Then MarriageDay = "" Else MarriageDay = Trim(RS("MarriageDay")) End If If IsNull(Trim(RS("MarriageMonth"))) Then MarriageMonth = "" Else MarriageMonth = Trim(RS("MarriageMonth")) End If If IsNull(Trim(RS("MarriageYear"))) Then MarriageYear = "" Else MarriageYear = Trim(RS("MarriageYear")) End If If IsNull(Trim(RS("MarriagePlace"))) Then MarriagePlace = "" Else MarriagePlace = Trim(RS("MarriagePlace")) End If If IsNull(Trim(RS("SpouseMotherLastName"))) Then SpouseMotherLastName = "" Else SpouseMotherLastName = Trim(RS("SpouseMotherLastName")) End If If IsNull(Trim(RS("SpouseMotherFirstName"))) Then SpouseMotherFirstName = "" Else SpouseMotherFirstName = Trim(RS("SpouseMotherFirstName")) End If If IsNull(Trim(RS("SpouseMotherMiddleName"))) Then SpouseMotherMiddleName = "" Else SpouseMotherMiddleName = Trim(RS("SpouseMotherMiddleName")) End If If IsNull(Trim(RS("SpouseFatherLastName"))) Then SpouseFatherLastName = "" Else SpouseFatherLastName = Trim(RS("SpouseFatherLastName")) End If If IsNull(Trim(RS("SpouseFatherFirstName"))) Then SpouseFatherFirstName = "" Else SpouseFatherFirstName = Trim(RS("SpouseFatherFirstName")) End If If IsNull(Trim(RS("SpouseFatherMiddleName"))) Then SpouseFatherMiddleName = "" Else SpouseFatherMiddleName = Trim(RS("SpouseFatherMiddleName")) End If If IsNull(Trim(RS("Notes1"))) Then Notes1 = "" Else Notes1 = Trim(RS("Notes1")) End If If IsNull(Trim(RS("Notes2"))) Then Notes2 = "" Else Notes2 = Trim(RS("Notes2")) End If If IsNull(Trim(RS("DataSourceCode"))) Then DataSourceCode = "" Else DataSourceCode = Trim(RS("DataSourceCode")) End If %> <% If BirthMonth <> "" Or BirthDay <> "" Or BirthYear <> "" Then %> <% End If %> <% If BirthPlace <> "" Then %> <% End If %> <% If DeathMonth <> "" Or DeathDay <> "" Or DeathYear <> "" Then %> <% End If %> <% If LifeSpan <> "" Then %> <% End If %> <% If DeathPlace <> "" Then %> <% End If %> <% If BurialPlace <> "" Then %> <% End If %> <% If MotherFirstName <> "" Or MotherMiddleName <> "" Or MotherLastName <> "" Then %> <% End If %> <% If FatherFirstName <> "" Or FatherMiddleName <> "" Or FatherLastName <> "" Then %> <% End If %> <% If SpouseFirstName <> "" Or SpouseMiddleName <> "" Or SpouseLastName <> "" Then %> <% End If %> <% If MarriageMonth <> "" Or MarriageDay <> "" Or MarriageYear <> "" Then %> <% End If %> <% If MarriagePlace <> "" Then %> <% End If %> <% If SpouseMotherFirstName <> "" Or SpouseMotherMiddleName <> "" Or SpouseMotherLastName <> "" Then %> <% End If %> <% If SpouseFatherFirstName <> "" Or SpouseFatherMiddleName <> "" Or SpouseFatherLastName <> "" Then %> <% End If %> <% If Notes1 <> "" Or Notes2 <> "" Then %> <% End If %> <% If DataSourceCode <> "" Then %> <% End If %>
<% If FirstName <> "" Then Response.Write(FirstName) Response.Write(" ") End If If MiddleName <> "" Then Response.Write(MiddleName) Response.Write(" ") End If If LastName <> "" Then Response.Write(LastName) End If %>
Birth Date: <% If BirthDay <> "" Then Response.Write(BirthDay) Response.Write(" ") End If If BirthMonth <> "" Then Response.Write(BirthMonth) Response.Write(" ") End If If BirthYear <> "" Then Response.Write(BirthYear) End If %>
Birthplace: <%= BirthPlace %>
Death Date: <% If DeathDay <> "" Then Response.Write(DeathDay) Response.Write(" ") End If If DeathMonth <> "" Then Response.Write(DeathMonth) Response.Write(" ") End If If DeathYear <> "" Then Response.Write(DeathYear) End If %>
Lifespan: <%= LifeSpan %>
Death Place: <%= DeathPlace %>
Burial Place: <%= BurialPlace %>
cemetery info
Mother: <% If MotherFirstName <> "" Then Response.Write(MotherFirstName) Response.Write(" ") End If If MotherMiddleName <> "" Then Response.Write(MotherMiddleName) Response.Write(" ") End If If MotherLastName <> "" Then Response.Write(MotherLastName) %>
Father: <% If FatherFirstName <> "" Then Response.Write(FatherFirstName) Response.Write(" ") End If If FatherMiddleName <> "" Then Response.Write(FatherMiddleName) Response.Write(" ") End If If FatherLastName <> "" Then Response.Write(FatherLastName) %>
Spouse: <% If SpouseFirstName <> "" Then Response.Write(SpouseFirstName) Response.Write(" ") End If If SpouseMiddleName <> "" Then Response.Write(SpouseMiddleName) Response.Write(" ") End If If SpouseLastName <> "" Then Response.Write(SpouseLastName) %>
Marriage Date: <% If MarriageMonth <> "" And MarriageDay <> "" And MarriageYear <> "" Then Response.Write(MarriageMonth) Response.Write(" ") Response.Write(MarriageDay) Response.Write(", ") Response.Write(MarriageYear) ElseIf MarriageYear = "" Then If MarriageMonth <> "" Then Response.Write(MarriageMonth) Response.Write(" ") End If Response.Write(MarriageDay) End If %>
Marriage Place: <%= MarriagePlace %>
Spouse's Mother: <% If SpouseMotherFirstName <> "" Then Response.Write(SpouseMotherFirstName) Response.Write(" ") End If If SpouseMotherMiddleName <> "" Then Response.Write(SpouseMotherMiddleName) Response.Write(" ") End If If SpouseMotherLastName <> "" Then Response.Write(SpouseMotherLastName) %>
Spouse's Father: <% If SpouseFatherFirstName <> "" Then Response.Write(SpouseFatherFirstName) Response.Write(" ") End If If SpouseFatherMiddleName <> "" Then Response.Write(SpouseFatherMiddleName) Response.Write(" ") End If If SpouseFatherLastName <> "" Then Response.Write(SpouseFatherLastName) %>
Notes: <% If Notes1 <> "" Then Response.Write(Notes1) End If If Notes2 <> "" Then Response.Write(Notes2) End If %>
Data Source Code: <%= DataSourceCode %>
<% Else %>
Record <%= recordID %> was not found
Go Back and try again. <% End If 'RS.EOF 'close all connections RS.Close Set RS = Nothing DB.Close Set Conn = Nothing %>

Back to Search Results

New Search

Home