Salve a tutti... un piccolo aiuto nel codice sotto in grassetto riporto il codice che occorre per la paginazione che ho aggiunto!
Potete auitarmi!?!?!
l'Errore che mi dà è questo:
Errore di compilazione di Microsoft VBScript (0x800A03FA)
Previsto 'Wend'
/elenco_articoli.asp, line 57
Else
ecco il file:
<html>
<head>
<meta http-equiv="Content-Language" content="it">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Elenco articoli</title>
<link rel="stylesheet" href="indexx.css">
</head>
<body>
<table width="750" height="727" border="0" align="center" cellpadding="0" cellspacing="8" id="AutoNumber1" style="border-collapse: collapse">
<tr>
<td height="50" colspan="3" align="center" bgcolor="#CCCCCC"><p>
<!--#include file="testa.asp" -->
</td>
</tr>
<tr>
<td height="11" colspan="3"><div align="right"><a href="carrello.asp"><strong>
</strong></a><IMG SRC="icons/cart.gif" alt="Inserisci nel carrello" width="30" height="26" BORDER=0><a href="carrello.asp"><strong>guarda
il carrello</strong></a></div></td>
</tr>
<tr>
<td width="133" height="498" rowspan="3" valign="top"> <p>
<!--#include file="menu.asp" --> </td>
<td width="484" height="425" align="center" valign="top"> <table width="100%" border=0 cellpadding=0 cellspacing=0>
<tr>
<td>
<%if len(Session("aperta")) > 0 then
idlineadicatalogo = Request.QueryString("idlineadicatalogo")
Session.LCID=1040
Set DatabaseWebStore = Server.CreateObject("ADODB.Connection")
DBString =""
DBString = DBString + "Driver={Microsoft Access Driver (*.mdb)};"
DBString = DBString + "Dbq=" & Server.MapPath(".") & "\db.mdb;"
DBString = DBString + "Uid=Admin;"
DBString = DBString + "Pwd=;"
DatabaseWebStore.Open DBString
If Len(idlineadicatalogo) = 0 Then
' Quanti record per pagina?
quanti = 5
pagina = CInt(Request.QueryString("p"))
If NOT IsNumeric(pagina) OR pagina < 1 Then pagina = 1
'-----------------------------------------------------
If NOT Rs.EOF Then
Rs.PageSize = quanti
Rs.AbsolutePage = pagina
i = 0
while i<quanti AND NOT Rs.EOF
i = i + 1
progressivo = quanti*(pagina-1)+i %><%Else%>
<%
Dim sqlquery
sqlquery = "select "
sqlquery = sqlquery & "ID, "
sqlquery = sqlquery & "Codice, "
sqlquery = sqlquery & "Denominazione, "
sqlquery = sqlquery & "Informazioni, "
sqlquery = sqlquery & "InformazioniEstese, "
sqlquery = sqlquery & "Confezione, "
sqlquery = sqlquery & "Prezzo, "
sqlquery = sqlquery & "RiferimentoDiIcona, "
sqlquery = sqlquery & "RiferimentoDiFoto "
sqlquery = sqlquery & "from "
sqlquery = sqlquery & "[Catalogo, Articoli] "
sqlquery = sqlquery & "where "
sqlquery = sqlquery & "IDLinea = " & idlineadicatalogo & " "
sqlquery = sqlquery & " And "
sqlquery = sqlquery & "InVendita=true "
Dim RecordsetArticoli
Set RecordsetArticoli = DatabaseWebStore.Execute(sqlquery)
%>
<%
Dim ID
Dim Codice
Dim Denominazione
Dim Informazioni
Dim InformazioniEstese
Dim Confezione
Dim Prezzo
Dim RiferimentoDiIcona
Dim RiferimentoDiFoto
%>
<%If RecordsetArticoli.EOF Then%>
<%Else%>
<TABLE width="100%" BORDER=0 CELLPADDING=0 CELLSPACING=6>
<%if err=0 then
While Not RecordsetArticoli.EOF%>
<%
ID = RecordsetArticoli("ID")
Codice = RecordsetArticoli("Codice")
Denominazione = RecordsetArticoli("Denominazione")
Informazioni = RecordsetArticoli("Informazioni")
InformazioniEstese = RecordsetArticoli("InformazioniEstese")
Confezione = RecordsetArticoli("Confezione")
Prezzo = RecordsetArticoli("Prezzo")
RiferimentoDiIcona = RecordsetArticoli("RiferimentoDiIcona")
RiferimentoDiFoto = RecordsetArticoli("RiferimentoDiFoto")
%>
<TR VALIGN="TOP">
<TD width="10%">
<%If RiferimentoDiIcona <> "" Then%>
<A HREF="scheda_articolo.asp?idarticolo=<%=ID%>"> <IMG SRC="<%=RiferimentoDiIcona%>" BORDER=0 width="50" height="80">
</A>
<%else%>
<%End If%>
</TD>
<TD width="78%"> <A HREF="scheda_articolo.asp?idarticolo=<%=ID%>">
<B><%=Denominazione%></B> </A> <BR> <%=Informazioni%> <P> <B>Prezzo
¤ <%=FormatNumber(Prezzo, 2, -1, 0, -1)%></B> </TD>
<TD width="12%" valign=bottom> <A HREF="carrello.asp?idarticolo=<%=ID%>">
<IMG SRC="icons/cart.gif" alt="Inserisci nel carrello" width="30" height="26" BORDER=0>
</A> </TD>
</TR>
<TR>
<TD colspan=3><hr></TD>
</TR>
<%RecordsetArticoli.MoveNext%>
<%Wend
end if%>
<%
Rs.MoveNext
wend
Rs.movefirst
%> </TABLE>
<%End If%>
<%End If%>
<%
RecordsetArticoli.Close
Set RecordsetArticoli = Nothing
DatabaseWebStore.Close
Set DatabaseWebStore = Nothing
else%>
<H4><font size="1"><a href="elenco_linee.asp">La sessione è scaduta.
Torna all'Home Page</a></font></H4>
<%end if
%>
<%
Dim tot, start, stop1
tot = Rs.PageCount
start = pagina - 5
stop1 = pagina + 5
If (start<1) Then stop1 = stop1 + (-start) + 1
If (stop1>tot) Then start = start - (stop1 - tot)
If (start<1) Then start = 1
If (stop1>tot) Then stop1 = tot
script = Request.ServerVariables("SCRIPT_NAME")
For i = start To stop1
If i <> pagina Then
Response.Write("[<a href=" & script & "?p=" & i & " & ")
Response.Write("<span style='font-size:10px; color:#000000; text-decoration: none;'>" & i & "</span>")
Response.Write("</a>]")
ElseIf start <> stop1 Then
Response.Write "<b>(<span style='font-size:10px; color:#000000; text-decoration: none;'>" & i & "</span> )</b>"
End If
Next
Rs.Close()
Set Rs = Nothing
End if
%>
