<% ' *** Logout the current user. MM_Logout = CStr(Request.ServerVariables("URL")) & "?MM_Logoutnow=1" If (CStr(Request("MM_Logoutnow")) = "1") Then Session.Contents.Remove("MM_Username") Session.Contents.Remove("MM_UserAuthorization") MM_logoutRedirectPage = "index.php" ' redirect with URL parameters (remove the "MM_Logoutnow" query param). if (MM_logoutRedirectPage = "") Then MM_logoutRedirectPage = CStr(Request.ServerVariables("URL")) If (InStr(1, UC_redirectPage, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_newQS = "?" For Each Item In Request.QueryString If (Item <> "MM_Logoutnow") Then If (Len(MM_newQS) > 1) Then MM_newQS = MM_newQS & "&" MM_newQS = MM_newQS & Item & "=" & Server.URLencode(Request.QueryString(Item)) End If Next if (Len(MM_newQS) > 1) Then MM_logoutRedirectPage = MM_logoutRedirectPage & MM_newQS End If Response.Redirect(MM_logoutRedirectPage) End If %> <% Dim Recordset2__Cou Recordset2__Cou = "England" If (Request.Querystring("Country") <> "") Then Recordset2__Cou = Request.Querystring("Country") End If %> <% Dim Recordset2 Dim Recordset2_numRows Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.ActiveConnection = MM_genealogy_STRING Recordset2.Source = "SELECT County, COUNT(*) AS amount FROM countycontent WHERE Country = '" + Replace(Recordset2__Cou, "'", "''") + "' and County <> '' GROUP BY County ORDER BY County ASC" Recordset2.CursorType = 0 Recordset2.CursorLocation = 2 Recordset2.LockType = 1 Recordset2.Open() Recordset2_numRows = 0 %> English, Welsh, Scottish, and Irish Counties at UK Genealogy Interests Directory
Looking for work
Visit
www.localukjobs.com

UK Genealogy Interests Directory

Home > > Counties > County Record Offices

Interests | County Record Offices | Websites
If you click on the word ALL it will not give you all the results, but results where the person is interested in ALL counties.

County Record Offices
(<%=(Recordset2.Fields.Item("amount").Value)%>) |

Log out