<% 'Option Explicit 'response.buffer = 1 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 Francese" 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 Groupe Immobilier - Transactions immobilières France, Côte d’Azur, Monaco, Italie, résidences secondaires, villas, appartements, investissements.


Pour vendre un bien
<%if dispMerci>0 then%>

 

 

 

 

Merci, vos informations nous ont été envoyée avec succès.
Un agent du groupe Altitalia, vous contactera le plus rapidement possible.

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

Si vous souhaitez mettre un bien en vente, les commerciaux du groupe Altitalia peuvent s’en charger. Veuillez remplir le formulaire suivant et un de nos agents vous contactera au plus vite.

Les champs marqués d'un * sont nécessaires.

 

Nom Prénom
Adresse
Code postal    
Ville Pays
Tél Fax
Email
Description du bien
Type Typologie
Ville Région
Code postal Pays
Superficie m² nb de chambre
nb de pièces Prix demandé €
Description
 
<%end if%>
 
Developed & Hosted by TAS France - ATSAT - © 2003 Altitalia - All rights reserved___