Programalama > ASP

<% email = "alici@domain.com" ' mail adresi %>

<% If Len(email) < 5 Then
bIsValid = "False"
Else
If Instr(1, email, " ") <> 0 Then
bIsValid = "False"
Else
If InStr(1, email, "@", 1) < 2 Then
bIsValid = "False"
Else
If InStrRev(email, ".") < InStr(1, email, "@", 1) + 2 Then
bIsValid = "False"
End If
End If
End If
End If
IF bIsValid = "False" THEN
hata = "Email adresiniz geçersiz. Lütfen geçerli bir mail adresi giriniz..."
end if %>