Lille problem med count

Hej jeg sidder og er ved at lave en reserverings side for et gamesite. mit problem er som følgende, jeg skal bruge en funktion der kan tælle og vise hvor mange der har skrevet sig op til et spil, dette skal kunne listes ved oversigten. Men den driller mig ;)

KODEN:

<%
Conn_crew = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("res.mdb") & ""
Set RS_vis = Server.CreateObject("ADODB.RecordSet")
RS_vis.open "Select * From [reserver] WHERE status='leddig' ORDER by spilID ASC" , Conn_crew, 1, 3

do until RS_vis.eof

[Linje 30]Set RS_vis1 = SQLcount = "SELECT COUNT(*) AS ialt FROM reserveret WHERE spilID='" & RS_vis("spilID") & "'"
RS_vis1.open SQLcount , Conn_crew, 1, 3

intIalt = RS_vis1("ialt")
strTitel = RS_vis("titel")
strFormat = RS_vis("format")
strLink = RS_vis("spilID")


response.Write("<tr><td>" & strTitel & " - " & strFormat & " Antal Reserveringer: " & intIalt & "</td>")
response.write("<td><a href='reserver.asp?mode=detalje&id=" & strLink & "'>Detaljer</a></td></tr>")

RS_vis.MoveNext
loop
%>

FEJL:

Microsoft VBScript runtime error '800a01a8'
Object required: 'False'

/jim/reserverTEMP.asp, line 30