<% Set con = Server.CreateObject("ADODB.Connection") con.Open "Driver={MySQL ODBC 3.51 Driver};Server=localhost;Option=16834;Database=Test;" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "SELECT * FROM T1",con Do While Not rs.EOF Response.Write rs("F1") & " " & rs("F2") & "
" & vbCrLf rs.MoveNext Loop Set rs = Nothing Set con = Nothing %>