<% Set RSConcert = Server.CreateObject("ADODB.Recordset") If Request.QueryString("what") = "checkdate" Then Concert = "SELECT tblConcert.*, tblCountry.SName AS CoName FROM tblConcert INNER JOIN tblCountry ON tblConcert.CountryID = tblCountry.ID WHERE tblConcert.ConDate = #" & Request.QueryString("info") & "# AND tblConcert.Deleted = False AND tblConcert.Verified = True ORDER BY tblCountry.SName, tblConcert.Artist" ElseIf Request.QueryString("what") = "span" Then If Not Request.Form("from") = "ÅÅÅÅ-MM-DD" OR Request.Form("from") = "" Then If Not Request.Form("to") = "ÅÅÅÅ-MM-DD" OR Request.Form("to") = "" Then If Not Request.Form("freetext") = "" Then If Not Request.Form("country") = "" Then Concert = "SELECT tblConcert.*, tblCountry.SName AS CoName FROM tblConcert INNER JOIN tblCountry ON tblConcert.CountryID = tblCountry.ID WHERE tblConcert.ConDate >= #" & Request.Form("from") & "# AND tblConcert.ConDate <= #" & Request.Form("to") & "# AND (tblConcert.Artist LIKE '%%" & Replace(Request.Form("freetext"), "'", "''") & "%%' OR tblConcert.Info LIKE '%%" & Replace(Request.Form("freetext"), "'", "''") & "%%') AND tblConcert.CountryID = " & Request.Form("country") & " AND tblConcert.Deleted = False AND tblConcert.Verified = True ORDER BY tblCountry.SName, tblConcert.Artist" Else Concert = "SELECT tblConcert.*, tblCountry.SName AS CoName FROM tblConcert INNER JOIN tblCountry ON tblConcert.CountryID = tblCountry.ID WHERE tblConcert.ConDate >= #" & Request.Form("from") & "# AND tblConcert.ConDate <= #" & Request.Form("to") & "# AND (tblConcert.Artist LIKE '%%" & Replace(Request.Form("freetext"), "'", "''") & "%%' OR tblConcert.Info LIKE '%%" & Replace(Request.Form("freetext"), "'", "''") & "%%') AND tblConcert.Deleted = False AND tblConcert.Verified = True ORDER BY tblCountry.SName, tblConcert.Artist" End If Else If Not Request.Form("country") = "" Then Concert = "SELECT tblConcert.*, tblCountry.SName AS CoName FROM tblConcert INNER JOIN tblCountry ON tblConcert.CountryID = tblCountry.ID WHERE tblConcert.ConDate >= #" & Request.Form("from") & "# AND tblConcert.ConDate <= #" & Request.Form("to") & "# AND tblConcert.CountryID = " & Request.Form("country") & " AND tblConcert.Deleted = False AND tblConcert.Verified = True ORDER BY tblCountry.SName, tblConcert.Artist" Else Concert = "SELECT tblConcert.*, tblCountry.SName AS CoName FROM tblConcert INNER JOIN tblCountry ON tblConcert.CountryID = tblCountry.ID WHERE tblConcert.ConDate >= #" & Request.Form("from") & "# AND tblConcert.ConDate <= #" & Request.Form("to") & "# AND tblConcert.Deleted = False AND tblConcert.Verified = True ORDER BY tblCountry.SName, tblConcert.Artist" End If End If Else If Not Request.Form("freetext") = "" Then If Not Request.Form("country") = "" Then Concert = "SELECT tblConcert.*, tblCountry.SName AS CoName FROM tblConcert INNER JOIN tblCountry ON tblConcert.CountryID = tblCountry.ID WHERE tblConcert.ConDate >= #" & Request.Form("from") & "# AND (tblConcert.Artist LIKE '%%" & Replace(Request.Form("freetext"), "'", "''") & "%%' OR tblConcert.Info LIKE '%%" & Replace(Request.Form("freetext"), "'", "''") & "%%') AND tblConcert.CountryID = " & Request.Form("country") & " AND tblConcert.Deleted = False AND tblConcert.Verified = True ORDER BY tblCountry.SName, tblConcert.Artist" Else Concert = "SELECT tblConcert.*, tblCountry.SName AS CoName FROM tblConcert INNER JOIN tblCountry ON tblConcert.CountryID = tblCountry.ID WHERE tblConcert.ConDate >= #" & Request.Form("from") & "# AND (tblConcert.Artist LIKE '%%" & Replace(Request.Form("freetext"), "'", "''") & "%%' OR tblConcert.Info LIKE '%%" & Replace(Request.Form("freetext"), "'", "''") & "%%') AND tblConcert.Deleted = False AND tblConcert.Verified = True ORDER BY tblCountry.SName, tblConcert.Artist" End If Else If Not Request.Form("country") = "" Then Concert = "SELECT tblConcert.*, tblCountry.SName AS CoName FROM tblConcert INNER JOIN tblCountry ON tblConcert.CountryID = tblCountry.ID WHERE tblConcert.ConDate >= #" & Request.Form("from") & "# AND tblConcert.CountryID = " & Request.Form("country") & " AND tblConcert.Deleted = False AND tblConcert.Verified = True ORDER BY tblCountry.SName, tblConcert.Artist" Else Concert = "SELECT tblConcert.*, tblCountry.SName AS CoName FROM tblConcert INNER JOIN tblCountry ON tblConcert.CountryID = tblCountry.ID WHERE tblConcert.ConDate >= #" & Request.Form("from") & "# AND tblConcert.Deleted = False AND tblConcert.Verified = True ORDER BY tblCountry.SName, tblConcert.Artist" End If End If End If Else If Not Request.Form("to") = "ÅÅÅÅ-MM-DD" OR Request.Form("to") = "" Then If Not Request.Form("freetext") = "" Then If Not Request.Form("country") = "" Then Concert = "SELECT tblConcert.*, tblCountry.SName AS CoName FROM tblConcert INNER JOIN tblCountry ON tblConcert.CountryID = tblCountry.ID WHERE tblConcert.ConDate <= #" & Request.Form("to") & "# AND (tblConcert.Artist LIKE '%%" & Replace(Request.Form("freetext"), "'", "''") & "%%' OR tblConcert.Info LIKE '%%" & Replace(Request.Form("freetext"), "'", "''") & "%%') AND tblConcert.CountryID = " & Request.Form("country") & " AND tblConcert.Deleted = False AND tblConcert.Verified = True ORDER BY tblCountry.SName, tblConcert.Artist" Else Concert = "SELECT tblConcert.*, tblCountry.SName AS CoName FROM tblConcert INNER JOIN tblCountry ON tblConcert.CountryID = tblCountry.ID WHERE tblConcert.ConDate <= #" & Request.Form("to") & "# AND (tblConcert.Artist LIKE '%%" & Replace(Request.Form("freetext"), "'", "''") & "%%' OR tblConcert.Info LIKE '%%" & Replace(Request.Form("freetext"), "'", "''") & "%%') AND tblConcert.Deleted = False AND tblConcert.Verified = True ORDER BY tblCountry.SName, tblConcert.Artist" End If Else If Not Request.Form("country") = "" Then Concert = "SELECT tblConcert.*, tblCountry.SName AS CoName FROM tblConcert INNER JOIN tblCountry ON tblConcert.CountryID = tblCountry.ID WHERE tblConcert.ConDate <= #" & Request.Form("to") & "# AND tblConcert.CountryID = " & Request.Form("country") & " AND tblConcert.Deleted = False AND tblConcert.Verified = True ORDER BY tblCountry.SName, tblConcert.Artist" Else Concert = "SELECT tblConcert.*, tblCountry.SName AS CoName FROM tblConcert INNER JOIN tblCountry ON tblConcert.CountryID = tblCountry.ID WHERE tblConcert.ConDate <= #" & Request.Form("to") & "# AND tblConcert.Deleted = False AND tblConcert.Verified = True ORDER BY tblCountry.SName, tblConcert.Artist" End If End If Else If Not Request.Form("freetext") = "" Then If Not Request.Form("country") = "" Then Concert = "SELECT tblConcert.*, tblCountry.SName AS CoName FROM tblConcert INNER JOIN tblCountry ON tblConcert.CountryID = tblCountry.ID WHERE (tblConcert.Artist LIKE '%%" & Replace(Request.Form("freetext"), "'", "''") & "%%' OR tblConcert.Info LIKE '%%" & Replace(Request.Form("freetext"), "'", "''") & "%%') AND tblConcert.CountryID = " & Request.Form("country") & " AND tblConcert.Deleted = False AND tblConcert.Verified = True ORDER BY tblCountry.SName, tblConcert.Artist" Else Concert = "SELECT tblConcert.*, tblCountry.SName AS CoName FROM tblConcert INNER JOIN tblCountry ON tblConcert.CountryID = tblCountry.ID WHERE (tblConcert.Artist LIKE '%%" & Replace(Request.Form("freetext"), "'", "''") & "%%' OR tblConcert.Info LIKE '%%" & Replace(Request.Form("freetext"), "'", "''") & "%%') AND tblConcert.Deleted = False AND tblConcert.Verified = True ORDER BY tblCountry.SName, tblConcert.Artist" End If Else If Not Request.Form("country") = "" Then Concert = "SELECT tblConcert.*, tblCountry.SName AS CoName FROM tblConcert INNER JOIN tblCountry ON tblConcert.CountryID = tblCountry.ID WHERE tblConcert.CountryID = " & Request.Form("country") & " AND tblConcert.Deleted = False AND tblConcert.Verified = True ORDER BY tblCountry.SName, tblConcert.Artist" Else Concert = "SELECT tblConcert.*, tblCountry.SName AS CoName FROM tblConcert INNER JOIN tblCountry ON tblConcert.CountryID = tblCountry.ID WHERE tblConcert.Deleted = False AND tblConcert.Verified = True ORDER BY tblCountry.SName, tblConcert.Artist" End If End If End If End If Else Concert = "SELECT tblConcert.*, tblCountry.SName AS CoName FROM tblConcert INNER JOIN tblCountry ON tblConcert.CountryID = tblCountry.ID WHERE tblConcert.Deleted = False AND tblConcert.Verified = True ORDER BY tblCountry.SName, tblConcert.Artist" End If RSConcert.Open Concert, Connect, adOpenStatic, adLockOptimistic %> Listar vald Konsertinfo
<% If Request.QueryString("what") = "checkdate" Then %> Visar <% =Request.QueryString("info") %>... <% ElseIf Request.QueryString("what") = "" Then %> Visar Alla... <% Else %> Visar sökresultat... <% End If %>

<% If RSConcert.EOF Then %> <% Else %> <% x = 1 Do Until RSConcert.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% x = x + 1 RSConcert.MoveNext Loop End If RSConcert.Close Set RSConcert = Nothing %>
Konserter

Inga Konserter hittades...

"><% =RSConcert("Artist") %>
<% =RSConcert("ConDate") %>
( <% =RSConcert("City") %>, <% =RSConcert("CoName") %> )