Καλημέρα σας,

Γιώργο ευχαριστώ για τον κώδικα. Δεν μου δούλεψε όμως. Στη γραμμή "myConn.CursorLocation = adUseClient", όπου myConn είναι ένα ADODB.Connection object. παίρνω το εξής σφάλμα: 

ADODB.Connection error '800a0bb9'

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

Δυστυχώς σήμερα δεν έχω το χρόνο να το κοιτάξω λίγο παραπάνω. Θα το δω κάποια στιγμή (με περισσότερη άνεση χρόνου) και θα επιστρέψω αν έχω κάτι..

Απλά για να κλείσει το thread, η λύση του Γιώργου είναι η σωστή, απλά στην asp δεν ισχύουν τα enums για τα CursorLocation, CursorType, κτλ και έπρεπε να βάλω τους σωστούς αριθμούς. 

    Set cn = Server.CreateObject("ADODB.Connection")
    cn.ConnectionString = "Provider=SQLOLEDB.1;Password=******;Persist Security Info=True;User ID=******;Initial Catalog=******;Data Source=******"
    cn.CursorLocation = 3
    cn.Open
    
    Set rs = Server.CreateObject("ADODB.Recordset")
    Set rs.ActiveConnection = cn
    rs.CursorLocation = 3
    rs.CursorType = 2
    rs.LockType = 3
    rs.Source = "users"