% option explicit dim nome,cognome,indirizzo,citta,cap,telefono,fax,email,richieste,objmail,body dim ordine,localcart,i if request("inserimento")="ok" then nome=request.form("nome") cognome=request.form("cognome") indirizzo=request.form("indirizzo") citta=request.form("citta") cap=request.form("cap") telefono=request.form("telefono") fax=request.form("fax") email=request.form("email") richieste=request.form("richieste") 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 da MERCHANDISE INDOOR:" & chr(13) & chr(10) body=body & "Nome:" & " " & nome & chr(13) & chr(10) body=body & "Cognome:" & " " & cognome & chr(13) & chr(10) body=body & "Indirizzo:" & " " & indirizzo & chr(13) & chr(10) body=body & "Cittą:" & " " & citta & chr(13) & chr(10) body=body & "Cap:" & " " & cap & chr(13) & chr(10) body=body & "Telefono:" & " " & telefono & chr(13) & chr(10) body=body & "Fax:" & " " & fax & chr(13) & chr(10) body=body & "E-Mail:" & " " & email & chr(13) & chr(10) body=body & "Richieste:" & " " & richieste & chr(13) & chr(10) objMail.Body=body ' inserire l'email del destinatario (in questo caso la persona che espone i propri prodotti) objMail.To="riccardo@vasbeach.it" ' oggetto del messaggio (modificare il testo tra le virgolette) objMail.Subject="NUOVA RICHIESTA DA " & cognome objMail.Send set objMail = nothing ' messaggio di conferma (modificare il testo tra le virgolette) response.redirect "http://www.vasbeach.it/" else %>
<% end if %>