Loop i loop

Jeg kører nedenstående loops. Nu vil jeg gerne have at disse loops bliver til én, ud fra et overordnet loop som kigger i en anden tabel efter overskrifter. Det er for at kunne lave en select sætning som spørger ud fra hvilket overordnet loop man befinder sig i. Lyder i sig selv lidt kryptisk men håber i forstår. I det overordnede loop skal den kigge i en anden tabel, hvor jeg har skrevet første, anden og tredje. Således ser mit script ud nu:


Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/vti_log/databasen.mdb")
Conn.Open DSN
strSQL = "Select * From tabel where kolonne ='første'"
Set rs = Conn.Execute(strSQL)
Do While Not rs.EOF
response.write ("link")
rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/vti_log/databasen.mdb")
Conn.Open DSN
strSQL = "Select * From tabel where kolonne ='anden'"
Set rs = Conn.Execute(strSQL)
Do While Not rs.EOF
response.write ("link")
rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/vti_log/databasen.mdb")
Conn.Open DSN
strSQL = "Select * From tabel where kolonne ='tredje'"
Set rs = Conn.Execute(strSQL)
Do While Not rs.EOF
response.write ("link")
rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing


- men jeg vil gerne have det til at se således ud (hvilket selvfølgelig ikke virker på mit gebrokken asp sprog):



Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/vti_log/databasen.mdb")
Conn.Open DSN
strSQL = "Select * From tabel1 where kolonne <> ''"
Set rs = Conn.Execute(strSQL)
Do While Not rs.EOF

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/vti_log/databasen.mdb")
Conn.Open DSN
strSQL = "Select * From tabel2 where kolonne ='tabel1 fra det overordnede loop'"
Set rs = Conn.Execute(strSQL)
Do While Not rs.EOF
response.write ("link")
rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing

rs.MoveNext
Loop
Conn.Close
Set Conn = Nothing