count og response

Kan dette stå anderledes og hvad gør jeg galt

<%
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("post.mdb")
strSQL = "select * FROM brugere"
Set Rs = Conn.Execute(strSQL)
%>
<%
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("post.mdb")
tael = "SELECT COUNT(*) AS tael FROM post"
Conn.Execute(tael)
%>
<%
set conn = server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("post.mdb")
taelulaest = "SELECT COUNT(*) AS taelulaest FROM post where laest = false"
Conn.Execute(taelulaest)
%>
<%
response.write "Indbakke for " & rs("bruger") & "<br>" & "Antal breve" & rs("tael") & "hvoraf" & "<b>" & rs("taelulaest") & "</b>" & "er ulæst"
%>