<% Option Explicit%> <% Call HandleCookies() %> <% Dim objRS, objConn Dim intPage g_intCurrentTab = 2 Set objRS = Server.CreateObject("ADODB.RecordSet") Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("Faith Resources.mdb") & ";") If Request("page") <> "" Then If IsNumeric(Request("page")) Then intPage = Request("page") If intPage<1 Or intPage>4 Then intPage = 1 End If Else intPage = 1 End If Else intPage = 1 End If %> <% Call OutputStyleSheetLine() %> Venue List - FAIR South Warwickshire
FAIR South Warwickshire
<% 'Tabs table OutputLine("") Call DisplayNavigationTabs(g_intCurrentTab) Response.Write("") OutputLine("
") %>
<% Response.Write("

Order by: ") ' --------------------------------------------------------------- If intPage<>1 Then Response.Write("") Else Response.Write("") End If Response.Write("Location") If intPage<>1 Then Response.Write("") Else Response.Write("") End If Response.Write(", ") ' --------------------------------------------------------------- If intPage<>2 Then Response.Write("") Else Response.Write("") End If Response.Write("Venue") If intPage<>2 Then Response.Write("") Else Response.Write("") End If Response.Write(", ") ' --------------------------------------------------------------- If intPage<>3 Then Response.Write("") Else Response.Write("") End If Response.Write("Faith") If intPage<>3 Then Response.Write("") Else Response.Write("") End If Response.Write(" or ") ' --------------------------------------------------------------- If intPage<>4 Then Response.Write("") Else Response.Write("") End If Response.Write("Leader") If intPage<>4 Then Response.Write("") Else Response.Write("") End If Response.Write(" ") ' --------------------------------------------------------------- Select Case intPage Case 1 Call ShowPage1() Case 2 Call ShowPage2() Case 3 Call ShowPage3() Case 4 Call ShowPage4() End Select Sub ShowPage1() Dim strSQL, strOldTown strSQL = "SELECT Venues.ID, Venues.Name, Towns.Name AS Town, Address1, Address2, Postcode, Leader FROM Towns INNER JOIN Venues ON Towns.ID = Venues.TownID ORDER BY Towns.Name, Venues.Name" objRS.Open strSQL, objConn, 0, 1 strOldTown = "" Do While Not objRS.EOF If strOldTown <> objRS("Town") Then If strOldTown <> "" Then Response.Write("

") Call EndHeader() End If Response.Write("") Call BeginHeader(objRS("Town"), "header" & objRS("ID")) Response.Write("") End If Response.Write("") strOldTown = objRS("Town") objRS.MoveNext Loop objRS.Close Response.Write("
") Response.Write(GetVenueDetails(objRS)) Response.Write("
") Call EndHeader() End Sub Sub ShowPage2() Dim strSQL, strAddress, strOldLetter strSQL = "SELECT Venues.ID, Venues.Name, Towns.Name AS Town, Address1, Address2, Postcode, Leader FROM Towns INNER JOIN Venues ON Towns.ID = Venues.TownID ORDER BY Venues.Name, Towns.Name" objRS.Open strSQL, objConn, 0, 1 strOldLetter = "" Do While Not objRS.EOF If strOldLetter <> Left(objRS("Name"), 1) Then If strOldLetter <> "" Then Response.Write("") Call EndHeader() End If Call BeginHeader(Left(objRS("Name"), 1), "header" & objRS("ID")) Response.Write("") End If Response.Write("") strOldLetter = Left(objRS("Name"), 1) objRS.MoveNext Loop objRS.Close Response.Write("
") Response.Write(GetVenueDetails(objRS)) Response.Write("
") Call EndHeader() End Sub Sub ShowPage3() Dim strSQL, strAddress, strOldFaith, strOldDenomination, strHeader strSQL = "SELECT Venues.FaithID, Venues.DenominationID, Venues.ID, Venues.Name, Towns.Name AS Town, Venues.Address1, Venues.Address2, Venues.Postcode, Venues.Leader, Faiths.Name As Faith, Denominations.Name As Denomination " strSQL = strSQL & "FROM Faiths INNER JOIN ((Towns INNER JOIN Venues ON Towns.ID = Venues.TownID) INNER JOIN Denominations ON Venues.DenominationID = Denominations.ID) ON Faiths.ID = Venues.FaithID " strSQL = strSQL & "ORDER BY Faiths.Name, Denominations.Name" objRS.Open strSQL, objConn, 0, 1 strOldFaith = "" strOldDenomination = "" Do While Not objRS.EOF If strOldFaith <> objRS("Faith") Or strOldDenomination <> objRS("Denomination") Then If strOldFaith <> "" Then Response.Write("") Call EndHeader() End If strHeader = objRS("Faith") If Trim(objRS("Denomination")) <> "N/A" Then strHeader = strHeader & " - " & objRS("Denomination") End If Response.Write("") Call BeginHeader(strHeader, "header" & objRS("ID")) Response.Write("") End If Response.Write("") strOldFaith = objRS("Faith") strOldDenomination = objRS("Denomination") objRS.MoveNext Loop objRS.Close Response.Write("
") Response.Write(GetVenueDetails(objRS)) Response.Write("
") Call EndHeader() End Sub Sub ShowPage4() Dim strSQL, strAddress, strOldLetter, strTemp strSQL = "SELECT Venues.ID, Venues.Name, Towns.Name AS Town, Address1, Address2, Postcode, Leader, LeaderTitle, LeaderForename, LeaderSurname " strSQL = strSQL & "FROM Towns INNER JOIN Venues ON Towns.ID = Venues.TownID " strSQL = strSQL & "ORDER BY (LeaderSurname = '' OR LeaderSurname IS NULL) DESC, LeaderSurname, LeaderForename, Venues.Name" objRS.Open strSQL, objConn, 0, 1 strOldLetter = "" Do While Not objRS.EOF If objRS("LeaderSurname") & "" = "" Then strTemp = "-" Else strTemp = Left(objRS("LeaderSurname"), 1) End If If strOldLetter <> strTemp Then If strOldLetter <> "" Then Response.Write("") Call EndHeader() End If If strTemp <> "-" Then Call BeginHeader(strTemp, "header" & objRS("ID")) Else Call BeginHeader("(N/A)", "header" & objRS("ID")) End If Response.Write("") End If strAddress = "" If Trim(objRS("Address1")) <> "" Then strAddress = strAddress + objRS("Address1") End If If Trim(objRS("Address2")) <> "" Then If strAddress <> "" Then strAddress = strAddress + ", " strAddress = strAddress + objRS("Address2") End If If strAddress <> "" Then strAddress = strAddress + ", " strAddress = strAddress + objRS("Town") If Trim(objRS("Postcode")) <> "" Then If strAddress <> "" Then strAddress = strAddress + ", " strAddress = strAddress + objRS("Postcode") End If Response.Write("") ' Call EndHeader() strOldLetter = Left(objRS("LeaderSurname"), 1) If objRS("LeaderSurname") & "" = "" Then strOldLetter = "-" End If objRS.MoveNext Loop objRS.Close Response.Write("
") Response.Write("" & objRS("Name") & " - " & strAddress & "
") Response.Write("") If Trim(objRS("LeaderSurname")) <> "" Then Response.Write(objRS("LeaderSurname") & ", " & objRS("LeaderForename")) If Trim(objRS("LeaderTitle")) <> "" Then Response.Write(" (" & objRS("LeaderTitle") & ")") End If Else Response.Write("N/A") End If Response.Write("") Response.Write("
") Call EndHeader() End Sub objConn.Close Set objConn = Nothing Set objRS = Nothing %> <% Call OutputPageFooter() %>