<% Dim msg if Request("btnInvia")<>"" then on error resume next Set objMail=CreateObject("CDO.Message") objMail.Subject=Request("Subject") objMail.From=Request("Mail") objMail.To="engimec@engimec.it" Dim textBody textBody="Nome:" & Request("Nome") & Chr(13) & Chr(10) textBody=textBody & "Cognome:" & Request("Cognome") & Chr(13) & Chr(10) textBody=textBody & "Posizione:" & Request("Posizione") & Chr(13) & Chr(10) textBody=textBody & "Societa:" & Request("Societa") & Chr(13) & Chr(10) textBody=textBody & "Mail:" & Request("Mail") & Chr(13) & Chr(10) textBody=textBody & "Commenti:" & Request("Commenti") & Chr(13) & Chr(10) textBody=textBody & "Venuto a conoscenza attraverso:" & Request("Subject") & Chr(13) & Chr(10) objMail.TextBody=textBody objMail.Send set objMail=nothing if err.number >0 then msg= err.description else msg= "RICHIESTA INVIATA. Grazie" end if end if %> Feedback
<%=msg%>
Logo1.gif (72758 bytes)

Come sei venuto a conoscenza di Engimec?

Altro:
 

Riferimenti:

Nome*          

Cognome*       

Posizione      

Società	       

E-mail*        
 
Specificare gli eventuali argomenti di particolare interesse:
        

 

      


Copyright © 2000 Engimec Srl. Tutti i diritti riservati