Do While... Loop

Tjena,
Jag pysslar med ett forum med followt menyer. Typ ett sådan här: http://www.webeye.nu/default.asp?que=forum/forum.asp&id=27 .

Om man trycker på pluset kommer det ut en lista med alla svar.

Mitt problem är att den loppar först de vanliga. När man trycker på +:et visas alla svar i detta meddelande mna valt. Men sedan visar den ej resten av meddlenadena.

Dattabasen är EndOfFile

'--------------------------------------------------
		' Skapa en instans av connection-objektet och ett recordset objekt
		'--------------------------------------------------
		password    = "xxx"
		databas     = "xxx.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")

		'-------------------------------------------------------
		' Öppna sql och recordset
		'-------------------------------------------------------
		SQL = "SELECT * From HUVUDFORUM Order BY Datum DESC"
		databas.Open SQL, MinCon, 1, 2

			'-------------------------------------------------------
			' Gör första loopen, detta skriver ut alla meddelanden
			'-------------------------------------------------------
			Do While Not databas.EOF

				%><script>alert("Loop1")</script><%

				'-------------------------------------------------------
				' Ett vilkor. Filtrera bort poster där forelder ej är 0
				'-------------------------------------------------------
				If databas("Forelder") = 0 Then

					'-------------------------------------------------------
					' Gör själva ut och in menyn. Kolla om något är utvecklat eller ej
					'-------------------------------------------------------
					Visa = Request.Querystring("visa")

					If databas("Svar") <> 0 Then
						If cStr(Visa) = cStr(databas("MeddelandeID")) Then
							MinusPlus = "&nbsp;<a href='forum.asp?id=main'>-</a>&nbsp;"
						Else
							MinusPlus = "&nbsp;<a href='forum.asp?id=main&visa=" & databas("MeddelandeID") & "'>+</a>&nbsp;"
						End If
					Else
						MinusPlus = "&nbsp;<a href='forum.asp?id=main'>-</a>&nbsp;"
					End If

					'-------------------------------------------------------
					' Skriv ut detta om ett meddelande är utvecklat
					'-------------------------------------------------------
					If cStr(Visa) = cStr(databas("MeddelandeID")) Then
					%>

						<tr>
						<td nowrap><%=MinusPlus%></td>
						<td><a href="forum.asp?id=lasa&nr=<%=databas("MeddelandeID")%>"><%=databas("Amne")%></a></td>
						<td nowrap><%=databas("Postare")%></td>
						<td nowrap><%=FormatDateTime(databas("Datum"),2)%></td>
						<td nowrap align=center><%=databas("Svar")%></td>
						</tr>
	
						<%
						databas.MoveFirst

						Do While Not databas.EOF

							%><script>alert("Lopa igenom databasen2")</script><%

							'-------------------------------------------------------
							' Leta efter ett svar i den utvecklade menyn
							'-------------------------------------------------------
							If cStr(databas("Forelder")) = cStr(Visa) Then
							%>

								<script>alert("Nu hittade den ett svar")</script>

								<tr>
								<td nowrap>&nbsp;</td>
								<td>&nbsp;&nbsp; <a href="forum.asp?id=lasa&nr=<%=databas("MeddelandeID")%>"><%=databas("Amne")%></a></td>
								<td nowrap><%=databas("Postare")%></td>
								<td nowrap><%=FormatDateTime(databas("Datum"),2)%></td>
								<td nowrap align=center>&nbsp;</td>
								</tr>

							<%
							End If

							databas.MoveNext
						Loop

					'-------------------------------------------------------
					' Skriv ut detta om inget meddlenade är utvecklat
					'-------------------------------------------------------
					Else
					%>

						<tr>
						<td nowrap><%=MinusPlus%></td>
						<td><a href="forum.asp?id=lasa&nr=<%=databas("MeddelandeID")%>"><%=databas("Amne")%></a></td>
						<td nowrap><%=databas("Postare")%></td>
						<td nowrap><%=FormatDateTime(databas("Datum"),2)%></td>
						<td nowrap align=center><%=databas("Svar")%></td>
						</tr>

					<%
					End If

				End If

				databas.MoveNext
			Loop

		databas.Close
		%>

Snälla, HJÄLP!!

------------------
Hälsningar Ricki
www.ricki.nu