비베스크립트로 메일 유효성 검사

[jty]

안녕하세요 질문글만 올리는 허접 프로그래머입니다...

비베스크립트로 메일 유효성 검사를 하려고 합니다.

데브피아에 아래와 같은 함수가 있어 쓰려고 하니 오류가 나네요

Microsoft VBScript 런타임 오류 error '800a01b0'

자동화 수행 중 파일 이름이나 클래스 이름을 찾을 수 없습니다.: 'RegExp'

왜 이런 오류가 나는걸까요?

참 하나더 부탁드리자면 아래소스 말도 다르게 이메일 유효성 검사 소스 있으시면
부탁드립니다... ^^*

Function VBfindEmailAddresses(mailAddress)
Dim objRegEx, Match, Matches ' 변수를
작성합니다.
Set objRegEx = New RegExp
************************************* 오류가 나는 구문
' 패턴을 설정합니다.
objRegEx.Pattern = "([a-zA-Z0-9._-]+@[a-zA-Z0-9._-]+\.[a-zA-Z0-9.]+)"
objRegEx.IgnoreCase = True

'대/소문자 구분 안함을 설정합니다.
objRegEx.Global = True '현재의패턴이 전역임을
설정합니다.

Set Matches = objRegEx.Execute(mailAddress) ' 찾기를 실행합니다.

For Each Match in Matches

' Matches 컬렉션을 반복합니다.
returnStr = returnStr & Match.Value
Next
If Len(returnStr) = 0 Then
MsgBox "메일이 정규식이 아닙니다."
Exit Function
Else
emailArray = Split(returnStr, "@", -1, 1)
MsgBox emailArray(1)
End If

VBfindEmailAddresses = returnStr
End Function

[최윤호]

http://egocube.pe.kr/asp_0003.asp
http://egocube.pe.kr/asp_0004.asp
http://egocube.pe.kr/asp_0005.asp

정규식 강좌입니다.

오늘도 행복하세요^^

"jty" <imis...@hotmail.com.korea> wrote in message
news:%23Tp0Dlw...@TK2MSFTNGP09.phx.gbl...

[jty]

Set objRegEx = New RegExp

위 코드에서처럼 객체를 새성할때 오류가 납니다...

이 이유가 알고 싶습니다...

^^*

"최윤호" <wat...@snsoft.co.kr> wrote in message
news:eSpRMGxi...@TK2MSFTNGP09.phx.gbl...

[머스매]

혹시 해서 그러는데..

IE 버전 확인해 보셨나요?

"jty" <imis...@hotmail.com.korea> wrote in message

news:%23ytuYNx...@TK2MSFTNGP09.phx.gbl...

[jty]

음...

IE 버전은 IE 6.0 버전입니다... ^^

"머스매" <deuts123@korea.ⓒⓞⓜ> wrote in message
news:eij9dlxi...@TK2MSFTNGP10.phx.gbl...

[김희진]

오류메시지로 보아.. 서버쪽 스크립트로 검사하시나요?

iis 4.0에선 정규식이 안되더군요..

혹시 nt 4.0 사용중이신지??

--
<%
if GotMessage then
set x = createObject("msn.messenger")
x.adress = "vaivai" & chr(64) & "freechal.com"
end if
%>

"jty" <imis...@hotmail.com.korea> wrote in message

news:OBzpI2xi...@TK2MSFTNGP09.phx.gbl...