<% 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 %>