felmeddelande

1 svar · 163 visningar · startad av maniac 19 feb. 2001

maniacMedlem sedan feb. 200150 inlägg

Frågan19 feb. 2001 16:39#1

vad är fel här?

<html>
<head>
<title>test</title>
</head>

<%	
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=E:\inetpub\wwwroot\test.mdb" 

Set RecSet = Server.CreateObject("ADODB.Recordset") 

VISA ="select * From test WHERE ID = " & Request.Querystring("strID")
RecSet.Open Visa, Connect, adOpenDynamic

Do Until RecSet.EOF
%>

<font face="verdana" size="1">
<b>inlägg:</b><br><br>
<%=Recset("strNamn")%> - <%=RecSet("strRubrik")%> (<%=RecSet("strDatum")%><br>
<%=RecSet("msg")%>

<%
 RecSet.Close
 Connect.Close
%>

jag får detta felmeddelande:

Feltyp:
Kompileringsfel i Microsoft VBScript (0x800A03FB)
'Loop' förväntas.
/view.asp, line 25

jag har ju inget loop, så varför står detta? hur ska det vara för att fungera?

@ndersMedlem sedan juni 200032 967 inlägg

19 feb. 2001 16:44#2

du har ju startat en loop här:

[b]Do Until RecSet.EOF[/b]
%>

<font face="verdana" size="1">
<b>inlägg:</b><br><br>
<%=Recset("strNamn")%> - <%=RecSet("strRubrik")%> (<%=RecSet("strDatum")%><br>
<%=RecSet("msg")%>

<%
RecSet.Close
Connect.Close
%>

men du loopar ju inte. nånting sånt här får du göra för att få loopen att loopa i alla fall:

Do Until RecSet.EOF
%>

<font face="verdana" size="1">
<b>inlägg:</b><br><br>
<%=Recset("strNamn")%> - <%=RecSet("strRubrik")%> (<%=RecSet("strDatum")%><br>
<%=RecSet("msg")%><br><br>

<%
RecSet.movenext
[b]Loop[/b]
RecSet.Close
Connect.Close
%>

du får nog peta lite på det så du får det som du vill ha det, men du förstår principen?

mvh,

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
if i'm not back in five minutes, just wait longer.</A>