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
la linea 93 è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 %>Grazie in anticipocodice:if rs2("nome") <> "" AND rs2("cognome") <> "" AND rs2("epigrafe") <> "" then

Rispondi quotando