<% set conn=server.createobject("adodb.connection") set rs=server.createobject("adodb.recordset") conn.open dsn sql = "select * from subjects" rs.open sql,conn do while not rs.eof response.write ""&rs("name")&"

" rs.movenext loop call close() %>