% 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 %>
Zeigen Veranstalter in: <% =RSCoun("SName") %>
<% RSCoun.Close
ElseIf Request.QueryString("what") = "all" Or Request.QueryString("what") = "" Then %>
Zeigen Alle Veranstalter!
<% End If %>
Information |
---|
"><% =RSShow("Name") %> <% If Not RSShow("CountryID") = "0" Then %><% =RSCountry("TName") %><% Else %>-<% End If %> |
<% Call PageNavigation(intPage, intTotalPages) Else %>
Keine Veranstalter gefunden... |
---|