Akses MySQL pada ASP Classic

Dim sConnection
Dim oConnection
Dim oRS

sConnection = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=[ipserver]; DATABASE=[namaDataBase]; UID=[user];PASSWORD=[password]"

Set oConnection = Server.CreateObject("ADODB.Connection")

oConnection.Open(sConnection)

Set oRS = oConnection.Execute("SELECT * FROM siswa")

While Not oRS.EOF
  Response.Write oRS ("namafield") & "  " & oRS ("namafield") & "<br>"
  oRS.MoveNext
Wend

oRS.Close
Set oRS = Nothing

oConnection.Close
Set oConnection = Nothing


Namun sebelumnya server IIS harus diinstall Connector/ODBC
bisa didownload di disini

Demikian