% option explicit dim nome,azienda,privato,citta,tel,email,trovato,messaggio,objmail,body dim ordine,localcart,i if request("inserimento")="ok" then nome=request.form("nome") azienda=request.form("azienda") privato=request.form("privato") citta=request.form("citta") tel=request.form("tel") email=request.form("email") trovato=request.form("trovato") messaggio=request.form("messaggio") 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 e Cognome:" & " " & nome & chr(13) & chr(10) body=body & "Azienda" & " " & azienda & chr(13) & chr(10) body=body & "Privato" & " " & privato & chr(13) & chr(10) body=body & "Indirizzo e Cittą:" & " " & citta & chr(13) & chr(10) body=body & "Telefono:" & " " & tel & chr(13) & chr(10) body=body & "E-Mail:" & " " & email & chr(13) & chr(10) & chr(13) & chr(10) body=body & "Come ci hai trovato?" & " " & trovato & chr(13) & chr(10) & chr(13) & chr(10) body=body & "Messaggio:" & " " & messaggio & 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@giaroli.it" ' oggetto del messaggio (modificare il testo tra le virgolette) objMail.Subject="RICHIESTA DI INFORMAZIONI DA " & nome objMail.Send set objMail = nothing ' messaggio di conferma (modificare il testo tra le virgolette) response.redirect "http://www.giaroli.it/" else %>