<% 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(,, "	", "
", " ")) response.write("

") end if %>