Hejsan!
Jag får det här felmeddelandetmeddelandet:
Error Type:
Microsoft VBScript runtime (0x800A139A)
Unexpected quantifier
När jag använder den här koden(sparad som function.inc och inkluderas sedan på ett flertal sidor):
<%
Function fixa(str)
str = "" & str
str = Replace(str, vbCrlf, "<br>" & vbCrlf)
str = Replace(str,"[1]","<font size=1>")
str = Replace(str,"[/1]","</font>")
str = Replace(str,"[2]","<font size=2>")
str = Replace(str,"[/2]","</font>")
str = Replace(str,"[3]","<font size=3>")
str = Replace(str,"[/3]","</font>")
str = Replace(str,"[4]","<font size=4>")
str = Replace(str,"[/4]","</font>")
str = Replace(str,"[5]","<font size=5>")
str = Replace(str,"[/5]","</font>")
str = Replace(str,"[6]","<font size=6>")
str = Replace(str,"[/6]","</font>")
str = Replace(str,"[fet]","<b>")
str = Replace(str,"[/fet]","</b>")
str = Replace(str,"[u]","<u>")
str = Replace(str,"[/u]","</u>")
str = Replace(str,"[k]","<i>")
str = Replace(str,"[/k]","</i>")
str = Replace(str,"[verdana]","<font face=Verdana>")
str = Replace(str,"[/verdana]","</font>")
str = Replace(str,"[arial]","<font face=Arial>")
str = Replace(str,"[/arial]","</font>")
str = Replace(str,"[seriff]","<font face=MS Sans Seriff>")
str = Replace(str,"[/seriff]","</font>")
str = Replace(str,"[helvetica]","<font face=Helvetica>")
str = Replace(str,"[/helvetica]","</font>")
str = Replace(str,"[bild]","<img src=")
str = Replace(str,"[/bild]",">")
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "\[lank url=(""?)(.*?)\1\](.*?)\[\/lank\]"
[blue]str = objRegExp.Replace(str,"<a href=""$2"" target=""_blank"">$3</a>")[/blue]
Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "\[farg=(""?)(.*?)\1\](.*?)\[\/farg\]"
fixa = objRegExp.Replace(str,"<font color=""$2"">$3</font>")
End Function
%>
Raden det är fel på är blå.
Koden har fungerat finfint förut men nu har den helt plötsligt slutat att fungera. :o
Snälla hjälp!
/Mika3l