<% Dim sConnection, objConn , objRS sConnection = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=hampeh; UID=hampeh;PASSWORD=123123123; OPTION=3" Set objConn = Server.CreateObject("ADODB.Connection") objConn.Open(sConnection) Set objRS = objConn.Execute("SELECT Nota, Name FROM tblNota") While Not objRS.EOF Response.Write objRS.Fields("Nota") & ", " & objRS.Fields("Name") & "
" objRS.MoveNext Wend objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %>