% 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 %>
Konserter |
---|
Inga Konserter hittades... |
"><% =RSConcert("Artist") %> <% =RSConcert("ConDate") %> ( <% =RSConcert("City") %>, <% =RSConcert("CoName") %> ) |