Expected statement?
Hejsa, jeg får følgene fejl når jeg kører nedenstående script:Microsoft VBScript compilation error '800a0400'
Expected statement
/aspleg/inc/chg2html.inc, line 24
End Funktion
^
<%
Funktion Chg2HTML(StrContent)
Do
if Instr(StrContent, "|b|") then
StrContent = Replace(StrContent, "|b|", "<b>")
StrContent = Replace(StrContent, "|/b|", "</b>")
elseif Instr(StrContent, "|i|") then
StrContent = Replace(StrContent, "|i|", "<i>")
StrContent = Replace(StrContent, "|/i|", "</i>")
elseif Instr(StrContent, "|a|") then
StrContent = Replace(StrContent, "|a|", "<a href='")
StrContent = Replace(StrContent, "|\a|", "'>")
StrContent = Replace(StrContent, "|/a|", "</a>")
elseif Instr(StrContent, "|center|") then
StrContent = Replace(StrContent, "|Center|", "<center>")
StrContent = Replace(StrContent, "|/Center|", "</center>")
elseif Instr(StrContent, "|br|") then
StrContent = Replace(StrContent, "|br|", "<br>")
else
exit do
end if
Loop
Chg2HTML = StrContent
End Funktion
%>
Det forstår jeg ikke, da jeg mener det er sat rigtigt op? Hvad er der forkert i det?
Morten
