<% If Request.Form("INVIA")="Invia la Richiesta" Then
Set Mail = Server.CreateObject("CDONTS.NewMail")
Mail.From = "attico@bp-editori.it"
Mail.To = Request.Form("ToMail")
Mail.BodyFormat = 0
Mail.MailFormat = 0
Mail.Importance = 1
Mail.Subject = Request.Form("Subject")
BodyMail=""
BodyMail = BodyMail & "Nome e Cognome: " & Request.form("NOME2")
If Request.Form("E_MAIL2") <> "" then
BodyMail = BodyMail & " " & "e-mail: " & Request.form("E_MAIL2")
End If
If Request.Form("CITTA") <> "" then
BodyMail = BodyMail & " " & "Città: " & Request.form("CITTA")
End If
If Request.Form("TELEFONO") <> "" then
BodyMail = BodyMail & " " & "Telefono/fax: " & Request.form("TELEFONO")
End If
If Request.Form("INDIRIZZO") <> "" or Request.Form("TIPOLOGIA") <> "Seleziona" or Request.Form("MANUTENZIONE") <> "Seleziona" or Request.Form("PIANO") <> "" or Request.Form("MQ") <> "" or Request.Form("COMPOSIZIONE") <> "Seleziona" or Request.Form("BOX") = "Sì" or Request.Form("GIARDINO") = "Sì" or Request.Form("CANTINA") = "Sì" or Request.Form("BALCONI") = "Sì" or Request.Form("ASCENSORE") = "Sì" or Request.Form("PORTINERIA") = "Sì" or Request.Form("RISCALDAMENTO") <> "" or Request.Form("ANNO") <> "" then
BodyMail = BodyMail & "
Dati Immobile"
End If
If Request.Form("INDIRIZZO") <> "" then
BodyMail = BodyMail & " " & "Indirizzo: " & Request.form("INDIRIZZO")
End If
If Request.Form("TIPOLOGIA") <> "Seleziona" then
BodyMail = BodyMail & " " & "Tipologia: " & Request.form("TIPOLOGIA")
End If
If Request.Form("MANUTENZIONE") <> "Seleziona" then
BodyMail = BodyMail & " " & "Stato manutenzione: " & Request.form("MANUTENZIONE")
End If
If Request.Form("PIANO") <> "" then
BodyMail = BodyMail & " " & "Piano: " & Request.form("PIANO")
End If
If Request.Form("MQ") <> "" then
BodyMail = BodyMail & " " & "Mq: " & Request.form("MQ")
End If
If Request.Form("COMPOSIZIONE") <> "Seleziona" then
BodyMail = BodyMail & " " & "Composizione: " & Request.form("COMPOSIZIONE")
End If
If Request.Form("RISCALDAMENTO") <> "" then
BodyMail = BodyMail & " " & "Riscaldamento: " & Request.form("RISCALDAMENTO")
End If
If Request.Form("ANNO") <> "" then
BodyMail = BodyMail & " " & "Anno stabile: " & Request.form("ANNO")
End If
If Request.Form("BOX") = "Sì" or Request.Form("GIARDINO") = "Sì" or Request.Form("CANTINA") = "Sì" or Request.Form("BALCONI") = "Sì" or Request.Form("ASCENSORE") = "Sì" or Request.Form("PORTINERIA") = "Sì" then
BodyMail = BodyMail & "
Accessori"
End If
If Request.Form("BOX") = "Sì" then
BodyMail = BodyMail & " " & "Box "
End If
If Request.Form("GIARDINO") = "Sì" then
BodyMail = BodyMail & " " & "Giardino privato"
End If
If Request.Form("CANTINA") = "Sì" then
BodyMail = BodyMail & " " & "Cantina "
End If
If Request.Form("BALCONI") = "Sì" then
BodyMail = BodyMail & " " & "Balconi "
End If
If Request.form("N_BALCONI") <> "" then
BodyMail = BodyMail & " n." & Request.form("N_BALCONI")
End If
If Request.Form("ASCENSORE") = "Sì" then
BodyMail = BodyMail & " " & "Ascensore"
End If
If Request.Form("PORTINERIA") = "Sì" then
BodyMail = BodyMail & " " & "Portineria"
End If
BodyMail = BodyMail & "
" & Request.form("DETTAGLI")
Mail.Body = BodyMail
On Error Resume Next
Mail.Send
Set Mail = Nothing
Response.Redirect "storemail.asp"
End If%>
Dimensionecasa online
Avete
un immobile da vendere?
Compilate il seguente form e sarete contattati al più
presto dall'agenzia a Voi più vicina.
