<% session.lcid = &h40c URL2 = Request("URL2") Title = Request("title") If Url2="" Then url2 = "http://www.col.fr" If Request("mail") = "true" Then Set oFS = Server.CreateObject("scripting.filesystemobject") Set oFile = oFS.OpentextFile(server.mappath("/database/sentmails.txt"),8) oFile.writeline "" & request("email2") & "" oFile.Close Set JMail = Server.CreateObject("JMail.SMTPMail") JMail.ServerAddress = "mail.cinet.fr" If Request("email1") = "" OR instr(Request("email1"), "@")=0 Then JMail.Sender = "info@col.fr" Else JMail.Sender = Request("email1") End If JMail.Subject = Request("sujet") JMail.AddRecipient Request("email2") JMail.ContentType = "text/html" JMail.Body = "
" &_
Request.Form("nom") & " vous recommande d'aller visiter cette page: " &_
"" & URL2 &" "& vbCrLf & vbCrLf & Request.Form("message") & vbCrLf & vbCrLf &_
"A bientôt sur COL.fr" &  vbCrLf & "Communauté On Line - La voix de la communauté juive de France -"
	JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute

If err= 0 Then %> 

Merci, 
  votre message a bien été envoyé à <%=Request("email2")%> 
  !

  

  fermer la fenêtre 

<% ENd If
Else %> 


  

    

      
        

          
 
            Envoyer 
              cette page à un ami
          

          
 
            Titre : <%=title%>
          

          
 
            Adresse 
              : <%=URL2%>
          

          
 
             
              

                
 
                  Adresse 
                    Email du destinataire : 
                   
                    
                  
                

                
 
                  Votre 
                    nom : (option)
                   
                    
                  
                

                
 
                  Votre 
                    adresse Email : (option)
                   
                    
                  
                

                
 
                  Sujet 
                    :
                   
                    
                  
                

                
 
                  Message 
                    personnel : (option)
                   
                    
                  
                

              

            		
          

          
 
             
              
              
              
              
            
          

        

      		
    

  

  

<% End If %>