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 %>