Errore..correggerlo come?

[yoyo87]

Microsoft VBScript compilation error '800a0400'

Expected statement

/libri/admin/prova.asp, line 71

end if
^
Cioè ???

[optime]

standing ovation per il titolo del 3d...

[yoyo87]

?? ?? ?? :master:

[marco_c]

posta il codice

[diegoctn]

Originariamente inviato da optime
standing ovation per il titolo del 3d...

[yoyo87]

<%@LANGUAGE="VBSCRIPT"%>
<%
'recupero la pagina
page = Request.QueryString("page")
' imposto il numero di record per pagina
perpage = 10

'connessione al db
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("/mdb-database/libri.mdb")
Set Rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM libri"
Rs.Open sql, Conn, 1, 3

'imposto la variabile in modo da ottenere l'ultima se non ne viene specificata un'altra
If page = "" then
page = (rs.PageCount)
End if

'imposto la dimensione della pagina
Rs.PageSize = perpage
' mi sposto all'ultima pagina
Rs.AbsolutePage = page

'scrivo i link ai 10 record
For i = 1 to perpage
If Not Rs.EOF then
if Rs("id") < 10 then
Response.Write ("[0" & Rs("Autori") & "'> ")
else
Response.Write ("[" & Rs("Autori") & "'> ")
end if
Rs.MoveNext
end if
next%>
<center>
<table border="1" cellpadding="4" width="650" cellspacing="0" bgcolor="#000000" height="100" style="border-collapse: collapse">
<tr>
<td width="1002" align="center" bgcolor="#000080" height="39" colspan="6" style="border-left-width: 1; border-right-width: 1; border-top-width: 1">

<font color="#FFFFFF" face="Verdana" size="2"><a name="Elenco Completo Libri">Elenco
Completo Libri</a></font>

<font size="2" face="Verdana">torna alla ricerca</font></td>
</tr>
<tr>
<td width="210" bgcolor="#000080" height="29">
<p align="center"><font face="Verdana" size="2" color="#FFFFFF">Autori</font></td>
<td width="210" bgcolor="#000080" height="29">
<p align="center"><font face="Verdana" size="2" color="#FFFFFF">Titolo</font></td>
<td width="210" bgcolor="#000080" height="29">
<p align="center"><font face="Verdana" size="2" color="#FFFFFF">Casa Editrice</font></td>
<td width="210" bgcolor="#000080" height="29">
<p align="center"><font face="Verdana" size="2" color="#FFFFFF">Anno</font></td>
<td width="210" bgcolor="#000080" height="29">
<p align="center"><font face="Verdana" size="2" color="#FFFFFF">Prezzo</font></td>
<td width="232" bgcolor="#000080" height="29">
<p align="center"><font face="Verdana" size="2" color="#FFFFFF">Disponibilità</font></td>
</tr>
<%
Set Rs=Conn.Execute(SQL)
While Not rs.EOF%>
<tr>
<td width="210" bgcolor="#FFFFFF" height="30" bordercolor="#000080"><font size="1" face="Verdana"><%=Rs("Autori")%></font></td>
<td width="210" bgcolor="#FFFFFF" height="30" bordercolor="#000080"><font size="1" face="Verdana"><%=rs("Titolo")%></font></td>
<td width="210" bgcolor="#FFFFFF" height="30" bordercolor="#000080"><font size="1" face="Verdana"><%=rs("CasaEditrice")%></font></td>
<td width="210" bgcolor="#FFFFFF" height="30" bordercolor="#000080"><font size="1" face="Verdana"><%=rs("Anno")%></font></td>
<td width="210" bgcolor="#FFFFFF" height="30" bordercolor="#000080"><font size="1" face="Verdana"><%=rs("Prezzo")%></font></td>
<td width="242" bgcolor="#FFFFFF" height="30" bordercolor="#000080"><font size="1" face="Verdana"><%=rs("Disponibile")%></font></td>

</tr>
<%end if
Rs.MoveNext
end if
next%> Questa è la linea dell'errore
</center>
<tr>
<td width="223" align="left" bgcolor="#000080" colspan="2" height="21" style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-top-width: 1; border-bottom-width: 1" bordercolor="#000080">
<font size="1"></font><font face="Verdana" size="2"><font color="#FFFF00">torna su</font></font></td>
<td width="630" align="center" bgcolor="#000080" height="21" style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-top-width: 1; border-bottom-width: 1" bordercolor="#000080" colspan="3">
<td width="188" align="right" bgcolor="#000080" height="21" style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-top-width: 1; border-bottom-width: 1" bordercolor="#000080">

<font face="arial" size="2">
<font color="#FFFF00"><a target="_self" href="../index.asp">
<font color="#FFFF00">Esci</font></a></font></a></font></tr>
</table>
<%
'scrivo i numeri delle pagine
Response.Write "

Pagine: "

For pag= 1 to rs.PageCount
if page = pag then
'grassetto per la pagina corrente
Response.Write ""
Response.Write "<A href='questapagina.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
Response.Write ""
else
'normale per le altre pagine
Response.Write "<A href='questapagina.asp?page=" & pag
Response.write "'>"
Response.Write pag
Response.Write "</A> "
end if
Next
Response.Write "</P>"
'chiudo la connessione
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%>

[marco_c]

ma scusa metti un sacco di end if senza aver aperto gli if!!!
nella parte di codice colorata di blu

[maximum]

Modifica:

<%
      end if 
      Rs.MoveNext 
   end if 
next
%>

in:

<%
  Rs.MoveNext 
Wend
%>

Vedi se va.

[yoyo87]

Se lo modifico in Wend non mi da nessun errore però per il codice dopo mi scrivere solo Pagine: codificato da Response.Write "

Pagine: ".

Ho provato anche a mettere:
<%
if Rs=Conn.Execute(SQL) then
if Not rs.EOF then%>

E poi:

<%end if
Rs.MoveNext
end if
next%>

Ma mi da questo errore:
Microsoft VBScript compilation error '800a041f'

Unexpected 'Next'

/libri/admin/prova.asp, line 74

next
^

[optime]

e' sicuramente un problema di nidificazione degli IF...END IF / WHILE...WEND/DO...LOOP

indenta il codice e vedrai che l'errore salta fuori