do while non va...

[agenti]

ho questo codice:

Set rec = Server.CreateObject("ADODB.Recordset")
				strSQL="SELECT * FROM Messaggi WHERE  idpren="& request("idpren") &" "
				rec.open strsql, conn, 1, 3
				if not rec.eof then
				Do while not rec.eof%>
				<%=Replace(rec("messaggio_corpo"),vbcrlf, "
")%>
				<% rec.movenext
				   loop
				   end if%>

mi restituisce un errore:
ADODB.Field (0x80020009)
Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.
/last_3/sito/admin/admin.asp


Tipo di browser:
sarò fuso io..........
probabile....

il caldo comincia...

[viki1967]

il recordset che richiami con il codice probabilmente nel dbase non contiene nulla...

[agenti]

contiene 9 record...

[cavicchiandrea]

Originariamente inviato da agenti
ho questo codice:

Set rec = Server.CreateObject("ADODB.Recordset")
				strSQL="SELECT * FROM Messaggi WHERE  idpren="& request("idpren") &" "
				rec.open strsql, conn, 1, 3
				if not rec.eof then
				Do while not rec.eof%>
				<%=Replace(rec("messaggio_corpo"),vbcrlf, "
")%>
				<% rec.movenext
				   loop
				   end if%>

mi restituisce un errore:
ADODB.Field (0x80020009)
Il record corrente corrisponde all'inizio o alla fine del file oppure è stato eliminato. Per eseguire l'operazione richiesta è necessario disporre di un record corrente.
/last_3/sito/admin/admin.asp


Tipo di browser:
sarò fuso io..........
probabile....

il caldo comincia...

Prova cosi:

Do while not rec.Bof

Domanda il campo "idpren" e un campo contatore?

Se si la sintassi della sql e questa:

strSQL="SELECT * FROM Messaggi WHERE  idpren="& request("idpren")

Ciao

[agenti]

ho modificato così:

Set rec = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM tMessaggi WHERE idpren="& request("idpren")
rec.open strsql, conn
if not rec.bof then
do while not rec.bof%>
<%=(rec("messaggio_corpo"))%>
<% rec.movenext
loop
%>

ho anche eliminato la condizione idpren per verificare....
ma non va...

[cavicchiandrea]

Originariamente inviato da agenti
ho modificato così:

Set rec = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM tMessaggi WHERE idpren="& request("idpren")
rec.open strsql, conn
if not rec.bof then
do while not rec.bof%>
<%=(rec("messaggio_corpo"))%>
<% rec.movenext
loop
%>

ho anche eliminato la condizione idpren per verificare....
ma non va...

Prova cosi:

do while rec.Eof = true

[agenti]

pazzesco...

ho fatto così...

Set rs = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM tMessaggi "
rs.open strsql, conn, 1, 3
if not rs.eof then
Do while rs.eof = true%>
<%=(rs("messaggio_corpo"))%>
<% rs.movenext
loop
end if
%>


semplificando la ricerca...
non va più in errore ma l'area di testo è vuota...

[maximum]

<%
Set rec = Server.CreateObject("ADODB.Recordset") 
strSQL="SELECT * FROM tMessaggi WHERE idpren= " & request("idpren")
rec.open strsql, conn 
if not rec.eof then 
   do while not rec.eof
      response.write(rec("messaggio_corpo")) 
      rec.movenext 
   loop 
end if
%>

[agenti]

x max

<%
Set rec = Server.CreateObject("ADODB.Recordset")
strSQL="SELECT * FROM tMessaggi WHERE idpren= " & request("idpren")
rec.open strsql, conn
if not rec.eof then
do while not rec.eof
response.write(rec("messaggio_corpo"))
rec.movenext
loop
end if
%>

ma hai copiato??
il codice è uguale all'inizio...
e da sempre lo stesso errore...

hai modificato solo il response.write

[Roby_72]

<% 
Set rec = Server.CreateObject("ADODB.Recordset") 
strSQL="SELECT * FROM tMessaggi WHERE idpren= " & request("idpren") 
rec.open strsql, conn 
if not rec.eof then 
do while not rec.eof 
appo = rec("messaggio_corpo")
response.write(replace(appo, VbCrLf, "
"))
rec.movenext 
loop 
end if 
%>

Roby