E-Posta Geçerlilik Kontrolü

Girilen e-posta adresinin geçerli olup olmadığının kontrolünü gerçekleştiren bir uygulamadır.

[HTML]<%
Function cckEmail(email)
Dim regEx, Match, Matches
If email <> "" Then
Set regEx = New RegExp
regEx.Pattern = "^([a-zA-Z0-9_\-\.]+)@((\[[0-9]{1,3}\.[0-9]{1,3}\.[0-9]{1,3}\.)|(([a-zA-Z0-9\-]+\.)+))([a-zA-Z]{2,4}|[0-9]{1,3})(\]?)$"
regEx.IgnoreCase = True
If regEx.Test(email) Then cckEmail = True Else cckEmail = False
End If
End Function
%>[/HTML]

__________________
proxyer