<% Function MailDogrula(email) If InStr(email, "@" ) = 0 Or InStr(email, ".") = 0 then MailDogrula = "Mail Hatalı" Else MailDogrula = "Mail Doğru" End If End Function Response.Write MailDogrula("mydesign@mydesign.gen.tr") %>