<%

Dim my_conn, strSQL

Set my_conn = createobject("ADODB.Connection")

my_conn.open = "DRIVER={MySQL ODBC 3.51 Driver};"_
& "SERVER=localhost;"_
& "DATABASE=tutorialdb;"_
& "UID=root;PWD=; OPTION=35;"

strSQL = "SELECT * FROM UserEmails"

Set rs = conn.Execute(strSQL)

Do while not rs.eof ' Do until it reaches end of db


Response.Write "User ID# " & rs("userID") & "<br>"
Response.Write "Name: " & rs("name") & "<br>"
Response.Write "Email: " & rs("email") & "<br>"

rs.MoveNext
loop

my_conn.close
Set my_conn = nothing
%>