% If request("Invia")="Invia commenti" then Set objMail = Server.CreateObject("CDONTS.NewMail") objMail.From=request("email") CorpoMessaggio = CorpoMessaggio &"--------------------------------------------------------------------------" & vbCrLf & vbCrLf CorpoMessaggio = CorpoMessaggio &"Il messaggio e' stato inviato da: "& request("nome_cognome") & vbCrLf & vbCrLf & vbCrLf CorpoMessaggio = CorpoMessaggio &"Oggetto: "& request("oggetto") & vbCrLf CorpoMessaggio = CorpoMessaggio &"richiesta informazioni per: " & request("appartamento") & vbCrLf & "Altro " & request("altro")& vbCrLf & vbCrLf ' CorpoMessaggio = CorpoMessaggio & request("periodo_della_vacanza")& vbCrLf ' CorpoMessaggio = CorpoMessaggio & request("contatto")& vbCrLf & vbCrLf CorpoMessaggio = CorpoMessaggio & "Periodo prescelto:" & request("commenti")& vbCrLf & vbCrLf CorpoMessaggio = CorpoMessaggio &"DATI PERSONALI" & vbCrLf CorpoMessaggio = CorpoMessaggio &"Nome e cognome: "& request("nome_cognome") & vbCrLf CorpoMessaggio = CorpoMessaggio &"E-Mail: "& request("email") & vbCrLf CorpoMessaggio = CorpoMessaggio &"Telefono:"& request("Telefono") & vbCrLf CorpoMessaggio = CorpoMessaggio &"Fax: "& request("Fax") & vbCrLf CorpoMessaggio = CorpoMessaggio &"--------------------------------------------------------------------------" & vbCrLf & vbCrLf objMail.Body=CorpoMessaggio objMail.To="info@agenziacollini.com" 'metti l'e-mail al quale spedire objMail.Subject=request("oggetto") objMail.Send set objMail = nothing %> <% else %>
|
Copyright © 2001 Agenzia Collini. Tutti i
diritti riservati.
|
|
Web Design Campiglio Web |