traduz codice VB --> ASP

[enricoska]

Ciao, potete convertirmi questo codice VB in ASP?
Grazie

(Originariamente inviato da sspintux )

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset

Set cn = New ADODB.Connection

With cn
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db2.mdb"
    .Open
End With

Set rs = cn.OpenSchema(adSchemaColumns, Array(Empty, Empty, "Tabella1"))

EDIT adSchemaColumns = 4

While Not rs.EOF
   Debug.Print rs!COLUMN_NAME & " " & rs!DESCRIPTION
   rs.MoveNext
Wend