Errore su paginazione a colonne sui record

[fortitudo]

Ciao a tutti,
non so dove commetto gli errori, ma ho problemi con lo script in basso.
Ho bisogno di paginare i record su colonne, ovvero sulla stessa riga...

mi da questo errore:

Microsoft VBScript compilation error '800a0400'

Expected statement

/sito/Default.asp, line 171

Wend
^

questo è il codice

<%
dim page1
page1=1
if request.querystring("pag1")<>"" then
page1=int(request.querystring("pag1"))
end if

dim page2
page2=1
if request.QueryString("pag2")<>"" then
page2=int(request.QueryString("pag2"))
end if

dim perPagina
perPagina=4
perPaginax=5

Dim objConn, contatore, rs
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _
Server.MapPath("/mdb-database/auto.mdb")
%>

		<table border="0" width="150" cellspacing="0" cellpadding="0">
								<tr>
									<%
Dim objRS
Set objRS = Server.CreateObject("ADODB.RecordSet")
%> 

<%
		    contatore = 0

sSQL="SELECT * FROM annuncio WHERE tipoauto = 'USATA' order by ID DESC;"
objRS.Open sSQL, objConn, 3, 3
%>


<%
While rs.EOF = False

If contatore = 3 Then
            contatore = 0
            Response.Write "</tr><tr>"
        End If
%>
	  		
        <%if not objRS.eof then

objRS.pageSize=perPagina

objRS.absolutePage=page1
for i=1 to perPagina
if not objRS.eof then

  ID=objRS("ID")
  marcamodello=objRS("marcamodello")
    img0=objRS("img0")
        tipoauto=objRS("tipoauto")


%>
</tr><tr>
	
		<td>[img]<%=objRS([/img]">

		<h4><%=objRS("marcamodello")%></h4></td>
  
<%
        rs.MoveNext
        ' INCREMENTO IL VALORE DEL CONTATORE
        contatore = contatore + 1
        Wend
    rs.Close
%>
<%


objRS.movenext
end if
next
%>
<%
end if
%>
<%
objRS.Close
%>
</td>
								</tr>
							</table>

Non capisco dove sbaglio.. sono poco pratico..

[kalosjo]

Dopo il while apri una serie di if che non chiudi o che chiudi dopo il wend

Devi rispettare l'ordine dei blocchi.