Errore che non capisco

[Freedom]

Aiuto!!!!

Non sto capendo perchè non funge questo codice:

Dim ObjRS, StrSQL
Set ObjRS = Server.CreateObject("ADODB.Recordset") 
StrSQL ="SELECT * FROM Users WHERE Con = 1"
ObjRS.Open StrSQL, ObjConn, adOpenStatic, adLockReadOnly, adCmdText
			
If Not ObjRS.EOF Then 'se sono presenti utenti
   Do While Not ObjRS3.EOF

	Dim Nomi
	Nomi = Nomi&","&ObjRS("Nome")&"," 

ObjRS.MoveNext
Loop

L'errore è:
Microsoft VBScript runtime error '800a000d'

Type mismatch
La riga è quella in rosso.

Dove sbaglio??

[99eros9]

"Dim nomi" mettilo fuori dal ciclo.

[Freedom]

Originariamente inviato da 99eros9
"Dim nomi" mettilo fuori dal ciclo.

Ciao 99eros9!


Ho fatto ma non è cambiato nulla

[99eros9]

Do While Not ObjRS3 .EOF

il 3 cos'è?

[Freedom]

Originariamente inviato da 99eros9
Do While Not ObjRS3 .EOF

il 3 cos'è?

No, non è quello il problema... è un errore di battitura

[rixx]

di battitura?
ma non capisco tutti questi errori...copia+incolla non è piu semplice?

[Freedom]

Originariamente inviato da rixx
di battitura?
ma non capisco tutti questi errori...copia+incolla non è piu semplice?

si ma dovevo 'limare' qualcosa...

[maximum]

Prova così:

Dim ObjRS, StrSQL
Set ObjRS = Server.CreateObject("ADODB.Recordset") 
StrSQL ="SELECT * FROM Users WHERE Con = 1"
ObjRS.Open StrSQL, ObjConn
			
If Not ObjRS.EOF Then 'se sono presenti utenti
   Do While Not ObjRS3.EOF

	Dim Nomi
	Nomi = Nomi&","&ObjRS("Nome")&"," 

        ObjRS.MoveNext
   Loop
End If

[99eros9]

Se tu mandi un codice "limato", allora non solo ti impazzisci tu, ma pure chi cerca di aiutarti.