Programalama > ASP

<% 

Function EmailKontrol(Str) 
Et_Isareti = InStr(2, Str , "@" ) 
If Et_Isareti = VBIsNull Then 
EmailKontrol = False 
Else 
Et_Isareti_Krakter_Sayisi = Et_Isareti 
Et_Isareti = True 
End If 
If Et_Isareti = True Then 
Nokta = InStr(Et_Isareti_Krakter_Sayisi + 2, Str , "." ) 
If Nokta = VBIsNull Then 
EmailKontrol = False 
Else 
EmailKontrol = True 
End If 
Else 
EmailKontrol = False 
End If 
End Function 

Email = "adiniz@hotmail.com" 

If EmailKontrol(Email) Then 
Response.Write "Email Dogru" 
Else  
Response.Write "Email Yanlis" 
End If 

%>