<%
set cn=server.createObject("ADODB.Connection")
cn.open("DSN=esimene")
set rs=cn.execute("SELECT * FROM nimed ;")
if not rs.EOF then
response.write("
")
do until rs.EOF
response.write ("
" & rs("nimi"))
rs.moveNext
loop
for each vali in rs.fields
response.write "
" & vali.name
next
rs.moveFirst
response.write(rs.getstring(,, "