<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
Dim strNome
Dim strVia
Dim strNumero
Dim strPrefisso
Dim strTelefono
Dim strCitta
Dim strProvincia
Dim strCAP
Dim stremail
Dim strCODICE1
Dim strCODICE2
Dim strCODICE3
Dim strCODICE4
Dim strCODICE5
Dim strCODICE6
Dim strCODICE7
Dim strCODICE8
Dim strCODICE9
Dim strCODICE10
Dim strCODICE11
Dim strCODICE12
Dim strCODICE13
Dim strCODICE14
Dim strCODICE15
Dim strCODICE16
Dim strQUANTITA1
Dim strQUANTITA2
Dim strQUANTITA3
Dim strQUANTITA4
Dim strQUANTITA5
Dim strQUANTITA6
Dim strQUANTITA7
Dim strQUANTITA8
Dim strQUANTITA9
Dim strQUANTITA10
Dim strQUANTITA11
Dim strQUANTITA12
Dim strQUANTITA13
Dim strQUANTITA14
Dim strQUANTITA15
Dim strQUANTITA16
Dim strRIGATOT1
Dim strRIGATOT2
Dim strRIGATOT3
Dim strRIGATOT4
Dim strRIGATOT5
Dim strRIGATOT6
Dim strRIGATOT7
Dim strRIGATOT8
Dim strRIGATOT9
Dim strRIGATOT10
Dim strRIGATOT11
Dim strRIGATOT12
Dim strRIGATOT13
Dim strRIGATOT14
Dim strRIGATOT15
Dim strRIGATOT16
Dim strDESCRIZIONE1
Dim strDESCRIZIONE2
Dim strDESCRIZIONE3
Dim strDESCRIZIONE4
Dim strDESCRIZIONE5
Dim strDESCRIZIONE6
Dim strDESCRIZIONE7
Dim strDESCRIZIONE8
Dim strDESCRIZIONE9
Dim strDESCRIZIONE10
Dim strDESCRIZIONE11
Dim strDESCRIZIONE12
Dim strDESCRIZIONE13
Dim strDESCRIZIONE14
Dim strDESCRIZIONE15
Dim strDESCRIZIONE16
Dim strFile, strFilePath
Dim objFso
Dim objFile
Dim objMail
' Dettagli per l'invio dell'email
Const strDestinatario = "disaster@tin.it"
Const strMittente = "ordine@utente.it"
Const strOggetto = "Ordine da sito WARGAMES & CO."
' 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("NomeCognome")
strVia = Request.Form("Via")
strNumero = Request.Form("Numero")
strPrefisso = Request.Form("Prefisso")
strTelefono = Request.Form("Telefono")
strCitta = Request.Form("Citta")
strProvincia = Request.Form("Provincia")
strCAP = Request.Form("CAP")
stremail = Request.Form("email")
strCODICE1 = Request.Form("CODICE1")
strCODICE2 = Request.Form("CODICE2")
strCODICE3 = Request.Form("CODICE3")
strCODICE4 = Request.Form("CODICE4")
strCODICE5 = Request.Form("CODICE5")
strCODICE6 = Request.Form("CODICE6")
strCODICE7 = Request.Form("CODICE7")
strCODICE8 = Request.Form("CODICE8")
strCODICE9 = Request.Form("CODICE9")
strCODICE10 = Request.Form("CODICE10")
strCODICE11 = Request.Form("CODICE11")
strCODICE12 = Request.Form("CODICE12")
strCODICE13 = Request.Form("CODICE13")
strCODICE14 = Request.Form("CODICE14")
strCODICE15 = Request.Form("CODICE15")
strCODICE16 = Request.Form("CODICE16")
strQUANTITA1 = Request.Form("QUANTITA1")
strQUANTITA2 = Request.Form("QUANTITA2")
strQUANTITA3 = Request.Form("QUANTITA3")
strQUANTITA4 = Request.Form("QUANTITA4")
strQUANTITA5 = Request.Form("QUANTITA5")
strQUANTITA6 = Request.Form("QUANTITA6")
strQUANTITA7 = Request.Form("QUANTITA7")
strQUANTITA8 = Request.Form("QUANTITA8")
strQUANTITA9 = Request.Form("QUANTITA9")
strQUANTITA10 = Request.Form("QUANTITA10")
strQUANTITA11 = Request.Form("QUANTITA11")
strQUANTITA12 = Request.Form("QUANTITA12")
strQUANTITA13 = Request.Form("QUANTITA13")
strQUANTITA14 = Request.Form("QUANTITA14")
strQUANTITA15 = Request.Form("QUANTITA15")
strQUANTITA16 = Request.Form("QUANTITA16")
strRIGATOT1 = Request.Form("RIGATOT1")
strRIGATOT2 = Request.Form("RIGATOT2")
strRIGATOT3 = Request.Form("RIGATOT3")
strRIGATOT4 = Request.Form("RIGATOT4")
strRIGATOT5 = Request.Form("RIGATOT5")
strRIGATOT6 = Request.Form("RIGATOT6")
strRIGATOT7 = Request.Form("RIGATOT7")
strRIGATOT8 = Request.Form("RIGATOT8")
strRIGATOT9 = Request.Form("RIGATOT9")
strRIGATOT10 = Request.Form("RIGATOT10")
strRIGATOT11 = Request.Form("RIGATOT11")
strRIGATOT12 = Request.Form("RIGATOT12")
strRIGATOT13 = Request.Form("RIGATOT13")
strRIGATOT14 = Request.Form("RIGATOT14")
strRIGATOT15 = Request.Form("RIGATOT15")
strRIGATOT16 = Request.Form("RIGATOT16")
strDESCRIZIONE1 = Request.Form("DESCRIZIONE1")
strDESCRIZIONE2 = Request.Form("DESCRIZIONE2")
strDESCRIZIONE3 = Request.Form("DESCRIZIONE3")
strDESCRIZIONE4 = Request.Form("DESCRIZIONE4")
strDESCRIZIONE5 = Request.Form("DESCRIZIONE5")
strDESCRIZIONE6 = Request.Form("DESCRIZIONE6")
strDESCRIZIONE7 = Request.Form("DESCRIZIONE7")
strDESCRIZIONE8 = Request.Form("DESCRIZIONE8")
strDESCRIZIONE9 = Request.Form("DESCRIZIONE9")
strDESCRIZIONE10 = Request.Form("DESCRIZIONE10")
strDESCRIZIONE11 = Request.Form("DESCRIZIONE11")
strDESCRIZIONE12 = Request.Form("DESCRIZIONE12")
strDESCRIZIONE13 = Request.Form("DESCRIZIONE13")
strDESCRIZIONE14 = Request.Form("DESCRIZIONE14")
strDESCRIZIONE15 = Request.Form("DESCRIZIONE15")
strDESCRIZIONE16 = Request.Form("DESCRIZIONE16")
' 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 & "")
objFile.WriteLine("Indirizzo " & strVia & " N° " & strNumero)
objFile.WriteLine("Città: " & strCitta & " Prov. " & strProvincia & " Cap. " & strCAP &"")
objFile.WriteLine("E-mail: " & stremail & "")
objFile.WriteBlankLines(1)
objfile.Writeline("Articolo 1")
objFile.Writeline(strCODICE1)
objFile.Writeline(strQUANTITA1)
objFile.Writeline(strRIGATOT1)
objFile.Writeline(strDESCRIZIONE1)
objFile.WriteBlankLines(1)
objfile.Writeline("Articolo 2")
objFile.Writeline(strCODICE2)
objFile.Writeline(strQUANTITA2)
objFile.Writeline(strRIGATOT2)
objFile.Writeline(strDESCRIZIONE2)
objFile.WriteBlankLines(1)
objfile.Writeline("Articolo 3")
objFile.Writeline(strCODICE3)
objFile.Writeline(strQUANTITA3)
objFile.Writeline(strRIGATOT3)
objFile.Writeline(strDESCRIZIONE3)
objFile.WriteBlankLines(1)
objfile.Writeline("Articolo 4")
objFile.Writeline(strCODICE4)
objFile.Writeline(strQUANTITA4)
objFile.Writeline(strRIGATOT4)
objFile.Writeline(strDESCRIZIONE4)
objFile.WriteBlankLines(1)
objfile.Writeline("Articolo 5")
objFile.Writeline(strCODICE5)
objFile.Writeline(strQUANTITA5)
objFile.Writeline(strRIGATOT5)
objFile.Writeline(strDESCRIZIONE5)
objFile.WriteBlankLines(1)
objfile.Writeline("Articolo 6")
objFile.Writeline(strCODICE6)
objFile.Writeline(strQUANTITA6)
objFile.Writeline(strRIGATOT6)
objFile.Writeline(strDESCRIZIONE6)
objFile.WriteBlankLines(1)
objfile.Writeline("Articolo 7")
objFile.Writeline(strCODICE7)
objFile.Writeline(strQUANTITA7)
objFile.Writeline(strRIGATOT7)
objFile.Writeline(strDESCRIZIONE7)
objFile.WriteBlankLines(1)
objfile.Writeline("Articolo 8")
objFile.Writeline(strCODICE8)
objFile.Writeline(strQUANTITA8)
objFile.Writeline(strRIGATOT8)
objFile.Writeline(strDESCRIZIONE8)
objFile.WriteBlankLines(1)
objfile.Writeline("Articolo 9")
objFile.Writeline(strCODICE9)
objFile.Writeline(strQUANTITA9)
objFile.Writeline(strRIGATOT9)
objFile.Writeline(strDESCRIZIONE9)
objFile.WriteBlankLines(1)
objfile.Writeline("Articolo 10")
objFile.Writeline(strCODICE10)
objFile.Writeline(strQUANTITA10)
objFile.Writeline(strRIGATOT10)
objFile.Writeline(strDESCRIZIONE10)
objFile.WriteBlankLines(1)
objfile.Writeline("Articolo 11")
objFile.Writeline(strCODICE11)
objFile.Writeline(strQUANTITA11)
objFile.Writeline(strRIGATOT11)
objFile.Writeline(strDESCRIZIONE11)
objFile.WriteBlankLines(1)
objfile.Writeline("Articolo 12")
objFile.Writeline(strCODICE12)
objFile.Writeline(strQUANTITA12)
objFile.Writeline(strRIGATOT12)
objFile.Writeline(strDESCRIZIONE12)
objFile.WriteBlankLines(1)
objfile.Writeline("Articolo 13")
objFile.Writeline(strCODICE13)
objFile.Writeline(strQUANTITA13)
objFile.Writeline(strRIGATOT13)
objFile.Writeline(strDESCRIZIONE13)
objFile.WriteBlankLines(1)
objfile.Writeline("Articolo 14")
objFile.Writeline(strCODICE14)
objFile.Writeline(strQUANTITA14)
objFile.Writeline(strRIGATOT14)
objFile.Writeline(strDESCRIZIONE14)
objFile.WriteBlankLines(1)
objfile.Writeline("Articolo 15")
objFile.Writeline(strCODICE15)
objFile.Writeline(strQUANTITA15)
objFile.Writeline(strRIGATOT15)
objFile.Writeline(strDESCRIZIONE15)
objFile.WriteBlankLines(1)
objfile.Writeline("Articolo 16")
objFile.Writeline(strCODICE16)
objFile.Writeline(strQUANTITA16)
objFile.Writeline(strRIGATOT16)
objFile.Writeline(strDESCRIZIONE16)
objFile.WriteBlankLines(1)
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 = "Ordine dal sito Wargames & Co."
' 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.</p>"
end if
%>
Rispondi quotando
e comunque ti ringrazio xkè sei stato gentilissimo!
