Problem med Set objRegExpEMail = New RegExp

Hvad står der på linien før?

her er udsnit af koden:

    Function IsEmail(strEmail)
        Set objRegExpEMail = New RegExp

        objRegExpEMail.Pattern = "([\w\._-]+@[\w\._-]+\.[A-Za-z]{2,4}\S*)"
        objRegExpEMail.Global = False
        objRegExpEMail.IgnoreCase = True

        IsEmail = objRegExpEMail.Test(strEmail)

        Set objRegExpEMail = Nothing
    End Function

Der er altså heller ingen fejl i den kode, som du viser den her.

Hvilken version af VB til ASP bruger du?

men hvorfor får jeg så fejl i den:

Microsoft VBScript compilation error '800a03ea'

Syntax error

inc_settings.asp, line 66

Set objRegExpEMail = New RegExp
---------------------^

Er det fordi jeg kører på en b-one web server, eller???

er ikke med på hvad du mener med VB version???

Måske - det er jo ikke rigtig ASP. Har de ikke en side med de forskelle man skal være opmærksom på?

Version? Prøv

  function GetScriptEngineInfo
    dim s
    s = ScriptEngine & " Version "
    s = s & ScriptEngineMajorVersion & "."
    s = s & ScriptEngineMinorVersion & "."
    s = s & ScriptEngineBuildVersion
    GetScriptEngineInfo = s
  end function

  response.write GetScriptEngineInfo

VBScript Version 4.0.2920

men nu virker den ;)

send svar...

Virker nu? Hvordan, hvorfor?
I dag skal man helst ikke stille sig tilfreds med mindre end VBScript Version 5.6.8515

nej jeg tror at det er fordi at vi fik lavet denne variabel 's' og hved hjælp af den så vil den afvikle koden :) ja du skal ikke spørge mig hvorfor, men det virker ;)....

Nå. Men jeg samler slet ikke på point ;)

ok.. men mange tak aligevel...

lukker