Rettelse :S (Fejl)

<%

If Session("Cart_id") <> "" Then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/db/database.mdb")

Cart_id = Session("Cart_id")
antal_vare = Session("antal_vare")

Dim a
a = split(Cart_id, ",")
limit = Ubound(a)
Dim b
b = split(antal_vare, ",")


For i = 0 to limit -1
       
        SQLstmt = "Select * From catelog Where catelog.id=" & (a(i))
        Set rs = conn.Execute(SQLstmt)
       
    Do While not rs.eof
       
                ID = rs("id")
                vare_antal = (b(i))
                vare_navn = rs("vare_navn")
                vare_pris = rs("vare_pris")
                vare_total = (b(i))*rs("vare_pris")


        %>
       
            <div align="center">
       
            <table border="0" width="475" id="table1" cellspacing="0" cellpadding="0" height="22">
                    <tr>
        <td colspan="5"><hr></td>
    </tr>
        <tr>
            <td width="200"><a class="products" href="showproductsinfo.asp?id=<%=ID%>"><%=vare_navn%></a></td>
            <td width="75"><a class="products"><%=vare_antal%></a></td>
            <td width="75"><a class="products"><%=vare_pris%></a></td>
            <td width="50"><a class="products"><%=vare_total%></a></td>
            <td width="75" align="right"><a target="_self" href="edit_cart.asp?add=<%=ID%>"><img border="0" src="images/add.jpg" width="25" height="25"></a><a target="_self" href="edit_cart.asp?del=<%=ID%>"><img border="0" src="images/delete.jpg" width="25" height="25"></a><br><a/></td>
        </tr>
            <tr>
        <td colspan="5"><hr></td>
    </tr>
    </table>
                </div>
<%   

       
                Loop
                rs.movenext
        Next
        rs.close

        conn.close

Else
    Response.write "Indkøbskurven er tom!"
End if

%>

En som kan finde fejlen ? ?