% 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 %>
Historia |
---|
Ingen Historieinfo hittades... |
"><% =RSHistory("Rubrik") %> <% =RSHistory("CatName") %> Hände <% =RSHistory("HistDate") %> |