C:\Inetpub\wwwroot\default.asp
<%@ LANGUAGE=VBScript %>
<%
Set conn = Server.CreateObject(“ADODB.Connection”)
conn.Open “DSNtest”
set rs=conn.execute(“select * from table1”)
do while not rs.eof
response.write rs(“name”)+“ ”
rs.movenext
loop
rs.close
conn.close
%>