Någon som vet hur man får ihop alla dessa recset till 1? tror det skulle göra min databas glad
Jag blir helt förvirrad själv.
Set rs = Connect.Execute("SELECT Count(username) From members")
Set rs2 = Connect.Execute("SELECT Count(username) From members Where status = 'online'")
Response.Write("<b>"& rs2.Fields(0) &"</b> av <b>"& RS.Fields(0) &"</b><br>")
rs.Close : Set rs = Nothing
rs2.Close : Set rs2 = Nothing
Set rs = Connect.Execute("Select id From gb Order BY id Desc LIMIT 1")
Response.Write("<b>"& rs("id") &"</b><br>")
rs.Close : Set rs = Nothing
Set rs = Connect.Execute("Select messageid From mailin Order BY messageid Desc LIMIT 1")
Response.Write("<b>"& rs("messageid") &"</b><br>")
rs.Close : Set rs = Nothing
Set rsForum = Connect.Execute("SELECT Count(postid) From forumpost")
Response.Write("<b>"& rsForum.Fields(0) &"</b><br>")
SELECT 'Count',Count(username) ,
sum(case when status = 'online' then 1 else 0 end)
From members
union all
select 'gb' , max(id), 0 from gb
union all
select 'mailin', max(messageid),0 from mailin
Vilka index du har är mer betydelsefullt för prestanda än att du har ett anrop istället för fyra.
sql = "SELECT 'Count',Count(username) ,
sum(case when status = 'online' then 1 else 0 end)
From members
union all
select 'gb' , max(id), 0 from gb
union all
select 'mailin', max(messageid),0 from mailin
union all
SELECT 'posts',Count(postid) , 0 From forumpost"
set rs = connect.execute(sql)
while not rs.eof
if rs(0) = "Count" then
response.write rs(1),rs(2)
else
..
end if
rs.movenext
wend
I princip. Med lite embellering kan det nog bli ganska vackert.