soms error Unexpected quantifier (VBscript)

[fatbenny]

Dit is een simpel scriptje dat een berichtje toevoegt aan de db en berichtjes eruit haalt om weer te geven. De berichtjes bevinden zich in een marquee, dus moet er geen html troep tussen. Ik heb daar een script voor gebruikt. Ik heb een netwerk en als ik van de ene computer hem benader op het internet doet ie het wel en van de andere dus niet en krijg ik deze melding:

Microsoft VBScript runtime error '800a139a'

Unexpected quantifier

/kabouterrace/msghandler.asp, line 33


Het script (dit is een deel ervan) dat ik gebruik ziet er zo uit:

msgValue = Request.form("msg")

Dim objRegExp, strOutput
Set objRegExp = New Regexp

objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<(.|\n)+?>"

strOutput = objRegExp.Replace(msgValue, " ")
strOutput = Replace(strOutput, "<", " ")
strOutput = Replace(strOutput, ">", " ")
strOutput = Replace(strOutput, "|", " ")

stripMsgValue = strOutput 'Return the value of strOutput

Set objRegExp = Nothing

if not stripMsgValue = "" AND not stripMsgValue = "type msg" then

SQL = CStr("INSERT INTO msgs (msg) VALUES ('" & stripMsgValue & "')")
objCon.Execute(SQL)
response.write(SQL)

end if

url = "msg.asp"
response.redirect(url)


En de site staat op:
http://www25.brinkster.com/kabouterrace/msg.asp


Mijn vraag is of jullie hetzelfde krijgen of dat het goed werkt. Als het fout gaat waar zou het dan aan kunnen liggen

[j_du_pee]

en welke regel is regel 33

ik krijg trouwens dezelfde foutmelding...

[fatbenny]

objRegExp.Pattern = "<(.|\n)+?>"

strOutput = objRegExp.Replace(msgValue, " ")


een van deze 2. Als ik tel dan kom ik tussen die 2 in (heb idd 3 keer nageteld). Maar ik denk zelf patternregel. Het werkt trouwens onder IIS prima en op brinkster dus niet.

[fatbenny]

wie heeft 'gfd' toegevoegd?

[j_du_pee]

ik heb nix toegevoegd, hij crashde, heb je hier iets aan:
http://www.activeserverpages.dk/iishelp/vbscript/htm/vserrunexpectedquantifier.htm

Oh ja, voor je insert moet je dit nog doen:
replace(stripMsgValue,"'","''"), anders krijg je gezeik als mensen een enkele quote invullen

[fatbenny]

zou je nog een keer willen proberen
het lukte me nu wel (en echt niks veranderd..)

[j_du_pee]

Op vrijdag 08 maart 2002 22:48 schreef fatbenny het volgende:
zou je nog een keer willen proberen
het lukte me nu wel (en echt niks veranderd..)

zelfde foutmelding hoor...

[fatbenny]

ik snap er niks meer van

in ieder geval bedankt

Als iemand anders nog wat weet...

[Annie]

* Annie kan geen fout ontdekken bij het klikken op de link
(probleem is al opgelost?)

Anyway, gaat het niet fout bij het non-greedy maken van de regexp? 't Is een tijdje terug dat ik met het vbscript regexp object heb gewerkt maar er staat me iets bij dat deze altijd greedy is (maar pin me d'r niet op vast).
Dus: het gaat fout omdat vbscript dit "+?" ziet als twee quantifiers.

[Gert]

Scriptingengine 5.6 installeren helpt misschien wel. Doe anders op de brinkster server eens:

code:

<%
  Response.Write ScriptEngine & "<br>" & ScriptEngineMajorVersion & "<br>" & ScriptEngineMinorVersion
%>

[j_du_pee]

Op vrijdag 08 maart 2002 22:36 schreef fatbenny het volgende:
dus moet er geen html troep tussen.

ff terug naar het uiteindelijke doel:

code:

server.htmlEncode(Str)

dat filtert alle HTML eruit

linkje