Form dan gelen e-mail adreslerinin doğru olup olmadığını kontrol eder.

'Function Bölümü 

FUNCTION KONTROL(STR) 
ET = INSTR(2, STR , "@" ) 
IF ET = VBISNULL THEN
KONTROL = FALSE
ELSE 
ETK = ET
ET = TRUE 
END IF 
IF ET = TRUE THEN 
NKT = INSTR(ETK + 2, STR , "." ) 
IF NKT = VBISNULL THEN
KONTROL = FALSE 
ELSE
KONTROL = TRUE 
END IF
ELSE
KONTROL = FALSE 
END IF
END FUNCTION

'Kod Bölümü

<%
email =  trim(request.form("email"))
if  not KONTROL(email)  then
response.write " E-Mail Doğru Değildir."
else
response.write " E-Mail Doğrudur."
end  if
%>