<% @Language=VBScript %> <% Option Explicit %> <% PreventPageCaching dim sArea, sTipo, sSearch,sLocalita if request("area") <> "" then sArea = request("area") end if if not dDescArea.Exists(sArea) then response.Redirect("home.asp") sSearch = request("sSearch") dim nRegione, nProvincia, nComune if request("nRegione") <> "" then nRegione = request("nRegione") if nRegione = "" or not isNumeric(nRegione) or sSearch = "NEW" then nRegione = RegioneEmiliaRomagna if request("nProvincia") <> "" then nProvincia = request("nProvincia") if nProvincia = "" or not isNumeric("nProvincia") or sSearch = "NEW" then nProvincia = ProvinciaParma if request("nComune") <> "" then nComune = request("nComune") if nComune = "" or not isNumeric(nComune) or sSearch = "NEW" then nComune = ComuneParma if sLocalita = "" or sSearch = "NEW" then sLocalita = "EMILIA ROMAGNA - PARMA [PARMA]" if nRegione = "0" then nProvincia = "0" nComune= "0" end if if request("bFromForm") = "1" then dim bContinue : bContinue = false dim AFFITTO, NOME, COGNOME, TELEFONO, E_MAIL, TIPOLOGIA dim INDIRIZZO, LOCALITA, PREZZO, NR_VANI, NOTE, MQ AFFITTO = request.Form("VENDO") NOME = uCase(request.Form("NOME")) COGNOME = uCase(request.Form("COGNOME")) TELEFONO = uCase(request.Form("TELEFONO")) E_MAIL = uCase(request.Form("E_MAIL")) TIPOLOGIA = uCase(request.Form("TIPOLOGIA")) nRegione = request.Form("nRegione") nProvincia = request.Form("nProvincia") nComune = request.Form("nComune") if nRegione <> "" and isNumeric(nRegione) and nRegione <> "0" and _ nProvincia <> "" and isNumeric(nProvincia) and nProvincia <> "0" and _ nComune <> "" and isNumeric(nComune) and nComune <> "0" then dim REGIONE, PROVINCIA, COMUNE sSQL = "SELECT tblRegioni.sRegione, tblProvince.sProvincia, tblComuni.sComune"&_ " FROM (tblComuni INNER JOIN tblProvince ON tblComuni.codProvincia = tblProvince.sSigla) INNER JOIN tblRegioni ON tblProvince.IDReg = tblRegioni.ID"&_ " WHERE tblRegioni.ID = "&nRegione&" AND tblProvince.ID = "&nProvincia&" AND tblComuni.IdComune = "&nComune&"" set oRS = getRS(sSQL, connstring) if not oRS.eof then REGIONE = uCase(oRS("sRegione")) PROVINCIA = uCase(oRS("sProvincia")) COMUNE = uCase(oRS("sComune")) bContinue = true end if set oRS = Nothing end if INDIRIZZO = uCase(request.Form("INDIRIZZO")) PREZZO = uCase(request.Form("PREZZO")) NR_VANI = uCase(request.Form("NR_VANI")) NOTE = uCase(request.Form("NOTE")) if bContinue then session("sMsgBody") = "" session("sMsgBody") = session("sMsgBody") & "" session("sMsgBody") = session("sMsgBody") & "" session("sMsgBody") = session("sMsgBody") & "" session("sMsgBody") = session("sMsgBody") & "" session("sMsgBody") = session("sMsgBody") & "" session("sMsgBody") = session("sMsgBody") & "" session("sMsgBody") = session("sMsgBody") & "" session("sMsgBody") = session("sMsgBody") & "" session("sMsgBody") = session("sMsgBody") & "" session("sMsgBody") = session("sMsgBody") & "" session("sMsgBody") = session("sMsgBody") & "" if sArea <> areaAttivitaComm then session("sMsgBody") = session("sMsgBody") & "" end if session("sMsgBody") = session("sMsgBody") & "" session("sMsgBody") = session("sMsgBody") & "" session("sMsgBody") = session("sMsgBody") & "
AFFITTO:"&uCase(AFFITTO)&"
NOME:"&NOME&"
COGNOME:"&COGNOME&"
TELEFONO:"&TELEFONO&"
E_MAIL:"&E_MAIL&"
TIPOLOGIA:"&TIPOLOGIA&"
REGIONE:"®IONE&"
PROVINCIA:"&PROVINCIA&"
COMUNE:"&COMUNE&"
INDIRIZZO:"&INDIRIZZO&"
PREZZO:"&PREZZO&" €
NR. VANI:"&NR_VANI&"
MQ:"&MQ&"
NOTE:"&NOTE&"
" 'session("sMsgBody") = ViewDati ("testo", "testo", "500") sendMail mailFrom, mailTO, "", "", "AFFITTO "&uCase(AFFITTO)&" - messaggio dal sito", session("sMsgBody"), "" 'sendMail mailFrom, "FDORE@E-PROJECT.IT", "", "", "AFFITTO "&uCase(AFFITTO)&" - messaggio dal sito", session("sMsgBody"), "" response.Redirect("vendoSend.asp") end if end if %> AFFITTO OFFRO - <%=uCase(dDescArea(sArea))%> - MODULO DI RICHIESTA - MEDIAGLOBAL Vendite Immobiliari & Aziendali s.a.s
 
AFFITTO OFFRO - <%=uCase(dDescArea(sArea))%> - MODULO DI RICHIESTA  
AFFITTO:  <%=uCase(dDescArea(sArea))%>
NOME:  *
COGNOME:  *
TELEFONO:  *
E-MAIL:  *
TIPOLOGIA:  *
LOCALITÁ 
selezione comune
<%=sLocalita%>
INDIRIZZO: 
PREZZO €:  <% if sArea <> areaAttivitaComm then %>NR.VANI <% else %>MQ. <% end if %>:  <% if sArea <> areaAttivitaComm then %>MQ. :<% else %> <% end if %>  <% if sArea <> areaAttivitaComm then %><% else response.write(" ") end if %>
NOTE: 
PRIVACY:  Consapevole di quanto disposto dalla Legge Privacy 196/2003,
acconsento al trattamento dei dati indicati nel messaggio.
 
  * campo obbligatorio