<%

Set cn = Server.CreateObject("ADODB.Connection")

cn.Open Application("guestDSN")

sql = "SELECT * FROM authors"

Set RS = cn.Execute(sql)

ary = rs.GetRows(10)

rs.close

cn.close

%>

<%

nRows = UBound( ary, 2 )

For row = 0 To nRows %>

<% For col = 0 To UBound( ary, 1 ) %>

<% Next %>

<% Next %>

<%= ary( col, row ) %>