Kan man göra alla dessa count i samma SQL och bara ha en RecSet?
<%
Set rsNya = Connect.Execute("select COUNT(ID) from humor_historier where visa=1 AND datum>'" & DateAdd("d",-1,Date()) & "'")
Response.Write(""& rsNya(0) &" nya idag.<br>")
rsNya.Close : Set rsNya = Nothing
Set rsNya = Connect.Execute("SELECT COUNT(id) AS Antal FROM humor_historier Where visa = '1'")
Response.Write(""& rsNya("Antal") &" skämt totalt.<br>")
rsNya.Close : Set rsNya = Nothing
Response.Write("<strong>Fusk:<br></strong>")
'-------------- Fusk
Set rsNya = Connect.Execute("select COUNT(ID) from spel_fusk where visa=1 AND datum>'" & DateAdd("d",-1,Date()) & "'")
Response.Write(""& rsNya(0) &" nya idag.<br>")
rsNya.Close : Set rsNya = Nothing
Set rsNya = Connect.Execute("SELECT COUNT(ID) AS Antal FROM spel_fusk Where visa = '1'")
Response.Write(""& rsNya("Antal") &" fusk totalt.<br>")
rsNya.Close : Set rsNya = Nothing
Response.Write("<strong>Online spel:<br></strong>")
'-------------- OnlineSpel
Set rsNya = Connect.Execute("SELECT COUNT(ID) AS Antal FROM spel_online Where visa = '1'")
Response.Write(""& rsNya("Antal") &" spel totalt.<br>")
rsNya.Close : Set rsNya = Nothing
%>
SELECT Count(ID)
, (SELECT Count(ID) FROM humor_historier WHERE visa = '1') AS intAntal
, (SELECT Count(ID) FROM spel_fusk WHERE visa = '1' AND datum > '" & DateAdd("d", -1, Date()) & "') AS intAntalFusk
FROM humor_historier
WHERE visa = '1' AND datum > '" & DateAdd("d", -1, Date())
& "'"