<% set maconnexion = server.CreateObject("ADODB.Connection") maconnexion.Open(Application("bd_ConnectionString")) SQLT="select * from aType order by idType" set rsType = maconnexion.Execute(SQLT) SQLo="select * from Typologie where idTypologie>1 order by idTypologie ASC" set rsTypo = maconnexion.Execute(SQLo) dispForm = 1 dispMerci = 0 if request("doSend")<>"" then ' for each param in request.Form ' response.write "
msgTxt = msgTxt & """¶m&" : ""& "& param ' response.write "
"¶m&" = request("""¶m&""")" ' next ' response.redirect "vendre.asp?isSent=1" ' response.end Indirizzo = request("Indirizzo") provincia = request("provincia") provincia_prod = request("provincia_prod") nb_vani = request("nb_vani") Cognome = request("Cognome") Nome = request("Nome") Typologia = request("Typologia") Codice = request("Codice") TypeProd = request("TypeProd") citta = request("citta") Nazione = request("Nazione") Fax = request("Fax") superficie = request("superficie") nb_camere = request("nb_camere") prezzo = request("prezzo") Tel_Officio = request("Tel_Officio") Email = request("Email") Codice_prod = request("Codice_prod") ville_prod = request("ville_prod") nazione_prod = request("nazione_prod") desc = request("desc") mailSubject = "Informazione inviate tra il sito Italiano" msgTxt = mailSubject &VbCrLf msgTxt = msgTxt & "Nome : "& Nome &VbCrLf msgTxt = msgTxt & "Cognome : "& Cognome &VbCrLf msgTxt = msgTxt & "Indirizzo : "& Indirizzo &VbCrLf msgTxt = msgTxt & "Codice : "& Codice &VbCrLf msgTxt = msgTxt & "città : "& citta &VbCrLf msgTxt = msgTxt & "provincia : "& provincia &VbCrLf msgTxt = msgTxt & "Nazione : "& Nazione &VbCrLf msgTxt = msgTxt & "Email : "& Email &VbCrLf msgTxt = msgTxt & "Tel Officio : "& Tel_Officio &VbCrLf msgTxt = msgTxt & "Fax : "& Fax &VbCrLf msgTxt = msgTxt & "TypeProd : "& TypeProd &VbCrLf msgTxt = msgTxt & "Typologia : "& Typologia &VbCrLf msgTxt = msgTxt & "nb vani : "& nb_vani &VbCrLf msgTxt = msgTxt & "nb camere : "& nb_camere &VbCrLf msgTxt = msgTxt & "superficie : "& superficie &VbCrLf msgTxt = msgTxt & "prezzo : "& prezzo &VbCrLf msgTxt = msgTxt & "Codice_prod : "& Codice_prod &VbCrLf msgTxt = msgTxt & "ville_prod : "& ville_prod &VbCrLf msgTxt = msgTxt & "provincia bene : "& provincia_prod &VbCrLf msgTxt = msgTxt & "nazione_prod : "& nazione_prod &VbCrLf msgTxt = msgTxt & "desc : "& desc &VbCrLf mailto = "info@altitalia.com" mailFrom = "info@altitalia.com" mailFormat = 1 mailPriority = 1 call sendMail(mailFrom,mailTo,mailSubject,msgTxt,mailPriority,mailFormat) response.redirect "vendre.asp?isSent=1" response.end end if if request("isSent")<>"" then dispForm = 0 dispMerci = 1 end if %> Altitalia Group immobiliare- Intermediazione immobiliare Francia Costa Azzurra Monaco Italia, case vacanze, ville, appartamenti, investimenti.


Per vendere ?
<%if dispMerci>0 then%>

 

 

 

 

Grazie, abbiamo ricevuto le vostre informazioni.
un agente del Gruppo Altitalia vi contatterà al più presto.

<%end if%> <%if dispForm>0 then%>

 

Se desiderate mettere in vendita un bene immobiliare, compilate il formulario qui di seguito, un agente del Gruppo Altitalia vi contatterà al più presto.

La compilazione dei campi contrassegnati dalla * è obbligatoria.

 

Cognome* Nome*
Indirizzo
Codice postale Città
Provincia Nazione
Tel.* Fax
Email
Descrizione del bene
Tipologia Locale
Codice postale Città
Provincia Nazione
Superficie m² N° camere
N° Vani Prezzo richiesto €
Descrizione
 
<%end if%>
 
All rights reserved to Altitalia® ___