errore "Eccezione"

[andy_s]

ciao
mi aiutate a sistemare questa pagina...

<%@ Language=VBScript %>

<%
sql="SELECT * FROM dati"

' esecuzione della sql sul db
Set Rs = Conn.Execute(sql)

' verifichiamo se abbiamo trovato dei dati
'If Rs.EOF Then

' non ci sono dati
'Response.Write "Non ci sono dati disponibili!"

'Else

x = 0
Do until(x=5)
  x = x + 1
  Response.Write("nome"&x&"="&Rs("nome")&"&cognome"&x&"="&Rs("cognome"))
  Rs.MoveNext
  If x<5 then Response.Write("&")
Loop

' i dati ci sono e li leggiamo con un ciclo di lettura fino all'ultimo
'Do Until Rs.EOF
'id = (rs("id"))
'nome = (rs("nome")) 
'cognome = (rs("cognome")) 
'data = (rs("data"))
 'nome = "PROVA"

'response.write("id="&id&"&nome="&nome&"&cognome="&cognome&"&data="&data&"&")
' originale response.write("&nome="& nome&"&cognome="& cognome&"&")
'response.write("&cognome="& cognome&"&")


' ci spostiamo al prossimo record
'Rs.MoveNext

' ripetiamo il ciclo
'Loop
'End If

' chiudiamo gli oggetti e ripuliamo la memoria
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
%> 

mi da sempre

Tipo di errore:
(0x80020009)
Eccezione.
/lavori/dal/SITO/gestione_record/news.asp, line 20

ciao

[Roby_72]

Ciao a te...
Qual'è la linea 20?
Ci sono un sacco di righe commentate... non si capisce.

Roby

[faccia da libro]

Originariamente inviato da andy_s

' i dati ci sono e li leggiamo con un ciclo di lettura fino all'ultimo 

così a occhi mi sembra che l'errore stà nella riga che ho quotato

infatti l'apice nella parola "all'ultimo" decommenta di fatto le righe successive creando ovviamente problemi
prova a cancellare l'intera riga del commento e facci sapere

[optime]

Originariamente inviato da faccia da libro
così a occhi mi sembra che l'errore stà nella riga che ho quotato

infatti l'apice nella parola "all'ultimo" decommenta di fatto le righe successive creando ovviamente problemi
prova a cancellare l'intera riga del commento e facci sapere

de-commentare? VVoVe: e da quando? NESSUNA versione di basic (e io lo conosco dal primissimo GW-basic / Basic IBM) lo fa!

[rotteninside]

...

[rotteninside]

quando leggi il recordset, a seguito del movenext all'interno del do verifica di non essere alla fine del file.

Potresti modificare in questo modo :

x = 0
Do while not rs.eof
  x = x + 1
  Response.Write("nome"&x&"="&Rs("nome")&"&cognome"&x&"="&Rs("cognome"))  
  If x<5 then 
     Response.Write("&")
  else
     exit do
  end if
  Rs.MoveNext
Loop

[andy_s]

funziona
grazie a tutti
in realtà la riga 20 era questa

 Response.Write("nome"&x&"="&Rs("nome")&"&cognome"&x&"="&Rs("cognome")) 

ciao

[rotteninside]

[andy_s]

ora mi serve aggiungere un campo "tot"
avrei fatto cosi...però mi scrive 1
anche se i record sono 2

x = 0
Do while not rs.eof
  x = x + 1
  Response.Write("nome"&x&"="&Rs("nome")&"&cognome"&x&"="&Rs("cognome"))  
  If x<5 then 
     Response.Write("&")
  else
     exit do
  end if
  Rs.MoveNext
Loop 
Response.Write ("tot="& rs.recordcount) 

cosa sbaglio????

ciao

[rotteninside]

prova a stampare direttamente x invece che il recordcount.

il recordset prova ad aprirlo così :

rs.open SQL , Conn, 3,3