Connessione chiusa o non valida

[marco25b]

Ciao a tutti!

mmh ... mi da questo errore: Connessione chiusa o non valida ...

ho impostato così ma non metteteti a ridere!

Conn_String = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("directory.mdb") 
Set conn = Server.CreateObject("ADODB.Connection")
Set conn = Server.CreateObject("ADODB.Recordset")

conn.open Conn_String

senza Set conn = Server.CreateObject("ADODB.Recordset") tutto funziona .... cosa ho combinato?
Grazie 1000 a tutti

[marco_c]

il comando Server.CreateObject("ADODB.Recordset") serve per aprire un recordset. non serve per la connessione

[marco25b]

veramente ho invertoto e ora funziona .. ma ora mi da 1 altro problema mi dice "Necessario oggetto" alla riga 21; var Quanti = parseInt(Rs.RecordCount)

xkè?

[weppos]

Posta la parte di codice interessata.

[sb82]

hai fatto
Set Rs = Server.CreateObject ("ADODB.Recordset")
Set Rs.ActiveConnection = Conn

o hai lasciato set conn con il recordset???

[marco25b]

ciao weppos questo è il codice ...

  sql = "SELECT titolo, id, email FROM sito "
  Set rsModulo= Server.CreateObject("ADODB.Recordset")
  rsModulo.Open sql, conn, 3, 3

 var Quanti = parseInt(Rs.RecordCount)
    RsModulo.MoveFirst()

   

var Casuale = parseInt(Math.random() * Quanti)
    RsModulo.Move(Casuale)

grazie sb82 ho risolto quel problema

[sb82]

il recordset lo hai chiamato rsModulo quindi devi fare rsModulo.RecordCount

[marco25b]

ora mi dice Tipo non corrispondente non c'è un modo più semplice x estrarre un record random?