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

[Santino83_02]

http://forum.html.it/forum/showthrea...99#post9960799

[enricoska]

Mitico! (dopo qualche aggiustatina)
Ecco il codice in ASP:

Set cn = Server.CreateObject("ADODB.Connection")
With cn
    .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\temp\db2.mdb"
    .Open
End With                 

const adSchemaColumns = 4
Set rs = cn.OpenSchema(adSchemaColumns, Array(Empty, Empty, "tabella1"))
                        
While Not rs.EOF
   Response.Write rs("COLUMN_NAME") & " - " & rs("DESCRIPTION") & "
"
   rs.MoveNext
Wend