[SOLVED] Connecting/Using MySQL and ASP

<% on error resume next %>
<%
    dim adoConn
    dim adoRS
    dim counter
    dim strQuery
    
    set adoConn = Server.CreateObject("ADODB.Connection")
    set adoRS = Server.CreateObject("ADODB.Recordset")
    
    adoConn.Open "Driver={mySQL ODBC 3.51 Driver}; Server=localhost; Port=3306; Option=4; Database=address; Uid=root;Pwd=monie;"
    adoRS.ActiveConnection = adoConn
    
    if adoConn.errors.count = 0 then
    
    response.write "<h2>Fields In The 'Contacts' Table:</h2>"
    adoRS.Open "describe contacts"
    while not adoRS.EOF
    
    response.write adoRS.fields(0).value & "<br>"
    adoRS.MoveNext
    wend
    else
    response.write "ERROR: Couldn't connect to database"
    end if
%>

<% on error resume next %>
<%
Dim sConnection, objConn , objRS

sConnection = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=address; OPTION=4; UID=root;PASSWORD=monie;"
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open(sConnection)
Set objRS = objConn.Execute("SELECT * FROM contacts")

While Not objRS.EOF
Response.Write objRS.Fields("firstName") & ", " & objRS.Fields("lastName") & "<br>"
objRS.MoveNext
Wend

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>