Contare le tuple in SQL

[deio]

Salve a tutti, devo contare questa stringa:

sql = "SELECT COUNT(IDContatto) as conto FROM model WHERE ID_Status >= 4"
Set Rs = Connect.Execute(sql)

Come faccio a ritornare il valore ridenominato conto?
Grazie anticipatamente..

Ma

[longline]

Come qualsiasi altro campo

Response.Write Rs("conto")

[deio]

credo che l'errore non stava li..
Sto cercando di fare una selezione random, ma non riesco a uscirne fuori.. Ti posso postare il problema?

Microsoft VBScript runtime error '800a000d'
Type mismatch

[longline]

Non ho capito bene, allora...

[deio]

Tutti questi problemi si sono verificati da quando ho trasferito il dominio su server W2003 e base dati mysql.
Comunque:
DEvo richiamare un contatto random:

Set Rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT COUNT(IDContatto) as conto FROM modelle WHERE ID_Status >= 4"
rs.Open sql,Connect,3,3
Max = Rs("conto")
Rs.Close
Set Rs = Nothing
'Response.Write Max&"
"

If Max > "0" Then
Max = Max -1
End If

'Response.Write Max&"
"

Randomize()
Casuale = Int(Rnd() * Max)
'Response.Write Casuale

Set Rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM model WHERE ID_Status >= 4 "
rs.Open sql,Connect,3,3
If Not Rs.EOF Then
Rs.MoveFirst
Rs.Move Casuale
cod = Rs("IDContatto")
Else
Response.Write "Nessun contatto trovato"
End If
Rs.Close
Set Rs = Nothing


Errore restituito:
Microsoft VBScript runtime error '800a000d'

Type mismatch

[longline]

Evidenzia con un qualche colore la riga che dà errore.

[deio]

Originariamente inviato da deio
Tutti questi problemi si sono verificati da quando ho trasferito il dominio su server W2003 e base dati mysql.
Comunque:
DEvo richiamare un contatto random:

Set Rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT COUNT(IDContatto) as conto FROM modelle WHERE ID_Status >= 4"
rs.Open sql,Connect,3,3
Max = Rs("conto")
Rs.Close
set Rs = nothing
'Response.Write Max&"
"

If Max > "0" Then
Max = Max -1
End If

'Response.Write Max&"
"

Randomize()
Casuale = Int(Rnd() * Max)
'Response.Write Casuale

Set Rs = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM model WHERE ID_Status >= 4 "
rs.Open sql,Connect,3,3
If Not Rs.EOF Then
Rs.MoveFirst
Rs.Move Casuale
cod = Rs("IDContatto")
Else
Response.Write "Nessun contatto trovato"
End If
Rs.Close
Set Rs = Nothing


Errore restituito:
Microsoft VBScript runtime error '800a000d'

Type mismatch

[longline]

Mi sembra molto strano che tu possa ricevere quell'errore se hai già eseguito correttamente la Set precedente

[deio]

infatti l'errore che punta non è corretto..
Sto provando con dei debug specifici su ogni riga..
Quel parametro max lo passo tranquillamente.
Secondo me è un problema di randomize non più accettato con w2k3 server, ora provo a cercare...