en SKum Loop...

Hej Svejs.

Jag har en loop för att få ut all data ur min Flash / Asp / Access Gästbok.

En DO WHILE NOT Recset.EOF.

Så här ser loopen ut:

<%
Response.Expires = -1000

Dim oConnection
Dim oRecordset
Dim strSQL

Set oConnection = Server.CreateObject("ADODB.Connection")
oConnection.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("g_book.mdb")) 'ANGE DIN ABSOLUTA SÖKVÄG

strSQL= "SELECT * FROM data ORDER BY ID;"

Set oRecordset = oConnection.Execute(strSQL)

Response.Write("msgs=")

Do While NOT oRecordset.EOF
Alltext = "<fontcolor='#FFFFFF' face='verdana' size='10pt'><b>Namn: </b>" & oRecordset("Namn").Value & "</font>" & oRecordset("Mail").Value & oRecordset("Hemsida").Value & oRecordset("Icq").Value & "<br><br><b>" & oRecordset("Rubrik").Value & "</b><br>" & oRecordset("Meddelande").Value & "<br><br><font color='#CC0000' size='9pt'><I>" & oRecordset("Datum").Value & "</I></font><font color='#FFFFFF' size='9pt'>     |     </font><font color='#CC0000' size='9pt'><I>" & oRecordset("Ipnummer").Value & "</I></font>" & "<br><font color='#CCCCCC'> ______________________________________________<br><br></font>"

		Response.Write(Alltext)	
	
	oRecordset.MoveNext

Loop

	Response.Write("&loaded=true")

Set oConnection = NOTHING
Set oRecordset = NOTHING
%>

Men har jag det här, så får jag felmesset:

msgs=
ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/flashbook/g_book_lasa.asp, line 19

Vad är fel?? Och vad ska jag göra??

Skriver jag tex. Alltext = "Micke A"

Så skrivs "Micke A" ut fyra ggr.

Men annars får jag bara det där jävla felmeddelandet.

Vad ska jag göra??