Premetto che non sono un programmatore....

Sto tentando di adattare un codice di paginazione asp ad una mia pagina che filtra tramite query sql dei dati provenienti da un form.
Naturalmente non riesco ad adattarlo.

il codice funziona fino a quando incontra la seconda serie di Response.Write cioè quando deve stampare i record estratti dal db - L'errore è il seguente:
Expected end of statement
Qualcuno può darmi una mano?

Ecco il codice
codice:
<html>
<head>
<title>I NOSTRI TITOLI</title>
</head>

<%' dati ricevuti dal form%>

<%
AbiCode=request.form("AbiCode")
CabCode=request.form("CabCode")
Descrizione=request.form("Descrizione")
Localita=request.form("Localita")

if AbiCode="" then AbiCode="%"
if CabCode="" then CabCode="%"
if Descrizione="" then Descrizione="%"
if Localita="" then Localita="%"
%>

<%
Dim DBConn 
Set DBConn = Server.CreateObject("ADODB.Connection") 
DBConn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="& server.mappath("registrazione_gestione/mdb-database/abicab.mdb")&";  Persist Security Info = False"
Dim objRS 
Set objRS = Server.CreateObject("ADODB.Recordset") 

RecordsPerPagina = 10
page = Request("page")
if page="" then page = 1

' CAMBIARE LA DATA NELLA RIGA SQL SEGUENTE
strSQL="select * from abicab where AbiCode like '%"&AbiCode&"%' and CabCode like '%"&CabCode&"%' and Descrizione like '%"&Descrizione&"%' and Localita like '%"&Localita&"%' and Data like '10/31/2007'"
objRS.open strSQL, DBConn, 1 
objRS.PageSize = RecordsPerPagina 
objRS.AbsolutePage = page 
If objRS.Eof=True or objRS.Bof=True then 

<%' PRIMA SERIE DI RESPONSE.WRITE - descrive la tabella %>
Response.Write "

Nessun risultato trovato</P>" 
Else 
Response.Write ("<center><h2>ABICAB Trovati </h2></center>
")
Response.Write ("<table border=1><tr><td>Numero</td>")
Response.Write ("<td align=center>AbiCode</td>")
Response.Write ("<td>CabCode</td>")
Response.Write ("<td>Descrizione</td>")
Response.Write ("<td>Filiale</td>")
Response.Write ("<td>Indirizzo</td>")
Response.Write ("<td>Località</td>")
Response.Write ("<td>ID</td> </tr>")

For i=1 to RecorsPerPagina
if Not objRS.EOF then
%>

<%k=k+1%>

<%' SECONDA SERIE DI RESPONSE.WRITE - STAMPA I DATI %>
<%
Response.Write("<TR><TD>") k ("</TD>")
Response.Write("<td>"objRS("AbiCode") AbiCode=rs("AbiCode")"</td>")
Response.Write("<td>"objRS("CabCode") CabCode=rs("CabCode")"</td>")
Response.Write("<td>"objRS("Descrizione") Descrizione=rs("Descrizione")"</td>")
Response.Write("<td>"objRS("Filiale") Filiale=rs("Filiale")"</td>")
Response.Write("<td>"objRS("Indirizzo") Indirizzo=rs("Indirizzo")"</td>")
Response.Write("<td>"objRS("Localita") Localita=rs("Localita")"</td>")
Response.Write("<td>"objRS("ID") ID=rs("ID")"</td>")
%>

<%
objRS.MoveNext 
end if 
Next 
Response.Write ("</table></center>") 
End if 
Response.Write "

Pagine: " 
For pag=1 to objRS.PageCount 
Response.Write "<A href='Paginazione.asp?page=" & pag & "'>" 
Response.Write pag 
Response.Write "</A> " 
Next 
Response.Write "</P>" 
objRS.Close 
Set objRS=Nothing 
DBConn.Close 
Set DBConn=Nothing 
%>

</body>
</html>