Allora, appena provato con il tuo modo e senza, incollo il codice e poi spiego
Codice PHP:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%Response.Buffer = True%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Documento senza titolo</title>
</head>
<%
Sql = "SELECT MAX(NumArchivio) AS maximo FROM qryPolizze"
Set rsArchivio = Server.CreateObject("ADODB.RecordSet")
rsArchivio.Open Sql, MyConn, 3, 3
%>
<body>
<%
'maximo = rsArchivio("maximo")
%>
<%
For num = 1 To maximo
If Not rsArchivio.EOF then
If rsArchivio("NumArchivio") <> num then
'exit For
Response.Write(num)
Response.Write rsArchivio("maximo")
Else
rsArchivio.MoveNext
Response.Write(num)
End If
End If
Next
%>
</body>
</html>
Dunque, vado a fare un write mettendo soltanto Response.Write rsArchivio("maximo") mi restitutisce 3 che è il valore più alto, perfetto.
Se stampo num, mi scrive 123 e ok anche qui.
Se metto Exit For non stampa comunque niente a video sia con la riga
Codice PHP:
'maximo = rsArchivio("maximo")
commentata o meno.
Se metto così come vedi il codice a schermo non stampa assolutamente niente.
Se tolgo il commento a
Codice PHP:
'maximo = rsArchivio("maximo")
mi esce fuori
Codice PHP:
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/public/pippo.asp, line 23
dove la linea 23 è
Codice PHP:
If rsArchivio("NumArchivio") <> num then
e comunque num non dovrebbe contenermi tutti i record, ma solo l'ultimo + 1 o il mancante, ovvero se ho tre record (1,2,3) mi dovrebbe stampare solo 4 in un campo di testo mentre, se ho 1, 3 mi dovrebbe stampare il 2.
Grazie grazie
Rispondi quotando
