Algus
<%
  set cn=server.createObject("ADODB.Connection")
  cn.open "DSN=baas1"
  set rs=cn.execute("select teade from teated")
  while not rs.eof
    response.write rs("teade")
    rs.moveNext
  wend
  cn.close
%>