SQL = "select count(*) as antal from mess where username = '" & user &"' and read = false"
Set mess = databas.Execute(SQL)
messantal = mess("antal")
mess.close
set mess = nothing
SQL = "select count(*) as antal from gb where mott = '" & user &"' and last = false"
Set mess2 = databas.Execute(SQL)
gbantal = mess2("antal")
mess2.close
set mess2 = nothing
SQL = "select count(*) as antal from kompisar where kompis = '" & user &"' and besvarad = false"
Set mess3 = databas.Execute(SQL)
nyakompisar = mess3("antal")
mess3.close
set mess3 = nothing
dessa SQL-satser är 2 år gamla ungefär så jag skulle gärna vilja ha (något liknande för alla kan inte heta antal) dessa satser i en.. om det går
Om du kan få det som en post beror på vilken DBMS du har (det går inte i Mysql).
Du kan slå ihop det så att det blir en fråga men att du får flera poster
SQL = "select 1,count(*) as antal from mess where username = '" & user &"' and read = false union all " & _
"select 2,count(*) as antal from gb where mott = '" & user &"' and last = false union all " & _
"select 3,count(*) as antal from kompisar where kompis = '" & user &"' and besvarad = false order by 1"
Set mess = databas.Execute(SQL)