Databaseforbindelser og loops

Hej Eksperter..

Jeg har lavet dette script, men jeg kan ikke få det til at virke.. Nogen der kan hjælpe mig med at få dette script til at virke..?

Script:

------------

<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select Distinct kolonne1 from tabel1 Where dato <> Null And Type = '" & Request.QueryString("type") & "' Order by kolonne1"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

Do
%>
<table><tr><td><% Response.Write rs("kolonne1") %></td></tr></table>
<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db.mdb")
' Åben databaseforbindelsen
Conn.Open DSN

' SQL forespørgsel
strSQL = "Select * from Apartments Where dato <> Null And Area = '" & rs("kolonne1") & "' And type = '" &  Request.QueryString("type") & "' Order by kolonne3"
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rslt = Conn.Execute(strSQL)

Do
%>
<table><td><% if rslt("kolonne2") <> "" then Response.Write rslt("kolonne2") else Response.Write "Test" %></td></tr></table>
<%
  ' Gå til næste Record i rslt
  rslt.MoveNext

Loop While Not rslt.EOF
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>
<%
  ' Gå til næste Record i rs
  res.MoveNext

Loop While Not rs.EOF
' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

------------

På forhånd tak!