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??