<!-- Collection of code snippets by Arne Vajhøj -->
<!-- posted to eksperten.dk, usenet and other places (2002-now) -->
<%
Response.ContentType = "text/plain"
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={MySQL};Database=Test;User Id=root;Password=;"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open CStr(Request("query")),con
Do While Not rs.EOF
   For i = 1 To rs.Fields.Count
      Response.Write rs.Fields.Item(i-1)
      If i < rs.Fields.Count Then
         Response.Write ","
      End If
   Next
   Response.Write vbCrLf
   rs.MoveNext
Loop
Set rs = Nothing
Set con = Nothing
%>