
<%
If request("Submit")="ENVOYE" then
	Set objMail = Server.CreateObject("CDONTS.NewMail")
  	'---your e-mail address
  	objMail.From=("my@domain.com")
  	CorpoMessaggio=CorpoMessaggio  & CHR(13) & "Name: " & request("name")  
  	CorpoMessaggio=CorpoMessaggio  & CHR(13) & "Tel: " & request("tel")
  	CorpoMessaggio=CorpoMessaggio  & CHR(13) & "E-mail: " & request("email")
  	CorpoMessaggio=CorpoMessaggio  & CHR(13) & "Comment: " & request("comment")
	objMail.Body=CorpoMessaggio
  	'---receiver's e-mail address
	objMail.To="her@domain.com"
	objMail.Subject="Comment for web site"
	objMail.Send
	set objMail = nothing
%>
 Your informations are be send.
 THANK YOU
<%Else%>
	
	   
	    
	  
	  
	    
 	 
	   
 	    
 	 
	   
 	    
 	 
 	  
   		
   		
 	
	
<%End if%>