Noget galt i script?

Hej.

Jeg vil på forsiden af min side gerne fortælle besøgende hvor mange tilmeldte vi er til vores bustur, og hvor turen går hen.

Dette prøver jeg at gøre med dette script.

Men siden kan ikke vises når jeg prøver:

    <%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath ("bus.mdb")
Conn.Open DSN %>
<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="0">
    <tr><%
SQL = "Select TOP 1 * from tur order by id DESC"
Set rs = Conn.Execute(SQL)
Do While not rs.EOF%>

        <td>Turen går til <%=rs("tur_navn")%> Og man kan allerede nu tilmelde sig.</td>
    </tr>
<%
rs.movenext
loop
%>
<%
SQL = "Select COUNT(id) as varname FROM tilmelding WHERE turid IN (select TOP 1 id FROM tur ORDER BY id) order by id DESC"
Set rs = Conn.Execute(SQL)
Do While not rs.EOF%>
 
   
   

    <tr>
        <td>Antal tilmeldte: <%=rs("count")%></td>
    </tr>
        <%
rs.movenext
loop
%>
</table>


Tabellen som antal tilmeldte ligger i hedder "tilmelding" Og hvad for en tur de skal på står i tabellen "tur".

Hvad gør jeg galt ?