<% strCheckMonth = CLng(Mid(Request.QueryString("info"), 6, 2)) strCheckDay = CLng(Right(Request.QueryString("info"), 2)) %> <% Set RSFair = Server.CreateObject("ADODB.Recordset") Fair = "SELECT tblFair.*, tblCountry.SName AS CoName FROM tblFair INNER JOIN tblCountry ON tblFair.CountryID = tblCountry.ID WHERE tblFair.FairDate = #" & Request.QueryString("info") & "# AND tblFair.Deleted = False ORDER BY tblFair.FairDate, tblFair.CountryID, tblFair.City" RSFair.Open Fair, Connect, adOpenStatic, adLockOptimistic Set RSConcert = Server.CreateObject("ADODB.Recordset") 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 ORDER BY tblConcert.ConDate, tblConcert.ConTime, tblConcert.CountryID, tblConcert.City" RSConcert.Open Concert, Connect, adOpenStatic, adLockOptimistic Set RSRelease = Server.CreateObject("ADODB.Recordset") Release = "SELECT * FROM tblRelease WHERE RelDate = #" & Request.QueryString("info") & "# AND Deleted = False ORDER BY Artist, Record, RelDate" RSRelease.Open Release, Connect, adOpenStatic, adLockOptimistic Set RSHistory = Server.CreateObject("ADODB.Recordset") History = "SELECT tblHistory.*, tblHistoryCat.Name AS CatName FROM tblHistory INNER JOIN tblHistoryCat ON tblHistory.CatID = tblHistoryCat.ID WHERE Month(tblHistory.HistDate) = " & Mid(Request.QueryString("info"), 6, 2) & " AND Day(tblHistory.HistDate) = " & Right(Request.QueryString("info"), 2) & " AND tblHistory.Deleted = False ORDER BY tblHistoryCat.Name, tblHistory.Rubrik, tblHistory.HistDate" RSHistory.Open History, Connect, adOpenStatic, adLockOptimistic Set RSBirth = Server.CreateObject("ADODB.Recordset") Birth = "SELECT * FROM tblMember WHERE Month(BirthDate) = " & strCheckMonth & " AND Day(BirthDate) = " & strCheckDay & " AND Deleted = False AND Active = True ORDER BY Name" RSBirth.Open Birth, Connect, adOpenStatic, adLockOptimistic %> Information om <% =Request.QueryString("info") %>

<% 'Delen om mässorna börjar %> <% If RSFair.EOF Then %> <% Else %> <% x = 1 Do Until RSFair.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If If Not RSFair("OrgID") = "" Then strOrg = RSFair("OrgID") Set RSOrg = Server.CreateObject("ADODB.Recordset") Org = "SELECT * FROM tblFairOrg WHERE ID = " & strOrg & " " RSOrg.Open Org, Connect, adOpenDynamic, adLockOptimistic End If %> <% x = x + 1 If Not RSFair("OrgID") = "" Then strOrg = 0 RSOrg.Close End If RSFair.MoveNext Loop End If RSFair.Close Set RSFair = Nothing %>
Skivmässor

Inga Mässor hittades...

Mässan arrangeras i "><% =FormatStr(RSFair("City")) %>, <% =RSFair("CoName") %>
( <% =FormatStr(RSFair("Place")) %> )
Den <% =RSFair("FairDate") %>

Arrangör: <% If Not RSFair("OrgID") = "" Then %>"><% =RSOrg("Name") %><% Else %>-<% End If %>


<% 'Delen om mässorna slutar %> <% 'Delen om konserter börjar %> <% 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") %>
Konserten arrangeras i <% =FormatStr(RSConcert("City")) %>, <% =RSConcert("CoName") %>
( <% =FormatStr(RSConcert("Place")) %> )
Den <% =RSConcert("ConDate") %>


<% 'Delen om konserter slutar %> <% 'Delen om releaser börjar %> <% If RSRelease.EOF Then %> <% Else %> <% x = 1 Do Until RSRelease.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% x = x + 1 RSRelease.MoveNext Loop End If RSRelease.Close Set RSRelease = Nothing %>
Skivreleaser

Inga Skivreleaser hittades...

"><% =RSRelease("Artist") %>
<% =RSRelease("Record") %> Släpps <% =RSRelease("RelDate") %>


<% 'Delen om releaser slutar %> <% 'Delen om historia börjar %> <% If RSHistory.EOF Then %> <% Else %> <% x = 1 Do Until RSHistory.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If %> <% x = x + 1 RSHistory.MoveNext Loop End If RSHistory.Close Set RSHistory = Nothing %>
Historia

Ingen Historieinfo hittades...

"><% =RSHistory("Rubrik") %>
<% =RSHistory("CatName") %>
Hände <% =RSHistory("HistDate") %>


<% 'Delen om historia slutar %> <% 'Delen om födelsedagar börjar %> <% If RSBirth.EOF Then %> <% Else %> <% x = 1 Do Until RSBirth.EOF If x mod 2 = 0 Then bgcolor = "" & strTblBkgndM & "" Else bgcolor = "" & strTblBkgndL & "" End If strAge = CLng(Left(Date, 4)) - Left(RSBirth("BirthDate"), 4) %> <% x = x + 1 RSBirth.MoveNext Loop End If RSBirth.Close Set RSBirth = Nothing %>
Födelsedagar

Inga Födelsedagar hittades...

"><% =RSBirth("Name") %> ( Fyller <% =strAge %> )
<% 'Delen om födelsedagar slutar %>