<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim strMessage Dim strNome Dim strCognome Dim strCommento Dim strFile, strFilePath Dim objFso Dim objFile Dim objMail ' Dettagli per l'invio dell'email Const strDestinatario = "email@indirizzo.it" Const strMittente = "mittente@email.it" Const strOggetto = "Email inviata tramite form" ' Imposta a true per rimuovere il file dopo l'invio Const blnDelete = false ' Controlla l'invio della form if Request.Querystring("send") = 1 AND Len(Request.Form("submit")) > 0 then ' Richiama i dati dalla form strNome = Request.Form("nome") strCognome = Request.Form("cognome") strCommento = Request.Form("commento") ' Crea il nome strFile = "emailatt-" &_ Year(Now()) & Month(Now()) & Day(Now()) & "-" & Clng(Timer()) & ".txt" ' Ricava il percorso del file sul server strFilePath = Server.MapPath(strFile) ' Crea il file sul server Set objFso = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFso.CreateTextFile(strFilePath, true) objFile.WriteLine("Email inviata il " & Date() & " alle " & Time()) objFile.WriteLine("IP: " & Request.ServerVariables("REMOTE_ADDR")) objFile.WriteLine("Client: " & Request.ServerVariables("HTTP_USER_AGENT")) objFile.WriteLine("Nominativo: " & strNome & " " & strCognome) objFile.WriteBlankLines(1) objFile.Writeline(strCommento) objFile.Close Set objFile = Nothing Set objFso = Nothing ' Crea l'oggetto CDONTS Set objMail = Server.CreateObject("CDONTS.NewMail") with objMail ' Mittente .From = strMittente ' Destinatario .To = strDestinatario ' Oggetto .Subject = strOggetto ' Corpo dell'email .Body = "Allegato contenuto email." ' Impostazioni .BodyFormat = 1 ' testo .MailFormat = 1 ' testo .Importance = 1 ' normale ' Allegato .AttachFile strFilePath ' Invia l'email .Send end with Set objMail = Nothing ' Elimina il file dal server se richiesto if blnDelete then Set objFso = Server.CreateObject("Scripting.FileSystemObject") ' Controlla la presenza del file ed elimina if objFso.fileExists(strFilePath) then objFso.deleteFile(strFilePath) end if Set objFso = Nothing end if strMessage = "

L'email è stata inviata correttamente.
" strMessage = strMessage & "Il contenuto della form è stato allegato all'email.

" end if %> ep porte - Porte italiane d'arredamento

Per richiedere i nostri cataloghi gratuitamente compili il form sottostante.

Professione:*
Nome*
Indirizzo*
n° Civico*
C.a.p.*
Città*
Provincia*
Telefono*
Fax
Email*
     

Inviando il modulo si acconsente al trattamento dei dati personali.
I campi contrassegnati con * sono obbligatori.


PRIVACY
Ai sensi dell'art. 13 del D.L. n. 196 del 30/06/2003 codice in materia di protezione dei dati personali, il Mittente prende atto che il trattamento dei dati personali indicati è necessario per evadere la sua richiesta e.p. s.r.l., titolare del trattamento di trasmissione dei dati personali del Mittente, si impegna espressamente a non divulgare i dati personali del Mittente senza il suo consenso.