Felet ligger precis som felmeddelandet tyder här:
End Sub
<html>
Du avslutar inte ASPkoden med dess avgränsare, så här skall det se ut:
End Sub
%>
<html>
------------------
Förnekar bäst som förnekar längst - helst 2-3 meter
www.webeye.nu
Frågan#1
Är det någon som vet vad det är för fel om det står:
Expected statement
/forum.asp, line 41
<html>
koden ser ut så här:
[kod]
<%
Sub DisplayChildMessages(Parent,Level)
Dim RSMeddelande
Dim SQL
Dim i
Session.LCID = 1053
Application("Sample_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=forum.mdb"
SQL = "SELECT Meddelande.Id, " & "Meddelande.Rubrik, Meddelande.Datum, " & "Anvandare.Anvandarid FROM Meddelande, Anvandare " & "WHERE Meddelande.[Anvandarid] = Anvandare.Id AND " & "Meddelande.Parent=" & Parent
SQL = "Select * from Forum Order by id desc"
RSMeddelande.Open SQL, Application, 1,2
Do While Not RSMeddelande.EOF
Response.Write "\<tr\>"
Response.Write "\<td\>"
For i = 1 to level
Response.Write " "
Next
Response.Write "\<a href='meddelande.asp?ID="
Response.Write RSMeddelande("Id") & "'\>"
Response.Write RSMeddelande("Rubrik")
Response.Write "\</a\>"
Response.Write "\</td\>\<td\>"
Response.Write RSMeddelande("Anvandarid")
Response.Write "\</td\>\<td\>"
Response.Write FormatDateTime(RSMeddelande("Datum"),2)
Response.Write "\</tr\>"
DisplayChildMeddelande RSMeddelande("id"),Level+1
RSMeddelande.MoveNext
Loop
End Sub
<html>
<head>
<title>-Forum-</title>
</head>
<%
DO UNTIL RS.EOF
counter = counter + 1
If counter Mod 2 = 0 then
color = "COCOCO"
Else
color = "COCOOO"
End If
%>
<center>
<font size="2"><a href="nyttinlagg.asp">Nytt inlägg</a></font></center>
<table border="0" width="100%" bgcolor="<%=color%>">
<tr>
<td width="70%"><strong>Rubrik</strong></td>
<td width="15%"><strong>Skrivet av</strong></td>
<td width="15%"><strong>Skrivet datum</strong></td>
</tr>
<%
RS.MOVENEXT
LOOP
%>
<%
Application("Sample_ConnectionString") = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=URL=forum.mdb"
Application.Open "Forum"
DisplayChildMeddelande 0,1
%>
</table>
[kod]
står helt stilla. :q