ciao a tutti,
dato il codice che segue sto cercando di inserire un controllo

codice:
if rs.EOF then
response.write("NESSUN DATO IN ARCHIVIO")
else
ma mi restituisce il seguente errore

codice:
Microsoft VBScript compilation error '800a0400' 

Expected statement 

/prodotti2.asp, line 164 

Wend
^
cosa sbaglio???

ecco il codice
codice:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">

<html>

	<head>
...omissis html								
<%if Request.QueryString("fcampo") <> "" Or Request.QueryString("fcosa") <> "" then%><% 
set Conn=Server.CreateObject("ADODB.Connection")
strConn="driver={Microsoft Access Driver (*.mdb)};"
strConn=strConn & "DBQ=" & server.MapPath("/us.mdb")
Conn.Open StrConn

'estrazione pagina 
pg= trim( request( "pg" )) 
if pg = "" then pg = 1 
'apertura del recordset 
set rs=server.CreateObject("ADODB.Recordset")
SQL="SELECT * FROM prodotti WHERE "&Request.QueryString("fcampo")&"='"&Request.QueryString("fcosa")&"' ORDER BY azienda ASC"
rs.open SQL,conn,3,3
'NUMEO RECORD DA VISUALIZZARE
rs.pagesize = 15 
rs.absolutepage = pg 
'Impostiamo il Contatore 
Dim Conta 
Conta = 0 
while not rs.eof and rowcount < rs.pagesize 
rowcount = rowcount + 1 

if rs.EOF then
response.write("NESSUN DATO IN ARCHIVIO")
else

%>
																		&fcampo=<%=Request.QueryString("fcampo")%>&fcosa=<%=Request.QueryString("fcosa")%>');">[img]public/img/<%=rs([/img]" height="90" width="90">

																												<%=rs("cod")%></a>[img]img/add.gif[/img]</div>

																																									<% 
'Incrementiamo il Contatore 
Conta = Conta + 1 
'Impostiamo il numero di colonne che si vogliono creare (nel nostro caso 4) 
if Conta = 5 then 
conta = 0 

response.write "</tr>" 
end if 
'Scorriamo i dati della tabella 
Rs.MoveNext 
riga 164 Wend 
%>

...omissis html																		<% if rs.pagecount > 1 then %>Pag 
<% for i = 1 to rs.pagecount 
if i <> cINT( pg ) then 
%>&fcosa=<%=Request.QueryString("fcosa")%>"><%=i%> 
<% else %><%=i%> 
<%end if%><%next%><%end if%><% 
Rs.close 
Set Rs = Nothing 
conn.Close 
Set con = Nothing 
%>

...omissis html

</html>
<%
end if
%>