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