Problem med hämtning från databas

Tjena!
Jag håller på med ett forum där jag först vill hämta alla poster med UndermeddelandeID=0. Inne i loppen vill jag hämta en annan post, MeddelandeID=UndermeddelandeID. Här följer ett exempel, hoppas ni förstår ;) .

<table border="0" cellpadding="0" cellspacing="0">

		<tr>
		<td align="left" width="50%" bgcolor="#266C90"><b>Rubrik</b></td>
		<td align="left" width="130" bgcolor="#266C90"><b>Startat av</b></td>
		<td align="left" width="130" bgcolor="#266C90"><b>Startat den</b></td>
		<td align="left" width="10" bgcolor="#266C90"><b>Svar</b></td>
		</tr>

		<%
		'--------------------------------------------------------
		' Öppna databasen
		'--------------------------------------------------------
		password    = "+++"
		databas     = "AspForum.mdb"
		DBPath      = Server.Mappath(mid(Request.ServerVariables("PATH_INFO"),1,instrrev(Request.ServerVariables("PATH_INFO"), "\")) & databas)
		Set MinCon  = Server.CreateObject("ADODB.Connection")
		MinCon.Open   "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & DBPath & ";uid=;pwd=" & password & ";"
		Set databas = Server.CreateObject("ADODB.Recordset")

		SQL = "SELECT * From Forum WHERE UndermeddelandeID = 0"
		databas.Open SQL, MinCon, 1, 2

		'--------------------------------------------------------
		' Vissa alla meddelanden i detta ämne
		'--------------------------------------------------------
		Do While Not databas.EOF

			If color = "#FFFFFF" Then
				color = "#DBDBDB"
			Else
				color = "#FFFFFF"
			End If
			%>

			<tr>
			<td bgcolor="<%=color%>"><%=databas("Rubrik")%></td>
			<td bgcolor="<%=color%>"><%=databas("PostatAv")%></td>
			<td bgcolor="<%=color%>"><%=databas("PostatDen")%></td>

				<%
				SQL = "SELECT * From Forum WHERE UndermeddelandeID = sql1.MeddelandeID"
				databas.Open SQL, MinCon, 1, 2

				'--------------------------------------------------------
				' Vissa alla meddelanden i detta ämne
				'--------------------------------------------------------

					<td align="center" bgcolor="<%=color%>"><%=databas("Svar")%></td>
					</tr>

				<% databas.Close %>

			<%
			databas.MoveNext

		Loop
		databas.Close
		%>

		</table>

------------------
Mvh Ricki
www.ricki.nu

[Redigerat av Ricki den 18 jul 2000]