Erro no script

Boa noite pessoal,

Espero que possam me ajudar.

Grato a todos.

Erro:

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A0400)

Instrução esperada

paginacao2.asp, line 109

end if

<%
StringDeConexao = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("/banco/loja.mdb")
Set Conexao = Server.CreateObject("AdoDb.Connection")
Conexao.Open StringDeConexao

Set RS = Server.CreateObject("AdoDb.RecordSet")

nomepagina = "paginacao2.asp"
registros = 3

col=3

if not rs.eof then

colu=1

response.write "<table><tr><td>"

while not rs.eof

RS.CacheSize = registros
RS.PageSize = registros

SQL = "Select * from produtos"

RS.Open SQl,Conexao,3,3

If RS.Eof then
Response.Write("Nenhum registro encontrado.")

else

if Request.QueryString("pagina")="" then
pagina = 1
elseif cint(Request.QueryString("pagina"))<1 then
pagina = 1
elseif cint(Request.QueryString("pagina"))>RS.PageCount then
pagina = RS.PageCount
else pagina=Request.QueryString("pagina")
end if
end if

RS.AbsolutePage = pagina

contador = 0

While contador<registros and not RS.eof

%>

<table valign=top width=205 border="1" cellspacing="2" cellpadding="7">

 <tr>
	<td background="images/BottomCol1.jpg"><font face="verdana" size="1" color="white"><b><%response.write rs ("nome")%><b></td></tr>
	<td align="center"><center><a href="detalhe_acervo.asp?id=<%=rs("id")%>" target="_self"><%=imagem%><img src='images/<%response.write rs ("imagem")%>' height="100" border="0" alt="Clique na imagem e veja os detalhes"/></a></tr>
 <tr>
	<td background="images/BottomCol1.jpg"><font face="verdana" size="1" color="white"><b>» Locação R$: <%response.write formatnumber (rs("preco"),2)%></b>
	<br><font face="verdana" size="1" color="white"><b>» Áudio: <%response.write rs ("condicoes")%><b>
	<br><font face="verdana" size="1" color="white"><b>» Categoria: <%response.write rs ("descricaop")%><b></td></tr>
 </tr>
</table>

<%

RS.MoveNext

contador = contador + 1

If RS.eof then
if colu=col then
response.write "</td><tr><td>"
Response.Write("")

colu=1

else

response.write "</td><td>"

colu=colu+1

end if

rs.movenext

for i=1 to RS.PageCount

response.write "</td></tr></table>"
response.Write("<a href="&nomepagina&"?pagina="&i&">"&replace(i,pagina,"<font color=blue><b>"&i&"</b>")&"</a> ")

rs.close

end if

Next
%>