<%
dim a,eposta
     function dogrula(eposta)
          dogrula= instr(eposta,"@")
     end function

eposta= request.querystring("form_e_posta")
a=dogrula(eposta)

     if a = 0 then
          response.write "Girmiş olduğunuz adres olan <b>" & eposta & "</b> geçerli bir adres değildir..." 
     else 
          response.write "Girmiş olduğunuz adres olan <b>" & eposta & "</b> geçerli bir adrestir..." 
     end if      
%>