Varför kommer detta fel upp?? Det funkar då jag sitter med min dator och pws men då jag laddar upp den så vill den inte fungera....

Detta fel kommer:
"Oväntad kvantifierare"
<code>
Set oMatches = regExp.Execute(strText)</code>
Ni Kan kolla hur felet ser ut på: http://www.ledare.net/users/norrbotten/
<code>
Function Fix(strText)
Dim regExp, oMatches, oMatch
Dim strMatch, strURLValue, strEmail
Dim strType, nNum

Set regExp = New regexp

regExp.Global = true
regExp.IgnoreCase = true

strText = Replace(Trim(strText),vbCrLf, "<br>")

'** Leta <nsf:>
regExp.Pattern = "<nsf:(.*?)>"
Set oMatches = regExp.Execute(strText)
For Each oMatch In oMatches
strMatch = oMatch.Value
strURLValue = oMatch.SubMatches(0)

If InStr(strURLValue, ":") = 0 Then
strText = Replace(strText, strMatch, "" & strURLValue & "")
End If
Next

'** Leta
regExp.Pattern = "(.*?)"
Set oMatches = regExp.Execute(strText)
For Each oMatch In oMatches
strMatch = oMatch.Value
strURLValue = oMatch.SubMatches(0)

If InStr(strURLValue, ":") = 0 Then
strText = Replace(strText, strMatch, "" & strURLValue & "")
Else
If Left(strURLValue, 7) = "mailto:" Then
strEmail = Right(strURLValue, Len(strURLValue) - 7)
strText = Replace(strText, strMatch, "" & strEmail & "")
Else
strText = Replace(strText, strMatch, "" & strURLValue & "")
End If
End If
Next

'Tecken Stilar
strText = Replace(strText,"[f]","<b>")
strText = Replace(strText,"[/f]","</b>")
strText = Replace(strText,"[k]","<i>")
strText = Replace(strText,"[/k]","</i>")
strText = Replace(strText,"[u]","<u>")
strText = Replace(strText,"[/u]","</u>")

'Färjer
strText = Replace(strText,"[red]","<font color='red'>")
strText = Replace(strText,"[/red]","</font>")
strText = Replace(strText,"[green]","<font color='green'>")
strText = Replace(strText,"[/green]","</font>")
strText = Replace(strText,"[blue]","<font color='blue'>")
strText = Replace(strText,"[/blue]","</font>")
strText = Replace(strText,"[yellow]","<font color='yellow'>")
strText = Replace(strText,"[/yellow]","</font>")
strText = Replace(strText,"[white]","<font color='white'>")
strText = Replace(strText,"[/white]","</font>")

Set oMatches = Nothing
Set regExp = Nothing

Fix = strText

End Function</code>

Det finns en funktion som heter Fix i VB. Kan vara så att det koliderar. Testa att byta namn på din funktion.

Nej det är inte det som är felet.....
Det är just raden:
<code>
Set oMatches = regExp.Execute(strText)</code>
som felar.... vet inte varför... funkar på min dator i pws.....

Det finns två rader som ser lika dana ut. Är det den första som inte fungerar?

Allt funkar då jag har det på min dator men då jag lägger upp det på servern så vill den inte fungera...

Ni kan kolla det på: http://www.ledare.net/users/norrbotten/default.asp

För att vissa funktioner med RegEx skall funka så måste du ha den senaste VB script motorn installerad.

Du hittar den på http://msdn.microsoft.com/library/default.asp?url=/downloads/list/webdev.asp