<%
Function EmailKontrol(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 EmailKontrol = True Else EmailKontrol = False
End If
End Function
%>
Alıntı
mailin doğru yazıldığını kontrol etmeme rağmen, yani karakter, @ ve . işaretlerinin varlığını kontrol etmeme rağmen, yürürlükte olmayan mailler belirtildiğinde, sayfaya yorum yapıldığını bildiren mail dolayısı ile var olmayan bir mail hesabına gitmekte.
Demiş, keşke okuyup yazsaydınız.
