<% Set RSHistory = Server.CreateObject("ADODB.Recordset") If Request.QueryString("what") = "checkdate" Then 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 AND tblHistory.Verified = True ORDER BY tblHistoryCat.Name, tblHistory.Rubrik, tblHistory.HistDate" ElseIf Request.QueryString("what") = "span" AND Not Request.Form("from") = "ÅÅÅÅ-MM-DD" AND Not Request.Form("to") = "ÅÅÅÅ-MM-DD" Then History = "SELECT tblHistory.*, tblHistoryCat.Name AS CatName FROM tblHistory INNER JOIN tblHistoryCat ON tblHistory.CatID = tblHistoryCat.ID WHERE tblHistory.HistDate >= #" & Request.Form("from") & "# AND tblHistory.HistDate <= #" & Request.Form("to") & "# AND tblHistory.Deleted = False AND tblHistory.Verified = True ORDER BY tblHistoryCat.Name, tblHistory.Rubrik, tblHistory.HistDate" ElseIf Request.QueryString("what") = "span" AND Not Request.Form("from") = "ÅÅÅÅ-MM-DD" Then History = "SELECT tblHistory.*, tblHistoryCat.Name AS CatName FROM tblHistory INNER JOIN tblHistoryCat ON tblHistory.CatID = tblHistoryCat.ID WHERE tblHistory.HistDate >= #" & Request.Form("from") & "# AND tblHistory.Deleted = False AND tblHistory.Verified = True ORDER BY tblHistoryCat.Name, tblHistory.Rubrik, tblHistory.HistDate" ElseIf Request.QueryString("what") = "span" AND Not Request.Form("to") = "ÅÅÅÅ-MM-DD" Then History = "SELECT tblHistory.*, tblHistoryCat.Name AS CatName FROM tblHistory INNER JOIN tblHistoryCat ON tblHistory.CatID = tblHistoryCat.ID WHERE tblHistory.HistDate <= #" & Request.Form("to") & "# AND tblHistory.Deleted = False AND tblHistory.Verified = True ORDER BY tblHistoryCat.Name, tblHistory.Rubrik, tblHistory.HistDate" ElseIf Request.QueryString("what") = "cat" Then History = "SELECT tblHistory.*, tblHistoryCat.Name AS CatName FROM tblHistory INNER JOIN tblHistoryCat ON tblHistory.CatID = tblHistoryCat.ID WHERE tblHistory.CatID = " & Request.QueryString("catid") & " AND tblHistory.Deleted = False AND tblHistory.Verified = True ORDER BY tblHistoryCat.Name, tblHistory.Rubrik, tblHistory.HistDate" Else History = "SELECT tblHistory.*, tblHistoryCat.Name AS CatName FROM tblHistory INNER JOIN tblHistoryCat ON tblHistory.CatID = tblHistoryCat.ID WHERE tblHistory.HistDate = #" & Date & "# AND tblHistory.Deleted = False AND tblHistory.Verified = True ORDER BY tblHistoryCat.Name, tblHistory.Rubrik, tblHistory.HistDate" End If RSHistory.Open History, Connect, adOpenStatic, adLockOptimistic %> Listar vald Musikhistoria
<% If Request.QueryString("what") = "checkdate" Then %> <% =Request.QueryString("info") %> <% ElseIf Request.QueryString("what") = "span" AND Not Request.Form("from") = "ÅÅÅÅ-MM-DD" AND Not Request.Form("to") = "ÅÅÅÅ-MM-DD" Then %> <% =Request.Form("from") %> - <% If Request.Form("to") = "" Then %><% =Date %><% Else %><% =Request.Form("to") %><% End If %> <% ElseIf Request.QueryString("what") = "span" AND Not Request.Form("from") = "ÅÅÅÅ-MM-DD" Then %> <% =Request.Form("from") %> » <% ElseIf Request.QueryString("what") = "span" AND Not Request.Form("to") = "ÅÅÅÅ-MM-DD" Then %> « <% =Request.Form("to") %> <% ElseIf Request.QueryString("what") = "cat" Then %> <% =RSHistory("CatName") %> <% Else %> <% =Date %> <% End If %>

<% 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") %>