% option explicit dim nome,cognome,giornonascita,mesenascita,annonascita,indirizzo,localita,provincia,cap,email,telefono,marca,modello dim comunicazioni,objmail,body,ordine,localcart,i if request("inserimento")="ok" then nome=request.form("nome") cognome=request.form("cognome") giornonascita=request.form("giornonascita") mesenascita=request.form("mesenascita") annonascita=request.form("annonascita") indirizzo=request.form("indirizzo") localita=request.form("localita") provincia=request.form("provincia") cap=request.form("cap") email=request.form("email") telefono=request.form("telefono") marca=request.form("marca") modello=request.form("modello") comunicazioni=request.form("comunicazioni") Set objMail = Server.CreateObject("CDONTS.NewMail") ' inserire l'email del mittente objMail.From= email ' dati del clienti inseriti nella form e pronti per essere inviati all'email del destinatario (testo tra virgolette modificabile) body="DATI CLIENTE" & chr(13) & chr(10) body=body & "Nome:" & " " & nome & chr(13) & chr(10) body=body & "Cognome:" & " " & cognome & chr(13) & chr(10) body=body & "Data di nascita:" & " " & giornonascita & " " & mesenascita & " " & annonascita & chr(13) & chr(10) body=body & "Indirizzo:" & " " & indirizzo & chr(13) & chr(10) body=body & "Localitą :" & " " & localita & chr(13) & chr(10) body=body & "Provincia:" & " " & provincia & chr(13) & chr(10) body=body & "C.A.P.:" & " " & cap & chr(13) & chr(10) body=body & "E-Mail:" & " " & email & chr(13) & chr(10) body=body & "Telefono:" & " " & telefono & chr(13) & chr(10) & chr(13) & chr(10) body=body & "AUTOVETTURA POSSEDUTA:" & chr(13) & chr(10) body=body & "Marca:" & " " & marca & chr(13) & chr(10) body=body & "Modello:" & " " & modello & chr(13) & chr(10) & chr(13) & chr(10) body=body & "COMUNICAZIONI:" & " " & comunicazioni & chr(13) & chr(10) & chr(13) & chr(10) objMail.Body=body ' inserire l'email del destinatario (in questo caso la persona che espone i propri prodotti) objMail.To="info@chellietintori.it" ' oggetto del messaggio (modificare il testo tra le virgolette) objMail.Subject="CONTATTO DAL SITO CHELLI E TINTORI DA: " & nome objMail.Send set objMail = nothing ' messaggio di conferma (modificare il testo tra le virgolette) response.redirect "http://www.chellietintori.it/" else %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Chelli & Tintori - VIA AURELIA NORD 101/103 - 58100 GROSSETO (GR) - P.IVA 00068700533 - CCIAA Grosseto 38337 - cap. soc. 100.000 € |
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||