% if Request.Form("azione") = "invia" then 'CONTROLLO ERRORI errore = "" if Request.Form("01M-Nome") > "" then errore = errore & "0" else errore = errore & "1" if Request.Form("09M-Email") > "" then errore = errore & "0" else errore = errore & "1" if errore = "00" then mail = "" mail = mail & "Richiesta contatti da web" & chr(13) & chr(10) mail = mail & "------------------------------" & chr(13) & chr(10) mail = mail & "Nome e Cognome : " & chr(13) & chr(10) mail = mail & Request.Form("01M-Nome") & chr(13) & chr(10) mail = mail & "------------------------------" & chr(13) & chr(10) mail = mail & "Azienda : " & chr(13) & chr(10) mail = mail & Request.Form("02-Azienda") & chr(13) & chr(10) mail = mail & "------------------------------" & chr(13) & chr(10) mail = mail & "Indirizzo : " & chr(13) & chr(10) mail = mail & Request.Form("03-Indirizzo") & chr(13) & chr(10) mail = mail & chr(13) & chr(10) mail = mail & "CAP : " & chr(13) & chr(10) mail = mail & Request.Form("04-CAP") & chr(13) & chr(10) mail = mail & chr(13) & chr(10) mail = mail & "Località : " & chr(13) & chr(10) mail = mail & Request.Form("05-luogo") & chr(13) & chr(10) mail = mail & chr(13) & chr(10) mail = mail & "Provincia : " & chr(13) & chr(10) mail = mail & Request.Form("06-provincia") & chr(13) & chr(10) mail = mail & "------------------------------" & chr(13) & chr(10) mail = mail & "Telefono : " & chr(13) & chr(10) mail = mail & Request.Form("07-telefono") & chr(13) & chr(10) mail = mail & chr(13) & chr(10) mail = mail & "Numero Fax : " & chr(13) & chr(10) mail = mail & Request.Form("08-Fax") & chr(13) & chr(10) mail = mail & chr(13) & chr(10) mail = mail & "Indirizzo E-mail : " & chr(13) & chr(10) mail = mail & Request.Form("09M-Email") & chr(13) & chr(10) mail = mail & "------------------------------" & chr(13) & chr(10) mail = mail & "Testo richiesta : " & chr(13) & chr(10) mail = mail & Request.Form("11-Testo") & chr(13) & chr(10) mail = mail & "------------------------------" & chr(13) & chr(10) mail = mail & "Data : " & formatDateTime(date() , vblongDate) & chr(13) & chr(10) mail = mail & "Ora : " & formatDateTime(time() , vblongTime) & chr(13) & chr(10) mail = mail & "------------------------------" & chr(13) & chr(10) dim posta set posta = server.createobject("CDONTS.newmail") posta.From = "info@daryestintori.it" posta.to = "info@daryestintori.it" posta.subject = "Informazioni da Web" posta.bodyformat = 1 posta.mailformat = 1 posta.body = mail posta.importance = 1 posta.send set posta = nothing 'QUI METTERE LA PAGINA DI RISPOSTA ALL'INVIO response.redirect("grazie.html") else response.redirect("errore.html") end if end if %>
Antincendio - Antinfortunistica - Noleggio - Vendita - Revisioni - Assistenza Tecnica - Verifica semestrale
| I campi sottolineati sono obbligatori |