% 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 %>
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 %> |
Konserter |
---|
Inga Konserter hittades... |
"><% =RSConcert("Artist") %> Konserten arrangeras i <% =FormatStr(RSConcert("City")) %>, <% =RSConcert("CoName") %> ( <% =FormatStr(RSConcert("Place")) %> ) Den <% =RSConcert("ConDate") %> |
Skivreleaser |
---|
Inga Skivreleaser hittades... |
"><% =RSRelease("Artist") %> <% =RSRelease("Record") %> Släpps <% =RSRelease("RelDate") %> |
Historia |
---|
Ingen Historieinfo hittades... |
"><% =RSHistory("Rubrik") %> <% =RSHistory("CatName") %> Hände <% =RSHistory("HistDate") %> |
Födelsedagar |
---|
Inga Födelsedagar hittades... |
"><% =RSBirth("Name") %> ( Fyller <% =strAge %> ) |