Programalama > ASP

Öncelikle mail.htm yaratiyoruz  


<form method="POST" action="mail.asp"> 
   
  <p align="center"><b><font size="2"><br> 
  E mailinizi yaziniz</font></b><br> 
  <br> 
  <input type="text" name="mail" size="20"><br> 
  <b>Gidecek Mail</b><br> 
  <input type="text" name="kime" size="20"></p> 
   
  <p align="center"> 
  <font size="2"><b><br> 
  Görüslerinizi yaziniz</b></font><br> 
  <br> 
  <textarea rows="4" name="mesaj" cols="22"></textarea></p> 
  <p align="center"><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p> 
</form> 


Simdi formu asil önemli olan mail.asp ye yapmak ta 

<%@ Language=VBScript %> 
<%  
a=Request.Form ("mesaj" )    
b=Request.Form ("mail" ) 
c=Request.Form("kime" ) 
    If a="" Then 
     Response.Write "<center><b>" &"Lütfen Mesajinizi yaziniz" 
     ElseIf b="" Then  
     Response.Write "<center><b>" &"Lütfen e-mailinizi giriniz" 
    ElseIf InStr( b, "@" ) = 0 or InStr( b, "." ) = 0 or InStr( b, " " ) > 0 Then  
Response.Write "<center><b>" &"Girdiginiz email yanlis "   
     Else 
     dim objCDo 
      
     
     Set objCDo = Server.CreateObject("cDONTS.NewMail" ) 
      
      
     objCDO.From = b 
     objCDO.To = c 
     objCDO.Subject = "" 
     objCDO.Body = a 
      

     objCDO.Send       
     Set objCDo = Nothing 
Response.Write "<center><b>" &"E-mailiniz ve düsünceleriniz iletilmistir." 
End If 
%>