Programalama > ASP

<%
	Public Sub EmailKontrol(strGelen)
		iAt = Instr(strGelen, "@")

		iNokta = Instr(iAt, strGelen, ".", 1)
		IF NOT iAt > 0 THEN Response.Write "Lütfen geçerli bir email adresi giriniz. (Örn: finarfin@aspindir.com)" : Response.End
		IF NOT iAt < iNokta THEN Response.Write "Lütfen geçerli bir email adresi giriniz. (Örn: finarfin@aspindir.com)" : Response.End
		IF Len(strGelen) < 7 THEN Hata "Lütfen geçerli bir email adresi giriniz. (Örn: finarfin@aspindir.com)"
	End Sub
%>