<% 'Se alla pagina viene inviata la form con i dati... if Request.Form("Invia") = "Invia" then Dim Mail dim flag Set Mail = Server.CreateObject("CDONTS.NewMail") Mail.From = Request.Form("Nome") & request.form("Cognome") Mail.To = Request.Form("mail") Mail.Body = Request.Form("messaggio") Mail.Importance = 1 Set Mail = nothing if request.form("Nome")="" then flag=0 response.write("inserire campo nome") else flag =1 end if flag=0 if request.form("cognome")="" then flag=0 response.write("inserire campo cognome") else flag =1 end if if flag=1 then Mail.Send 'invia la e-mail 'altrimenti visualizza la Form Response.Write "

E-mail inviata!

" end if else %>
campi obbligatori *
Nome* - Cognome*
Ragione Sociale*
LocalitÓ - Provincia*
CAP - Indirizzo*
Cod. Fiscale
Partita I.V.A.
Telefono*/Fax
Indirizzo e-mail
Referente*
Mansione*
Come ci hai conosciuto
Edilizia Allestimenti  
Vendita Noleggio   fino a
Montaggio Smontaggio Trasporto

  Ubicazione Cantiere
   
Messaggio
<% end if %> <% request.form("cancella")="Cancella" %>

 Strada Settimo 272 - 10156 Torino
 Tel. 011.2237286 Fax 011.2731659
 e-mail: info@mspsrl.com
 credits