<% QryStrCatId = SeparaIdQryStr("off","-",0) QryStrOffId = SeparaIdQryStr("off","-",1) If (QryStrCatId <> "" and IsNumeric(QryStrCatId)) and (QryStrOffId <> "" and IsNumeric(QryStrOffId)) Then sql_off = "SELECT off_id,off_codice,off_zona,off_tipologia,off_camere_nr,off_bagni_nr,off_garage,off_metriq,off_prezzo,off_noteprezzo,off_descbreve_ita,off_descestesa_ita,off_fotominiagg,off_fotomaxiagg,off_disponibilita,off_eta,off_zona_giorno,off_cucina,off_piano,off_riscaldamento,off_vicin_centro,off_impianti,off_accessori,off_classe_energ,off_aree_scoperte,off_carico_scarico,off_altezza,off_predisposizioni,off_esposizione,off_coltura,off_indice_cubatura,provincia_nome,provincia_sigla,comune_nome,contratto_nome_ita,categoria_nome_ita" sql_off = sql_off & " FROM QryOfferte WHERE off_id =" & QryStrOffId & " AND (off_datascad >= " & DataOggi & " OR off_datascad IS Null)" ' Response.write sql_off ' Response.end rs_open rs_off, xDb_Conn_Str, sql_off If rs_off.EOF Then OffertaView = False Else OffertaView = True OffId = rs_off("off_id") OffCodice = rs_off("off_codice") OffZona = rs_off("off_zona") OffTipologia = rs_off("off_tipologia") OffCamereNr = rs_off("off_camere_nr") OffBagniNr = rs_off("off_bagni_nr") OffMq = rs_off("off_metriq") OffPrezzo = Valuta(rs_off("off_prezzo"),"Euro","F",0,"Info in Agenzia") OffPrezzoStr = OffPrezzo & iif(Controllacampo(rs_off("off_noteprezzo")),"
(" & rs_off("off_noteprezzo") & ")","") OffDescBreve = rs_off("off_descbreve_ita") OffDescEstesa = rs_off("off_descestesa_ita") OffFotoMiniStr = rs_off("off_fotominiagg") OffFotoMaxiStr = rs_off("off_fotomaxiagg") OffDisponibilita = rs_off("off_disponibilita") OffEta = rs_off("off_eta") OffZonaGiorno = rs_off("off_zona_giorno") OffCucina = rs_off("off_cucina") OffPiano = rs_off("off_piano") OffVicinCentro = rs_off("off_vicin_centro") Select Case rs_off("off_riscaldamento") Case 1 OffRiscaldamento = "Assente" Case 2 OffRiscaldamento = "A Metano" Case 3 OffRiscaldamento = "Autonomo" Case 4 OffRiscaldamento = "A Gasolio" Case Else OffRiscaldamento = "" End Select Select Case rs_off("off_impianti") Case 1 OffImpianti = "A Norma" Case 2 OffImpianti = "Non a Norma" Case 3 OffImpianti = "Parzialmente a Norma" Case Else OffImpianti = "" End Select Select Case rs_off("off_garage") Case 1 OffGarage = "Box" Case 2 OffGarage = "Garage singolo" Case 3 OffGarage = "Garage Doppio" Case Else OffImpianti = "" End Select OffAccessori = rs_off("off_accessori") OffClasseEnerg = rs_off("off_classe_energ") OffAreeScop = rs_off("off_aree_scoperte") OffCaricoSc = rs_off("off_carico_scarico") OffAltezza = rs_off("off_altezza") OffPredisposizioni = rs_off("off_predisposizioni") OffEsposizione = rs_off("off_esposizione") OffColtura = rs_off("off_coltura") OffIndiceCub = rs_off("off_indice_cubatura") OffLocalita = rs_off("comune_nome") & "
(" & rs_off("provincia_nome") & ")" OffTipoContratto = rs_off("contratto_nome_ita") OffCategoriaNome = rs_off("categoria_nome_ita") End If rs_off.Close Set rs_off = Nothing End If %> Dettaglio offerta - De Marco Immobiliare
<% If OffertaView = True Then Set fso = Server.CreateObject("Scripting.FileSystemObject") StrBody = "Desidero ricevere ulteriori informazioni sul seguente immobile:%0A%0A" StrBody = StrBody & "Indirizzo web: " & DomainName & "/" & NomePaginaQryStr() & "%0A%0A" StrBody = StrBody & "Id offerta: " & FormatNumberZero(OffId,3,"") & "%0A" StrBody = StrBody & "Località: " & Replace(OffLocalita,"
"," ") & "%0A" StrBody = StrBody & "Categoria: " & OffCategoriaNome & "%0A" StrBody = StrBody & "Tipologia: " & OffTipologia & "%0A" StrBody = StrBody & "Motivazione: " & OffTipoContratto & "%0A%0A" StrBody = StrBody & "Dati richiedente: inserire qui i vostri dati per essere ricontattati%0A%0A" StrBody = StrBody & "Richiesta: inserite qui la vostra eventuale richiesta%0A" %> <% Set fso = Nothing End If %>
Richiesta info/Appuntamento
DESCRIZIONE: <%=OffDescEstesa%>
<% If ControllaCampo(OffFotoMiniStr) Then ArrImgMini = Split(OffFotoMiniStr,"<$--$>") Else ArrImgMini = "" End If If ControllaCampo(OffFotoMiniStr) Then ArrImgMaxi = Split(OffFotoMaxiStr,"<$--$>") Else ArrImgMaxi = "" End If If IsArray(ArrImgMini) Then Set fso = Server.CreateObject("Scripting.FileSystemObject") %> <% NumColonne = 2 ContaCelle = 1 For z = 0 To UBound(ArrImgMini) ImgMini = ArrImgMini(z) ImgMaxi = ArrImgMaxi(z) If contacelle = 1 Then Response.write " " & VbCrlf %> <% End If %> <% CelleRimanenti = NumColonne - ContaCelle If ContaCelle = NumColonne Then Response.write " " & VbCrlf ContaCelle = 0 End If ContaCelle = ContaCelle + 1 Next For celle = 1 to CelleRimanenti Response.write " " & VbCrlf Next If CelleRimanenti <> 0 Then Response.write " " & VbCrlf End If %>
<% If GetFileExistList("",ImgMaxi) Then %>
 
<% Set fso = Nothing End If %> 		<% Sub StampaRigaCaratt(NomeCampo,ValCampo,NumRiga) If NumRiga Mod 2 <> 0 Then TrBgCol = " bgcolor=""#EFEACD""" Td2BgCol = "" Else TrBgCol = "" Td2BgCol = " bgcolor=""#FAF9EF""" End If Response.Write("" & vbcrlf) Response.Write(" " & vbcrlf) Response.Write(" " & vbcrlf) Response.Write(" ") NumRiga = NumRiga + 1 End Sub NrRiga = 0 Select Case QryStrCatId Case 1,2 'Residenziale/Turistico StampaRigaCaratt "Località",OffLocalita,NrRiga StampaRigaCaratt "Zona",OffZona,NrRiga StampaRigaCaratt "Tipologia",OffTipologia,NrRiga StampaRigaCaratt "Mq",OffMq,NrRiga StampaRigaCaratt "Età",OffEta,NrRiga StampaRigaCaratt "Prezzo",OffPrezzoStr,NrRiga StampaRigaCaratt "Disponibilità",OffDisponibilita,NrRiga StampaRigaCaratt "Stato/
Categoria",OffCategoriaNome,NrRiga StampaRigaCaratt "Motivazione",UCase(OffTipoContratto),NrRiga StampaRigaCaratt "Numero
Camere",OffCamereNr,NrRiga StampaRigaCaratt "Numero
Bagni",OffBagniNr,NrRiga StampaRigaCaratt "Zona Giorno",OffZonaGiorno,NrRiga StampaRigaCaratt "Cucina",OffCucina,NrRiga StampaRigaCaratt "Piano",OffPiano,NrRiga StampaRigaCaratt "Riscaldamento",OffRiscaldamento,NrRiga StampaRigaCaratt "Parcheggio",OffGarage,NrRiga StampaRigaCaratt "Vicinanza
centro",OffVicinCentro,NrRiga StampaRigaCaratt "Impiantistica",OffImpianti,NrRiga StampaRigaCaratt "Accessori",OffAccessori,NrRiga StampaRigaCaratt "Classe
energetica",OffClasseEnerg,NrRiga Case 3 'Industriale StampaRigaCaratt "Località",OffLocalita,NrRiga StampaRigaCaratt "Motivazione",UCase(OffTipoContratto),NrRiga StampaRigaCaratt "Stato/
Categoria",OffCategoriaNome,NrRiga StampaRigaCaratt "Tipologia",OffTipologia,NrRiga StampaRigaCaratt "Mq",OffMq,NrRiga StampaRigaCaratt "Aree scoperte",OffAreeScop,NrRiga StampaRigaCaratt "Carico/scarico",OffCaricoSc,NrRiga StampaRigaCaratt "Zona",OffZona,NrRiga StampaRigaCaratt "Disponibilità",OffDisponibilita,NrRiga StampaRigaCaratt "Altezza",OffAltezza,NrRiga StampaRigaCaratt "Impiantistica",OffImpianti,NrRiga StampaRigaCaratt "Predisposizioni",OffPredisposizioni,NrRiga StampaRigaCaratt "Prezzo",OffPrezzoStr,NrRiga StampaRigaCaratt "Età",OffEta,NrRiga Case 4 'Commerciale StampaRigaCaratt "Località",OffLocalita,NrRiga StampaRigaCaratt "Zona",OffZona,NrRiga StampaRigaCaratt "Stato/
Categoria",OffCategoriaNome,NrRiga StampaRigaCaratt "Motivazione",UCase(OffTipoContratto),NrRiga StampaRigaCaratt "Mq",OffMq,NrRiga StampaRigaCaratt "Parcheggio",OffGarage,NrRiga StampaRigaCaratt "Disponibilità",OffDisponibilita,NrRiga StampaRigaCaratt "Impiantistica",OffImpianti,NrRiga StampaRigaCaratt "Prezzo",OffPrezzoStr,NrRiga StampaRigaCaratt "Età",OffEta,NrRiga Case 5 'Terreni StampaRigaCaratt "Località",OffLocalita,NrRiga StampaRigaCaratt "Zona",OffZona,NrRiga StampaRigaCaratt "Motivazione",UCase(OffTipoContratto),NrRiga StampaRigaCaratt "Tipologia",OffTipologia,NrRiga StampaRigaCaratt "Mq",OffMq,NrRiga StampaRigaCaratt "Esposizione",OffEsposizione,NrRiga StampaRigaCaratt "Coltura",OffColtura ,NrRiga StampaRigaCaratt "Indice cubatura",OffColtura ,NrRiga StampaRigaCaratt "Disponibilità",OffDisponibilita,NrRiga StampaRigaCaratt "Prezzo",OffPrezzoStr,NrRiga End Select %>
CARATTERISTICHE
" & vbcrlf) Response.Write("

" & NomeCampo & "

" & iif(ControllaCampoZAll(ValCampo),ValCampo,"--") & "