<% intPageSize = 25 intPage = Request.QueryString("page") If intPage = "" Then intPage = 1 If Request.Form("land") = "" Then strLand = Request.QueryString("country") Else strLand = Request.Form("land") End If %> <% Set RSShow = Server.CreateObject("ADODB.Recordset") If Request.QueryString("what") = "country" Then If Request.Form("land") = "falsk" Then Response.Redirect "default.asp" Else Visa = "SELECT * FROM tblFairOrg WHERE CountryID = " & strLand & " AND tblFairOrg.Deleted = False ORDER BY Name" End If ElseIf Request.QueryString("what") = "all" Or Request.QueryString("what") = "" Then Visa = "SELECT * FROM tblFairOrg WHERE tblFairOrg.Deleted = False ORDER BY Name" End If With RSShow .ActiveConnection = Connect .Source = Visa .PageSize = intPageSize .CursorType = 3 .LockType = 1 .Open End With %> <% If Request.Form("Land") = "falsk" Then Response.Redirect "default.asp" Else End If %>

<% If Request.QueryString("what") = "country" Then strCounID = RSShow("CountryID") Set RSCoun = Server.CreateObject("ADODB.Recordset") ILand = "SELECT * FROM tblCountry WHERE ID = " & strCounID & " " RSCoun.Open ILand, Connect, adOpenDynamic, adLockOptimistic %> Showing Organizers in: <% =RSCoun("SName") %>

<% RSCoun.Close ElseIf Request.QueryString("what") = "all" Or Request.QueryString("what") = "" Then %> Showing All Organizers!


<% End If %>

<% If Not RSShow.EOF Then RSShow.AbsolutePage = intPage intTotalPages = RSShow.PageCount Call PageNavigation(intPage, intTotalPages) %> <% Do Until RSShow.EOF OR intCounter >= intPageSize intCounter = intCounter + 1 If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If If Not RSShow("CountryID") = "0" Then strCID = RSShow("CountryID") Set RSCountry = Server.CreateObject("ADODB.Recordset") Land = "SELECT * FROM tblCountry WHERE ID = " & strCID & " " RSCountry.Open Land, Connect, adOpenDynamic, adLockOptimistic Else End If %> <% x = x + 1 If Not RSShow("CountryID") = "0" Then strCID = 0 RSCountry.Close Else End If RSShow.MoveNext Loop RSShow.Close Set RSShow = Nothing %>
Information
"><% =RSShow("Name") %>
Works in: <% If Not RSShow("CountryID") = "0" Then %><% =RSCountry("EName") %><% Else %>-<% End If %>

<% Call PageNavigation(intPage, intTotalPages) Else %>

No Organizers found...

<% End If %>