hej

kör följande lilla fina kod som jag trodde skulle fungera!

[kod] <%
call dbOpen(connect)
SQL = "Select pageText from tbl_pages where pageID = 1 and langID = 1"
Set query = Connect.Execute(SQL)
arrRows = query.GetRows()
call dbclose(connect)
%>

<%
intCols = uBound(arrRows,1) 'kollar antal kolumner, startar på 0
intRows = uBound(arrRows,2) 'kollar antal rader, startar på 0
Response.write("<table><tr><td>Radnr</td></tr>")
For cRows = 0 to intRows
Response.write "<tr><td>"& cRows &"</td>"&_
"<td>"& arrRows(0, cRows) &"</td></tr>"&_
Next
Response.write("</table>")
%>
[/kod]

men får detta lilla fel meddelande och jag kan inte förstå varför???

[kod] Kompileringsfel i Microsoft VBScript (0x800A03EA)
Syntaxfel
/aspens/Default.asp, line 26
Next[/kod]

tacksam för hjälp?

Mvh

Vad har du för kod på rad 26?

NEXT är rad:26

ursäkta att jag glömde förklara

det var en & för mycket innan ´NEXT

<code>
<%
call dbOpen(connect)

strSQL = "Select pageText from tbl_pages where pageID = 1 and langID = 1"

Set rs = Connect.Execute(strSQL)
arrRows = rs.GetRows()
rs.Close
Set rs = Nothing

call dbclose(connect)

intCols = uBound(arrRows,1) 'kollar antal kolumner, startar på 0
intRows = uBound(arrRows,2) 'kollar antal rader, startar på 0

Response.write "<table><tr><td>Radnr</td></tr>"
For cRows = 0 to intRows
Response.write "<tr><td>"& cRows &"</td>" & _
"<td>" & arrRows(0, cRows) & "</td></tr>"
Next
Response.write "</table>"

Erase arrRows
%>
</code>

Du hade & _ på raden innan next. Det var därför det blev syntaxfel.