ciao a tutti,
dato il codice che segue sto cercando di inserire un controllo
ma mi restituisce il seguente errorecodice:if rs.EOF then response.write("NESSUN DATO IN ARCHIVIO") else
cosa sbaglio???codice:Microsoft VBScript compilation error '800a0400' Expected statement /prodotti2.asp, line 164 Wend ^
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 %>
Rispondi quotando
