<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsMasterReferences__varFirstName rsMasterReferences__varFirstName = "zzz" If (Request.QueryString("FirstName") <> "") Then rsMasterReferences__varFirstName = Request.QueryString("FirstName") End If %> <% Dim rsMasterReferences__varMaidenName rsMasterReferences__varMaidenName = "zzz" If (Request.QueryString("FamilyName") <> "") Then rsMasterReferences__varMaidenName = Request.QueryString("FamilyName") End If %> <% Dim rsMasterReferences__varMarriedName rsMasterReferences__varMarriedName = "zzz" If (Request.QueryString("CallFamilyName") <> "") Then rsMasterReferences__varMarriedName = Request.QueryString("CallFamilyName") End If %> <% Dim rsMasterReferences__varInitial rsMasterReferences__varInitial = """" If (Left(Request.QueryString("FirstName"),1) <> "") Then rsMasterReferences__varInitial = Left(Request.QueryString("FirstName"),1) End If %> <% Dim rsMasterReferences Dim rsMasterReferences_numRows Set rsMasterReferences = Server.CreateObject("ADODB.Recordset") rsMasterReferences.ActiveConnection = MM_coCensusData_STRING rsMasterReferences.Source = "SELECT MasterIndex.*, 'B' AS Timing, Sources.SourceName FROM (FamilyNames INNER JOIN (FirstNames INNER JOIN (MasterIndex LEFT JOIN Sources ON MasterIndex.Source = Sources.Source) ON FirstNames.AltFirstName = MasterIndex.FirstName) ON FamilyNames.AltFamName = MasterIndex.FamilyName) WHERE (((FirstNames.FirstName)=('" + Replace(rsMasterReferences__varFirstName, "'", "''") + "') Or (FirstNames.FirstName)=('" + Replace(rsMasterReferences__varInitial, "'", "''") + "')) AND ((FamilyNames.FamilyName)=('" + Replace(rsMasterReferences__varMaidenName, "'", "''") + "'))) UNION SELECT MasterIndex.*, 'A' AS Timing, Sources.SourceName FROM (FamilyNames INNER JOIN (FirstNames INNER JOIN (MasterIndex LEFT JOIN Sources ON MasterIndex.Source = Sources.Source) ON FirstNames.AltFirstName = MasterIndex.FirstName) ON FamilyNames.AltFamName = MasterIndex.FamilyName) WHERE (((FirstNames.FirstName)=('" + Replace(rsMasterReferences__varFirstName, "'", "''") + "') Or (FirstNames.FirstName)=('" + Replace(rsMasterReferences__varInitial, "'", "''") + "')) AND ((FamilyNames.FamilyName)=('" + Replace(rsMasterReferences__varMarriedName, "'", "''") + "'))) ORDER BY MasterIndex.YoI, Timing DESC, MasterIndex.Married DESC;" rsMasterReferences.CursorType = 0 rsMasterReferences.CursorLocation = 2 rsMasterReferences.LockType = 1 rsMasterReferences.Open() rsMasterReferences_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsMasterReferences_numRows = rsMasterReferences_numRows + Repeat1__numRows %> <% ' count records in rsMasterReferences dim vbRecordsDisplayed ' count of records actually displayed vbRecordsDisplayed = 0 dim vbRecordsProvided ' total records provided by SQL vbRecordsProvided = 0 While (Not rsMasterReferences.EOF) vbRecordsProvided = vbRecordsProvided + 1 rsMasterReferences.MoveNext Wend rsMasterReferences.Requery %> <% dim vbDisplay ' whether to display a particular record vbDisplay = False dim vbRecYoB ' used as shorthand for YoB in record being tested dim vbRecYoI ' used as shorthand for YoI in record being tested dim vbSource ' used as shorthand for Source in record being tested dim vbYoBKnown ' indicated year of birth specified in source resord vbYoBKnown = False dim vbYoI ' used as shorthand for YoI in key record vbYoI = CInt(Request("YoI")) dim vbYoIALowReq ' inter version of request valiable for Family tree only dim vbYoIAHighReq ' inter version of request valiable for Family tree only dim vbYoIHighReq ' inter version of request valiable for Family tree only dim vbYoBLow dim vbYoBHigh dim vbYoILow dim vbYoIHigh dim vbYoIALow ' low limit for adult activity (e.g. marriage, parent) dim vbYoIAHigh ' high limit for marriage dim vbYoBReq ' YoB in request converted to numberic If Request.QueryString("YoB") = "" Then vbYoBReq = 0 Else vbYoBReq = CInt(Request.QueryString("YoB")) ' to make sure it is numeric; not alpha End If dim vbYoIReq ' YoI in request vbYoIReq = 0 If Request.QueryString("Source") = 98 or Request.QueryString("Source") = 86 or Request.QueryString("Source") = 88 Then If Request.QueryString("YoM") <> "" Then vbYoIReq = CInt(Request.QueryString("YoM")) End If vbYoI = vbYoIReq ElseIf Request.QueryString("YoI") = "" Then vbYoIReq = 0 Else vbYoIReq = CInt(Request.QueryString("YoI")) ' to make sure it is numeric; not alpha End If If vbYoBReq > 0 Then vbYoBKnown = True vbYoBLow = vbYoBReq - 5 vbYoBHigh = vbYoBReq + 5 vbYoILow = vbYoBReq - 5 vbYoIHigh = vbYoBReq + 95 vbYoIALow = vbYoBReq + 11 vbYoIAHigh = vbYoBReq + 75 Else vbYoBLow = vbYoIReq - 70 vbYoBHigh = vbYoIReq -14 vbYoILow = vbYoIReq - 70 vbYoIHigh = vbYoIReq + 73 vbYoIALow = vbYoIReq -54 vbYoIAHigh = vbYoIReq + 53 End If %> <% ' special cases of requests from family tree or Hanslope Memorials; overrides earlier settings If Request.QueryString("Source") = 98 or Request.QueryString("Source") = 86 or Request.QueryString("Source") = 88 Then If Request.QueryString("YoIALow") = "" Then ' make sure vbYoIALowReq is numeric vbYoIALowReq = 0 Else vbYoIALowReq = Cint(Request.QueryString("YoIALow")) End If If Request.QueryString("YoIAHigh") = "" Then vbYoIAHighReq = 0 Else vbYoIAHighReq = Cint(Request.QueryString("YoIAHigh")) End If If Request.QueryString("YoD") = "" Then vbYoIHighReq = 0 Else vbYoIHighReq = Cint(Request.QueryString("YoD")) End If If vbYoBKnown Then ' there is a YoB in query vbYoBLow = vbYoBReq - 3 vbYoBHigh = vbYoBReq + 3 vbYoILow = vbYoBReq - 3 Else vbYoBLow = vbYoIALowReq - 35 vbYoBHigh = vbYoIALowReq -15 vbYoILow = vbYoIALowReq - 35 End If vbYoIALow = vbYoIALowReq - 3 vbYoIAHigh = vbYoIAHighReq + 3 If vbYoIHighReq = 0 Then vbYoIHigh = vbYoIAHighReq +40 Else vbYoIHigh = vbYoIHighReq + 2 End If End If %> <%= Request.QueryString("FirstName") %> <%= Request.QueryString("FamilyName") %>/<%= Request.QueryString("CallFamilyName") %> Summary


Details from Master Index

 alt="Hanslope Home Page" name="Logo" border="0">
<% If varVillageName = "Hanslope" Then %>

<% End If %> <% ' Testing tool %> <%' Request.QueryString("YoI") = <%=Request.QueryString("YoI") %> <%'
Request.QueryString("YoB") = <%=Request.QueryString("YoB") %> <%'
Request.QueryString("YoIALow") = <%=Request.QueryString("YoIALow") %> <%'
Request.QueryString("YoIAHigh") = <%=Request.QueryString("YoIAHigh") %> <%'
Request.QueryString("YoIHigh") = <%=Request.QueryString("YoIHigh") %> <%'
vbYoBLow = <%=vbYoBLow %> <%'
vbYoBHigh = <%=vbYoBHigh %> <%'
vbYoILow = <%=vbYoILow %> <%'
vbYoI = <%=vbYoI %> <%'
vbYoIALow = <%=vbYoIALow %> <%'
vbYoIAHigh = <%=vbYoIAHigh %> <%'
vbYoIHigh = <%=vbYoIHigh %> <%'
Request("SourceID") = <%=Request("SourceID") %> <%'
vbYoIALowReq = <%=vbYoIALowReq %> <%'
vbYoIAHighReq = <%=vbYoIAHighReq %> <%'
vbYoIReq = <%=vbYoIReq %> <%' use this for trace % >A:<%=vbRecordsDisplayed+1 %> <% %> <%'
%>
The Master Index contains the following references to <% If Request("CallPage") = "MasterResults" Then ' MasterResults %> <%= Request.QueryString("FirstName") %> <%= Request("CallFamilyName") %>, ne <%= Request.QueryString("FamilyName") %>: <% Else %> <%= Request.QueryString("FirstName") %> <%= Request.QueryString("FamilyName") %>, who may be the bride of <%= Request("CallFirstName") %> <%= Request("CallFamilyName") %>:

<% End If %>
Back
<% If (vbRecordsProvided) = 0 Then ' no records selected for report; this is an error condition %>

None.

<% Else %> <% While ((Repeat1__numRows <> 0) AND (NOT rsMasterReferences.EOF)) %> <% vbDisplay = False vbRecYoB = CInt(rsMasterReferences.Fields.Item("YoB").Value) vbRecYoI = CInt(rsMasterReferences.Fields.Item("YoI").Value) vbSource = Cint(rsMasterReferences.Fields.Item("Source").Value) ' ******************************* If vbRecYoB <> 0 Then ' year of birth in record to be tested ' *** maiden name cases *** If (rsMasterReferences.Fields.Item("Timing").Value) = "B" and vbRecYoI <= vbYoI Then Select Case vbSource ' Source indicates census, marriage, etc. of record to be tested Case 3 ' Monument inscription Case 12 ' Bride Maiden name If Request.QueryString("Source") = 98 or Request.QueryString("Source") = 88 Then ' 98 = family tree; 88 = Hanslope Memorials ' make sure dates consistent If vbRecYoI = vbYoI and vbRecYoB > vbYoBLow and vbRecYoB < vbYoBHigh Then vbDisplay = True End If ' else make sure source record same as record to be checked ElseIf (rsMasterReferences.Fields.Item("SourceID").Value) = CLng(Request("SourceID")) Then vbDisplay = True End If Case 41 ' Burial Case 1 ' Census ' 1841 census ages rounded If CInt(rsMasterReferences.Fields.Item("YoI").Value) = 1841 Then If vbRecYoB > vbYoBLow - 3 and vbRecYoB < vbYoBHigh + 3 Then vbDisplay = True End If ElseIf vbRecYoB > vbYoBLow and vbRecYoB < vbYoBHigh Then vbDisplay = True End If Case Else If vbRecYoB > vbYoBLow and vbRecYoB < vbYoBHigh Then vbDisplay = True End If End Select End If ' *** Married name cases, (still within year of birth in record to be tested) *** If (rsMasterReferences.Fields.Item("Timing").Value) = "A" and vbRecYoI >= vbYoI Then Select Case vbSource ' Source indicates type of record to be tested, etc. Case 31 ' Baptism exclude; must baptise before marriage Case 1 ' Census ' 1841 census ages rounded If CInt(rsMasterReferences.Fields.Item("YoI").Value) = 1841 Then If vbRecYoB > vbYoBLow - 3 and vbRecYoB < vbYoBHigh + 3 Then vbDisplay = True End If ElseIf vbRecYoB > vbYoBLow and vbRecYoB < vbYoBHigh Then ' census other than 1941 vbDisplay = True End If Case 13 ' bride married name If Request.QueryString("Source") = 98 or Request.QueryString("Source") = 86 Then ' 98 = family tree; 86 = Hanslope Memorials ' make sure dates consistent If vbRecYoI = vbYoI and vbRecYoB > vbYoBLow and vbRecYoB < vbYoBHigh Then vbDisplay = True End If ' else make sure source record same as record to be checked ElseIf (rsMasterReferences.Fields.Item("SourceID").Value) = CLng(Request("SourceID")) Then vbDisplay = True End If Case Else If vbRecYoB > vbYoBLow and vbRecYoB < vbYoBHigh Then vbDisplay = True End If End Select End If ' ********************************************* Else ' no year of birth in record to be tested ' *** Checks for Maiden name *** If (rsMasterReferences.Fields.Item("Timing").Value) = "B" and vbRecYoI <= vbYoI Then Select Case vbSource ' Source indicates census, amrriage of record to be tested, etc. Case 3 ' Monument inscription Case 12 ' Bride Maiden name: only required if record is key record ' separate check for family tree which does not provide SourceID If Request.QueryString("Source") = 98 or Request.QueryString("Source") = 86 Then ' 98 = family tree; 86 = Hanslope Memorials If vbRecYoI >= vbYoI Then ' make sure same marriage date vbDisplay = True End If ' else make sure source record same as record to be checked ElseIf (rsMasterReferences.Fields.Item("SourceID").Value) = CLng(Request("SourceID")) Then vbDisplay = True End If Case 31 ' record to test is a Baptism If vbRecYoI>vbYoILow Then vbDisplay = True If vbYoBKnown and Not(vbRecYoI<(vbYoILow + 26)) Then ' year of birth given in source record, so YoI reasonably precise ' expect baptism before age 22 + contingency vbDisplay = False End If End If Case 32 ' parent at baptism (first name, usually father) If vbRecYoI > vbYoIALow and vbRecYoI < vbYoIAHigh Then vbDisplay = True End If Case 33 ' parent at baptism (second name, usually mother) If vbRecYoI > vbYoIALow and vbRecYoI < vbYoIAHigh Then vbDisplay = True End If Case 41 ' Burial Case Else If vbSource>10 and vbSource<35 Then ' marriage related cases; lower limit based on adult value If vbRecYoI>vbYoIALow Then vbDisplay = True End If ElseIf vbSource>60 and vbSource<64 Then ' will related cases; lower limit based on adult value plus If (vbRecYoI>vbYoIALow+8) Then vbDisplay = True End If ElseIf vbSource>71 and vbSource<76 Then ' survey, Posse Comitatus; lower limit based on adult value plus If (vbRecYoI>vbYoIALow+8) Then vbDisplay = True End If ElseIf vbRecYoI>vbYoILow Then ' all remained cases vbDisplay = True End If End Select End If ' Checks for Maiden name ' *** Checks for Married name *** If (rsMasterReferences.Fields.Item("Timing").Value) = "A" and vbRecYoI >= vbYoI and (rsMasterReferences.Fields.Item("Married").Value) <> "U" and (rsMasterReferences.Fields.Item("Married").Value) <> "S" Then ' Married name Select Case vbSource ' Source indicates census, marriage of record to be tested, etc. Case 31 ' Baptism Case 32 ' parent at baptism (first name, usually father) If vbRecYoI > vbYoIALow and vbRecYoI < vbYoIAHigh Then vbDisplay = True End If Case 33 ' parent at baptism (second name, usually mother) If vbRecYoI > vbYoIALow and vbRecYoI < vbYoIAHigh Then vbDisplay = True End If Case 13 ' Bride Married name; only required if record is key record (special case of Married=Maiden name: will catch Bride maiden name record (13) ' first accept all records for queries coming from page Registe which does not ' provide SouceID If Request.QueryString("Source") = 98 or Request.QueryString("Source") = 86 Then If vbRecYoI = vbYoI Then ' make sure same marriage date vbDisplay = True End If ElseIf (rsMasterReferences.Fields.Item("SourceID").Value) = CLng(Request("SourceID")) Then vbDisplay = True End If Case Else If vbSource>10 and vbSource<35 and vbRecYoI <% ' now display the record if all tests passed If vbDisplay Then ' record is to be displayed vbRecordsDisplayed = vbRecordsDisplayed + 1 ' count records displayed %> <% End If ' record is to be displayed %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsMasterReferences.MoveNext() Wend %>
First Name Middle Names Family Name
Sex
Married
Year of Birth
Year of Interest
 Source Notes
<%=(rsMasterReferences.Fields.Item("FirstName").Value)%>  <%=(rsMasterReferences.Fields.Item("MiddleNames").Value)%>  <%=(rsMasterReferences.Fields.Item("FamilyName").Value)%> 
<%=(rsMasterReferences.Fields.Item("Sex").Value)%> 
<%=(rsMasterReferences.Fields.Item("Married").Value)%> 
<% If (rsMasterReferences.Fields.Item("YoB").Value) =0 Then %>   <% Else %> <%=(rsMasterReferences.Fields.Item("YoB").Value)%>  <% End If ' blank for zero age %>
<%=(rsMasterReferences.Fields.Item("YoI").Value)%> 
 ><%=(rsMasterReferences.Fields.Item("SourceName").Value)%>  <%=(rsMasterReferences.Fields.Item("Notes").Value)%> 
<%=vbRecordsDisplayed %> records displayed as possibly relevant out of <%=vbRecordsProvided %> references to <%= Request("FirstName") %> <%= Request("CallFamilyName") %>, ne <%= Request.QueryString("FamilyName") %> in database.
<% End If ' rsMasterReferences contains entries for table above %>

Back

<% rsMasterReferences.Close() Set rsMasterReferences = Nothing %>