Salve a tutti, avevo fatto un vecchio sito in .asp classic
il proprietario deve avere aggiunto qualche dato incompleto e il sito va in errore nella terza pagina dell'elenco dipinti inseriti. Prima si estrae l'ID autore da cui pesco i dati nella relativa tabella
il sito è qui http://www.anticortolan.it/dipinti.asp?pagina=3
codice:
<%
sqlo = "SELECT * FROM dipinti ORDER BY ordine DESC"
Set rso = Server.CreateObject("ADODB.Recordset")
rso.Open sqlo, conn, 3, 3
if not rso.bof or not rso.eof then
PageNo = request("pagina")
If PageNo = "" then
PageNo = 1
End If
TotalRecs = rso.recordcount
rso.Pagesize = 5 'numero di firme per pagina
TotalPages = CInt(rso.PageCount)
IF TotalPages = 0 then
TotalPages = 1
End If
If Not rso.BOF Or Not rso.EOF Then
rso.AbsolutePage = PageNo
End If
For I = 1 to 5
If rso.EOF Then
Exit For
PageNo = 0
else
'autore
if Isnull(rso("IDautore")) or rso("IDautore") = "" then
autore = "Non inserito"
else
IDautore = rso("IDautore")
sql2 = "SELECT ID, cognome, nome, epigrafe FROM autori WHERE ID=" & IDautore
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open sql2, conn, 3, 3
if rs2("nome") <> "" AND rs2("cognome") <> "" AND rs2("epigrafe") <> "" then
autore = rs2("Cognome") & " " & rs2("Nome")
else
autore = "Non inserito"
end if
autore = autore & " (" & rs2("epigrafe") & ")"
rs2.close
set rs2 = nothing
End if
immagine = "/" & rso("foto")
%>
<div class="post">
<h2 class="entry-title">Autore: <a href="autori_scheda.asp?ID=<%=IDautore%>"><%=autore%></a></h2>
<div class="entry-meta">
<span class="date"><a href="dipinti_scheda.asp?ID=<%=rso("ID")%>"><%=rso("titolo")%></a></span>
</div>
<div class="featured"><a href="dipinti_scheda.asp?ID=<%=rso("ID")%>" class="hover"><span class="overlay link"></span>
<img src="/script/advancedresizetool.aspx?format=jpeg&quality=40&mode=0&width=100&height=100&path=<%=immagine%>" /></a></div>
<div class="excerpt">
<p><%=rso("descrizione")%></p>
Dimensioni: <%=rso("misure")%><br />
Prezzo: <%=formatnumber(rso("prezzo"),2)%><%=rso("note-prezzo")%>
</div>
</div>
<%
rso.movenext
end if
next
else %>
Non ci sono quadri presenti
<% end if %>
la linea 93 è
codice:
if rs2("nome") <> "" AND rs2("cognome") <> "" AND rs2("epigrafe") <> "" then
Grazie in anticipo