set connect = server.createobject("adodb.connection")
connect.open "dsn"
sql = "select hlag.lagnamn as hnamn,blag.lagnamn as bnamn from lag as hlag,match, lag as blag where
hlag.lagid = match.hlagid and match.blagid = blag.lagid "
set rs = connect.execute(sql)
while not rs.eof
'skriv ut data
response.write rs("hnamn") & "<br>"
response.write rs("bnamn") & "<br>"
rs.movenext
wend
rs.close
connect.close
------------------
essentitia preter non sans multiplicandum