Altitalia Real Estate

<% 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 Inglese" 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 Real Estate

contact

newsletter

Selling a property

<%if dispMerci>0 then%>

Thank you. Datas have been sent to us.
An Altitalia agent will contact you as soon as possible.

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

If you wish to sell a property, you may entrust the transaction to one of our estate agents. Please fill in the following form and an Altitalia agent will contact you as soon as possible.

The fields with an * are necessary.

Last name

First name

Address

Zip

City

Country

Phone

Fax

Product description

Type

Rooms

City

Region

Zip

Country

Surface area

m²

n° bedrooms

n° rooms

Price

€

Description

<%end if%>