<%
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
%>





<%
mail=cevir(Request.Form("mail"))

If not EmailKontrol(mail) Then

Response.Write("<script>alert('Geçerli bir e-mail giriniz !..')</script>")
Response.Write("<script>location.href(history.back (2))</script>")
Response.End()

end if
%>




buyur