En el ejemplo nos conectaremos a MYSQL a través de un DSN y realizamos un consulta SQL
<%
Set con = Server.CreateObject("ADODB.Connection")
con.Open "DSN=MIDSN;"
Set rs = con.Execute("SELECT * FROM MITABLA")
Do While Not rs.EOF
response.write rs.Fields("Campo").Value
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
con.Close
Set con = Nothing
%>
