<%
Set Conn = Server.CreateObject( "ADODB.Connection")
'On Error Resume Next
Conn.Open "DSN=univ;UID=;PWD="

sql = "SELECT * FROM students "
Set rst = Conn.Execute(sql)
%>




<%Do While not rst.eof%>




<%rst.movenext Loop Conn.Close%>

Students	ID	Name	Age
<%=rst("ID")%>	<%=rst("Name")%>	<%=rst("Age")%>