RIFF"WEBPVP8 Е�* �>�T�M'��%�u|�� gk�ZaQb�����o����lN���s�_�3��S+���c�€R��y����//����~��H�@�2oF�X ���R@'�:�ꞓ}��a�M,.� ��o��=�p�U�&g<�:���~���t��.�1���cyW�� We�M=�f�Y6v�����(nO���������^- �9(b _�s%{�C|�p�@�����37�}B0��u���i�Գ���� ������5�}���֮M?dz���q�e��N�~�&�N��K�av$]hO�i�C�,��"]�����@����M@�o O[�Æ*;�e]��_; }�p�?��)�'VC� J��L�y� v����18��)7c�d�mߛ�]I� ����d��?�{�.����b)49��c��Zy/��c^��%��/z�å̯�t��rS��Z��Uͩ�h��2����` �7�:��~��zP���Z����?v�R��TD���G����CJ���}�o��fs��̜#b��e"k9,���3�{Or�i��x":���{/ۈ�`�7RČ����(�p:I��%:�ͺ��W(|�=KP��3�7}���������ed��;�3�;�e��8�g�4�9 %v,B�GU�����T% ֯��B+�tR���p������F7�sT��oϱq �h�Rݧ�~*�܈_�Ck���}�nY�>��C�PQ�B��(o�६�qxy������f ���]��}����%=CW�k^t�—]����M�cX�i��%��!�Y������:N=|��wj<9ł��,�s�O�,,�U�!�������e���{���W��989�y*z�=�"E�CyW���N�2�ę��LN�HW��?����`V���DJ=#׶×ܽ$eF���o;b� ��0��&�W���Y�bR�� �Fֵ� `J�an�-Є@�tR�v��e2W��Mn�p��4P1�q ���®w���ũur*�җ.�#�4b���������:���g��ʧ�`R�4�+G�f���niU����$�K-'A�zE&]��Y�H2�4� ��˄�t��Q�4%��L�#��0FS8�Bu����ژ��"����۹�[�JK��4��z�v�ڌ��L*jD0.����?�ڃN��H��J����n�w��6Q(i;��I,.3?|�`���y���D_��(��w��������[��ZYhe�')��D*��kb����c��@� �|S�S3���- ���iq!*��w������Ł��ܩ��*FY���jV�4Q���4�,�ʑV!��N�.�1�KT,��Zp� ���iL�r��Ȧ����"y�tU���PS�ģ��?�QGng_�#yEk��B̝��1hr��ѕ�z*Ԧ�L8T�����H�^�k�-�g�z������w��N����v��RH��E��!0Cؚ)R�@�q�J�qA�r�$k4���om���Ьnu���x�������������y$�8�Z���v� &�+2�|���\r:[,!�Y�C#c��͊�{��7Щ��Y�LVę]�j��)��^���󶦙$�_����Hx>����[ +K�ڏ�1������Q�7@�^{�ik�;'H{�8 �ȇe vR����^� Meq�����Y�MC��U<��O�۫�nAfBf317���x��O�.u@3R}e�`�D��\�z���L��P������y8�?����I�"s`�b 3��ٹd�0��A�/���� ��{b�b������1� ����ka�&T�z�_4���I��PN��8��}N�r��]�՜���ӿ��9�|/.��� �fˑ.�`r�r��U-���7�Rx8L��d$H�m��Ǒ�*x�P{�D�����k��o�ueV�-.��j}���U2��g絍g���s �������aN�X�ҍ���C�� ��X��B�EF���8%p57<�x�Y�e�cϔ�\��C �OAj&N�V���!v��U��~J��j��4�V|��8�R�v�fD�)�HA�3�G��ds�7Z.���= ����+kI2�0=�'� K �H,`�ɴāTE\����E�'/��;���;��a���0"��� �x$J�T��#U=������j-�8�����y c8W����Ԋ�K��_��Y� '%Vg$I�Пq�shE�y�:�m�}�F1(:b�U�~� ���0}�C�}0����#�#}���e�S9��.��SP�m���<�~�y��� ��ɭ�ٮ6N��� ğ��t��A��N�V ������f�+�w�O1�Jq���U�B�T��į���� ��*�=z�x"yU S���� ��// ����W᫮��R�O�2W�M��<-�;�F�`9 �����t�:C{a�8�� <�r'���:�g8%�9J̞�˦��eV�7l�~�#����.yY)$��k�|�!�3���m���XS���J4B���`�����oL[]��aT[�C��@h�T�l��_�e>�����K<'��P�zgk�#fm��V�]�ݽ�j1����H��J��J58��ڱ��@�e&*�w��e���Q��HT8�ֽ��\�Fa�栆�A�ڝӚ׹@�:9`��G�h�7����t<���_˒|�\bU�O�����,M�a�oynGf�޶7�w�i`�m[��XE4�*�8}5��U1���^�B*��_%[����Yb�^���S�l�"A�1�T��ڈ��(???)j�S�n�8v%� Eo��� mE��|�Έ�Ai�3uy5O����7Rܽ���"L��X���1�@�=?5�_'��{j�����Z3L��k��^x6g3i�����r.��N��&��9[��ɓW[+�� 7�����fe�3�K�%��0F��+V�ϛ+3�B�p,y;Z�NGK�uWg䁯9�v��t��ǒx�JY�O��K�iY��#FJy�Bzt�Q^�Y��Uϲ-͖��9��g�X,�X] f�P/�]d�䠾�̔m%Q��겓\q(�%'����/EN�P�1�o��� ���}��'��c�F��Ju��4��0ck�N��w�1��&]a ��^I�)����֓��\;�1��3��� �L��{>�+���a��Jg��#����P���>�5�a<�`>>˔�]�ߎey�-T���ʵ���r���8`dmNm���_mӐK�Ҏ-޴�� ��RQ%�d�l"��l�_��ie0.�$Xh|.jv,���l\ uyj�u\�/� B:�܀�]� _��T��I���lz�&c�A�g{g��O˂�O���O�M�t��7Y�~? ቶ`�7��'�w��#���˚�\��_��� a��d���[Ҭњ��]ɢ�A$ �l�v=E�66d �WA\̬fsǭ}x;';���?�UW�O��{�&|_a�C� |ȹ��pka�|���zf[S�������[�Jcf�A�&�L�U)Pd+)�_�$1�0�z�'�v\u�' +;�!���dž�]h�N�{ku��<��a��.0�,��]q��ZKao=ILo�z�rb&�{@K�i*7nX).�/�̶��ӒU�v �B֝���a��n��تx ���P�AG7M4N�?r;Z�����7�@�wA�q��RM5�8ۭ ��g��8�g���G�Tſ�O�{2��P3r��6�W,/��kC���p�V���~�"���T���6�/<�4�U�>��T�H�Fc�T�D�^I���!�����=&\Em�>b�,|T��d���n��=@\Wzi���D��&�f���1�t�mC�Ih��m��&�������84�!H�i�|�Z���� ��W���g����8�h�B] OvQ�u����+�}n�� FE�+q�&j����I�u��&��=!��T�b�@�ք0 �D�W�W�t�V}�������^�g�Erb`j��2 �wr�\Y5��L�Ρ���_�bNU�)~�e�Z�U�*�����:�vƀu2�W-W��W{KKo0�)��G�K.��{̮���v�/��p� !�� �w;`��b ������F���/���:����I�lm��Vc�,x~m<=|�_�>n����(A�����{�膾���m�,{3 �ӀH=٘�%��[USd��!J�|�f_�/ �߻��)I%���G�ܑ�G |N������d��BU5��qvG�c,���A?!��w��� �S��-i���Fr�P�_��E�+��)��V��f��������~�����������}"sk��cHN�<� 5I�r��1gu�ݗ�,N�I��f��k�s���0��: 0�<�\ͩB�܄ �:�f2A��mҞ�Z�6��3��t�����͟~����J�R9�] �,h������Z�@�{����9��W�il!�:��P��P���wK)���p���!���KuB\�7 uI�?(���/��r3����v,\'�8��qUa�ء���!��(b��n?�YfӸ����r�$���ה�~��_�&�8g�<(Mx$ZO�������u`q��:�N�Q !�%`���h:�� �~>�D���m�^��[V!y�6=� ��m��ѡ��p4�Iꎸ��1cE��QS�ٷ��W�C����*�����Q��=��3���&���-#,åCCG�������9�i��3�C��S[t>���qm����B��s���������o��� J�^s|����r��\ԺΦ�a�{��1��wT'���� �̓Q���B��\xx}��8��Of!��U�n��f�����bA��UD�cC} �r�������c ���^�X���k�Ɩk�6��^E�C�E�sՀ`�Ⱦ,i��v�� ٺe˟�!�co�64x4��A�ah��ˏ<��%�@�*|�\�TY����#:9��|?S�[������G hUw9���z]��D��-J6�m,ʭ��2�Iz�4W9��&���t�߁ R�Z�gP��H�dj�`%ap}�^떟��*fb{�Q) Dd_V����$��,�߁� @D�&f�2��S6��M�ɤ�)Q\F�i���5p��Wb'PN�R�>�����9��]��\8{B8�� ��ю�������%� ӏۙ{]�j,_Y>��!�l���'���H�["��;c?cy��1< 0ϑ���/�AAЛ�� ; �j�(!��1 [)5ݻK ��A7��"[�%"���{��H ���V�� ���m�K���VLn��9鿹8�At΀@����f`�1y�rЅ��q��7Nf���x)y��, 0e�"{�ƨ�"� o �6� �.|Tm.���-r �G� [ed���–q���]�X�oG*�1>�� م�p_Y{δ(N�|s��^{i�`��͒ QӴx+X.ݕ�kP�g]�޿�4��Q|�O��h�*c�W�G�4{~x�k��A:�{Yu�倀#ތM�K!�e�;ȩ����r������'���D&H�$�0�ߜ�w��Sq dH��P�y����z����h��d��"�;0��#I2�F{����. W�wl���|>s�\ŌO�&bO/4(z9ܭua��`��_3d�Qpt�/�P -��#5�,�M��� �pA:©�q�����NW��ډ�A���� �9nʺج���� �TSM��{J6?7��r�@�\����D��� �׶���s�f�TJj?"��D��`?��̒� b�#�%�C*v�$�{�$����5Ծ�F�s��y�e/8��h-�f�̰&(����Gj�L:U� 2�� ����v�_k����Y��gp,�k�WF�R������_C�R��N@���R�@�ߔ?A�w9���F("iNa-S���Q�o�3tDMLh*�#4k�T/iQ��Y*�G��m����)��8�hBm/�I�,g�ﯖ���Z��}�Cz�q@´��d.����L�ŕ�,��1�Z�܌�: ̪���F+J-'��c�tvJ8��]Q-��b��y �6;*J`r_�d ��'�G ~p��)'�C,�%F��E(��2�k�����lР�z�!�=t ��_�0��f7��� ;�p�|�U �%
 
    Tel.: " & replace(oRs("telefono"),"^"," ") & " - Cell.: " & replace(oRs("cell"),"^"," ") & " - P.IVA: " & oRs("piva") & " - " & ors("email_sito") & "" Case 2 LeggiIndirizzo = oRs("nomehotel") & "
" & oRs("indirizzo") & " - " & oRs("cap") & " - " & oRs("localita") & " (" & oRs("provincia") & ")
Tel.: " & replace(oRs("telefono"),"^"," ") & " - Cell.: " & replace(oRs("cell"),"^"," ") & "
P.IVA: " & oRs("piva") & "
" & ors("email_sito") & "" Case 3 LeggiIndirizzo = "Tel.: " & replace(oRs("telefono"),"^"," ") & " - Cell.: " & replace(oRs("cell"),"^"," ") & " " & ors("email_sito") & "" Case 4 LeggiIndirizzo = "Tel.: " & replace(oRs("telefono"),"^"," ") & "
Cell.: " & replace(oRs("cell"),"^"," ") & "
" & ors("email_sito") & "" Case 5 LeggiIndirizzo = oRs("indirizzo") & "
" & oRs("cap") & " - " & oRs("localita") & " (" & oRs("provincia") & ")
Sicilia - Italia" Case 6 LeggiIndirizzo = left(oRs("nomehotel"),36) & "
" & oRs("indirizzo") & "
" & oRs("cap") & " - " & oRs("localita") & " (" & oRs("provincia") & ")
Tel.: " & replace(oRs("telefono"),"^"," ") & "
Cell.: " & replace(oRs("cell"),"^"," ") & "
P.IVA: " & oRs("piva") & "
Web:  " & ors("url") & "
Email: " & ors("email_sito") & "
" Case 7 LeggiIndirizzo = oRs("nomehotel") & "
" & oRs("indirizzo") & " - " & oRs("cap") & " - " & oRs("localita") & " (" & oRs("provincia") & ")
Tel.: " & replace(oRs("telefono"),"^"," ") & " - Cell.: " & replace(oRs("cell"),"^"," ") & "
E-mail: " & ors("email_sito") & "" Case 8 LeggiIndirizzo = oRs("nomehotel") & " - " & oRs("indirizzo") & " - " & oRs("cap") & " - " & oRs("localita") & " (" & oRs("provincia") & ")
Tel.: " & replace(oRs("telefono"),"^"," ") & " - Cell.: " & replace(oRs("cell"),"^"," ") & " - E-mail: " & ors("email_sito") & "" Case Else LeggiIndirizzo = oRs("nomehotel") & " - " & oRs("indirizzo") & " - " & oRs("cap") & " - " & oRs("localita") & " (" & oRs("provincia") & ") - Tel.: " & replace(oRs("telefono"),"^"," ") & " - Cell.: " & replace(oRs("cell"),"^"," ") & " - P.IVA: " & oRs("piva") & " - " & ors("email_sito") & "" End Select end if End Function Function eliminaTagHtml(testo) 'Creo l'oggetto MiaRegEx Dim MiaRegEx Set MiaRegEx = New RegExp 'Imposto il Pattern MiaRegEx.Pattern = "<[^>]*>" 'Imposto Global su True per agire su tutte le occorrenze trovate MiaRegEx.Global = true ' Imposto ignorecase su True per NON distinguere tra maiuscolo e minuscolo MiaRegEx.IgnoreCase = true 'Applico il tutto al testo passato alla funzione eliminaTagHtml = MiaRegEx.Replace(testo,"") End Function Function eliminaGrassetto(testo) 'Applico il tutto al testo passato alla funzione eliminaGrassetto = Replace(testo,"", "") eliminaGrassetto = Replace(eliminaGrassetto,"", "") eliminaGrassetto = Replace(eliminaGrassetto,"", "") eliminaGrassetto = Replace(eliminaGrassetto,"", "") eliminaGrassetto = Replace(eliminaGrassetto,"

", "") eliminaGrassetto = Replace(eliminaGrassetto,"

", "") eliminaGrassetto = Replace(eliminaGrassetto,"

", "") eliminaGrassetto = Replace(eliminaGrassetto,"

", "
") End Function Function DecodificaPrezzo(codice_annuncio) rSql4 = "Select * from Configurazione where id=1" 'response.Write(rSql4) set oRs4 = DBRecordSet(oCn, rSQL4) if not oRs4.eof then canno = oRs4("anno") end if rSql4 = "SELECT * FROM Annuncio where IdAnnuncio = " & codice_annuncio Set oRs4 = DBRecordSet(oCn, rSql4) if not oRs4.eof then anno_da_visualizzare = oRs4("AnnoAffitti") if len(anno_da_visualizzare) > 0 then else anno_da_visualizzare = 0 end if else anno_da_visualizzare = 0 end if ' response.Write(canno) DecodificaPrezzo = "" if anno_da_visualizzare = 0 then if canno = 0 then annoDat = Year(Date) annoProx = annoDat + 1 database = "Prezziario" & annoProx rSql10 = "Select count(idPrezziario) as NumeroRecord from " & database & " where numid = " & codice_annuncio & " and periodo1 <> 'NO'" set oRs10 = DBRecordSet(oCn, rSQL10) nrRecord10 = oRs10("NumeroRecord") if nrRecord10 > 0 then database = "Prezziario" & annoProx databasenote = "NoteAB" & annoProx annoCal = annoProx else database = "Prezziario" & annoDat databasenote = "NoteAB" & annoDat annoCal = annoDat end if else database = "Prezziario" & canno databasenote = "NoteAB" & canno annoCal = canno rSql10 = "Select count(idPrezziario) as NumeroRecord from " & database & " where numid = " & codice_annuncio & " and periodo1 <> 'NO'" set oRs10 = DBRecordSet(oCn, rSQL10) nrRecord10 = oRs10("NumeroRecord") if nrRecord10 > 0 then else annoDat = canno + 1 database = "Prezziario" & annoDat databasenote = "NoteAB" & annoDat annoCal = annoDat end if end if else database = "Prezziario" & anno_da_visualizzare databasenote = "NoteAB" & anno_da_visualizzare annoCal = anno_da_visualizzare end if rSQL_Prezzo = "select * from " & database & " where numid = " & codice_annuncio Set oRs_Prezzo = DBRecordSet(oCn, rSQL_Prezzo) If Not oRs_Prezzo.EOF Then while not oRs_Prezzo.eof if oRs_Prezzo("Periodo1") = "NO" then else DecodificaPrezzo = oRs_Prezzo("Prezzo1") end if oRs_Prezzo.Movenext wend end if end function Function PulisciPrezzoRicerca(Prezzo) PulisciPrezzoRicerca = trim(Prezzo) PulisciPrezzoRicerca = replace(ucase(PulisciPrezzoRicerca), "TRATTABILI", "") PulisciPrezzoRicerca = replace(PulisciPrezzoRicerca, "-", "") PulisciPrezzoRicerca = replace(PulisciPrezzoRicerca, ".", "") PulisciPrezzoRicerca = trim(PulisciPrezzoRicerca) end function Function VerificaRibasso(Prezzoold, Prezzo) VecchioPrezzo = PulisciPrezzoRicerca(Prezzoold) NuovoPrezzo = PulisciPrezzoRicerca(Prezzo) If isNumeric(VecchioPrezzo) Then if isNumeric(NuovoPrezzo) then diffe = VecchioPrezzo-NuovoPrezzo diffe = diffe * 100 diffe = diffe / VecchioPrezzo diffe = int(diffe) IF diffe > 0 then VerificaRibasso = "Prezzo Ribassato" ELSE VerificaRibasso = "Prezzo Aumentato" diffe = diffe * (-1) END IF VerificaRibasso = VerificaRibasso + " del " VerificaRibasso = VerificaRibasso + cstr(diffe) VerificaRibasso = VerificaRibasso + "%" else VerificaRibasso = " " end if else response.write("non calcolato") end if end function Function PulisciValorePrezzo(Prezzo) PulisciValorePrezzo = trim(Prezzo) if PulisciValorePrezzo = "N.D." then PulisciValorePrezzo = 0 else if left(ucase(PulisciValorePrezzo),5) = "
" then PulisciValorePrezzo=mid(PulisciValorePrezzo,6) end if if left(ucase(PulisciValorePrezzo),5) = "
" then PulisciValorePrezzo=mid(PulisciValorePrezzo,6) end if PulisciValorePrezzo = replace(PulisciValorePrezzo, "€", "") PulisciValorePrezzo = replace(ucase(PulisciValorePrezzo), "
", "^") PulisciValorePrezzo = replace(ucase(PulisciValorePrezzo), "BB", "^") PulisciValorePrezzo = replace(ucase(PulisciValorePrezzo), "HB", "^") PulisciValorePrezzo = replace(ucase(PulisciValorePrezzo), "FB", "^") PulisciValorePrezzo = replace(PulisciValorePrezzo, " (", "^(") PulisciValorePrezzo = replace(PulisciValorePrezzo, "0(", "0^(") end if end function Function PulisciPeriodo(Periodo) PulisciPeriodo = Periodo PulisciPeriodo = replace(ucase(PulisciPeriodo), "
( ", "") PulisciPeriodo = replace(ucase(PulisciPeriodo), "
", "") PulisciPeriodo = replace(ucase(PulisciPeriodo), "DAL", "") PulisciPeriodo = replace(ucase(PulisciPeriodo), "AL", "^") PulisciPeriodo = replace(PulisciPeriodo, " ", "") end function Function PulisciPrezzo(codice_annuncio) PulisciPrezzo = "" rSQL_Prezzo = "select * from prezziario where numid = " & codice_annuncio Set oRs_Prezzo = DBRecordSet(oCn, rSQL_Prezzo) If Not oRs_Prezzo.EOF Then while not oRs_Prezzo.eof if oRs_Prezzo("Periodo1") = "NO" then else PulisciPrezzo = oRs_Prezzo("Prezzo1") PulisciPrezzo = replace(PulisciPrezzo, "€", "") PulisciPrezzo = replace(PulisciPrezzo, "
", " - ") end if oRs_Prezzo.Movenext wend end if end function Function VisualizzaPrezzo (uID) rSQLr = "Select Annuncio, Prezzo, Fascia From Annuncio where IdAnnuncio = " & uId Set oRsr = DbRecordSet(oCn, rSQLr) if not oRsr.eof then if oRsr("Annuncio") = 3 then VisualizzaPrezzo = PulisciValorePrezzo(DecodificaPrezzo (uId)) VisualizzaPrezzo = replace(VisualizzaPrezzo, "^", " ") else if oRsr("prezzo")<> " " then VisualizzaPrezzo = oRsr("prezzo") else VisualizzaPrezzo = oRsr("fascia") end if if oRsr("Prezzo") <> " " then VisualizzaPrezzo = VisualizzaPrezzo & " €" End if end if else VisualizzaPrezzo = 0 end if End Function Function recupera_immagine (uId) rSQL2 = "SELECT * FROM elencoimg where cat='annuncio' and numid=" & uID & " order by ContInt asc" Set oRs2 = DBRecordSet(oCn, rSQL2) foto = 0 if not oRs2.Eof then foto = 1 img = oRs2("immagine") else foto = 0 img = "logo_agenzia.gif" End if recupera_immagine = "https://www.eoliesolution.it/admin/upload/" & img End Function Function RecuperaScheda (uId) rSQLr = "Select Annuncio From Annuncio where IdAnnuncio = " & uId Set oRsr = DbRecordSet(oCn, rSQLr) if not oRsr.eof then select case oRsr("Annuncio") case 1 RecuperaScheda = "scheda-VE.php" case 2 RecuperaScheda = "scheda-AF.php" case 3 RecuperaScheda = "scheda-AB.php" case else RecuperaScheda = "#" end select else RecuperaScheda = "index.php" end if End Function Function RecuperaTipo (uId) rSQLr = "Select Annuncio From Annuncio where IdAnnuncio = " & uId Set oRsr = DbRecordSet(oCn, rSQLr) if not oRsr.eof then select case oRsr("Annuncio") case 1 RecuperaTipo = "In Vendita" case 2 RecuperaTipo = "In Affitto" case 3 RecuperaTipo = "Case Vacanze" case else RecuperaTipo = "Non Codificato" end select else RecuperaTipo = "Non Codificato" end if End Function Function RecuperaTipol (uId) rSQLr = "Select Annuncio From Annuncio where IdAnnuncio = " & uId Set oRsr = DbRecordSet(oCn, rSQLr) if not oRsr.eof then select case oRsr("Annuncio") case 1 RecuperaTipol = "VE" case 2 RecuperaTipol = "AF" case 3 RecuperaTipol = "AB" case else RecuperaTipo = "Non Codificato" end select else RecuperaTipo = "Non Codificato" end if End Function Function RecuperaPostiLetto (uId) rSQLr = "Select postiletto From Annuncio where IdAnnuncio = " & uId Set oRsr = DbRecordSet(oCn, rSQLr) if not oRsr.eof then RecuperaPostiLetto = Trim(oRsr("postiletto")) if len(RecuperaPostiLetto) > 0 then else RecuperaPostiLetto = "" end if else RecuperaPostiLetto = "" end if End Function Function RecuperaLingua (uId) rSQLr = "Select * From Annuncio_Lang where IdAnnuncio = " & uId Set oRsr = DbRecordSet(oCn, rSQLr) if not oRsr.eof then RecuperaLingua = 1 else RecuperaLingua = 0 end if End Function Function GetDaysInMonth(iMonth, iYear) Dim dTemp dTemp = DateAdd("d", -1, DateSerial(iYear, iMonth + 1, 1)) GetDaysInMonth = Day(dTemp) End Function Function GetWeekdayMonthStartsOn(dAnyDayInTheMonth) Dim dTemp dTemp = DateAdd("d", -(Day(dAnyDayInTheMonth) - 1), dAnyDayInTheMonth) GetWeekdayMonthStartsOn = WeekDay(dTemp) End Function function formatDateTimeDb(dtmDateValue) formatDateTimeDb = Month(dtmDateValue) &_ "/" & Day(dtmDateValue) &_ "/" & Year(dtmDateValue) end function function recupera_campo(uID, nomeCampo) 'datapartenza = formatDateTimeDb(datapartenza) rSQL="select * from Annuncio where IdAnnuncio=" & uID Set oRs = DBRecordSet(oCn, rSql) recupera_campo = " " if not oRs.Eof then if oRs(nomeCampo) <> " " then recupera_campo = oRs(nomeCampo) end if end if End Function function verifica_campo(uID, nomeCampo, logico, nomeDescr, icona) 'datapartenza = formatDateTimeDb(datapartenza) rSQL="select * from Annuncio where IdAnnuncio=" & uID Set oRs = DBRecordSet(oCn, rSql) verifica_campo = " " if not oRs.Eof then if logico = "falso" then if oRs(nomeCampo) <> " " then select case nomecampo case "categoria" if oRs(nomecampo) = "Re" then verifica_campo = "
  • Residenziale
  • " else if ors(nomecampo) = "Co" then verifica_campo = "
  • Commerciale
  • " else verifica_campo = " " & oRs(nomeCampo) & "" end if end if case "altitudine" if oRs(nomecampo) <> "0" and ors(nomecampo) <> "scegli" then verifica_campo = "
  • " & oRs(nomeCampo) & "
  • " else verifica_campo = " " end if case "prezzo" if ors(nomecampo) <> " " then verifica_campo = oRs(nomeCampo) else verifica_campo = oRs("fascia") end if case "Piano" if ors(nomecampo) <> " " then verifica_campo = oRs(nomeCampo) end if if ors("nrpiani") <> " " then verifica_campo = " " & verifica_campo & " su " & oRs("nrpiani") & " Piani " if ors("ascensore") then verifica_campo = " " & verifica_campo & " con Ascensore " else verifica_campo = " " & verifica_campo & " senza Ascensore " end if end if verifica_campo = " " & verifica_campo case "Riscaldamento" if ors(nomecampo) <> " " then verifica_campo = oRs(nomeCampo) end if if ors("Condizionatore") then verifica_campo = " " & verifica_campo & " con condizionatore " end if verifica_campo = " " & verifica_campo case "cap" if ors("Visibile") then verifica_campo = "
  • " & nomeDescr & ": " & oRs(nomeCampo) & "
  • " end if case "Indirizzo" if ors("Visibile") then verifica_campo = "
  • " & nomeDescr & ": " & oRs(nomeCampo) & "
  • " end if case "civico" if ors("Visibile") then verifica_campo = "
  • " & nomeDescr & ": " & oRs(nomeCampo) & "
  • " end if case else verifica_campo = oRs(nomeCampo) end select end if else if oRs(nomeCampo) then verifica_campo = "SI" end if end if end if End Function Function RecuperaBagni (uId) rSQLr = "Select bagni From Annuncio where IdAnnuncio = " & uId Set oRsr = DbRecordSet(oCn, rSQLr) if not oRsr.eof then RecuperaBagni = Trim(oRsr("bagni")) if len(RecuperaBagni) > 0 then else RecuperaBagni = "" end if else RecuperaBagni = "" end if End Function Function VerificaAffitto (tipologia) rSQL = "Select count(IdAnnuncio) as numeroRecord From Annuncio where Annuncio = " & tipologia & " and archivio = 0 and cancellato = 0 and venduto = 0 and disattivo = 0" Set oRs = DbRecordSet(oCn, rSQL) if not oRs.eof then VerificaAffitto = oRs("numeroRecord") else VerificaAffitto = 0 end if end function Function VerificaNuovo () rSQL = "Select count(IdAnnuncio) as numeroRecord From Annuncio where archivio = 0 and cancellato = 0 and venduto = 0 and disattivo = 0 and Nuovo = 1" Set oRs = DbRecordSet(oCn, rSQL) if not oRs.eof then VerificaNuovo = oRs("numeroRecord") else VerificaNuovo = 0 end if end function Function VerificaLusso () rSQL = "Select count(IdAnnuncio) as numeroRecord From Annuncio where archivio = 0 and cancellato = 0 and venduto = 0 and disattivo = 0 and lusso = 1" Set oRs = DbRecordSet(oCn, rSQL) if not oRs.eof then VerificaLusso = oRs("numeroRecord") else VerificaLusso = 0 end if end function Function VerificaInvestimenti () rSQL = "Select count(IdAnnuncio) as numeroRecord From Annuncio where archivio = 0 and cancellato = 0 and venduto = 0 and disattivo = 0 and Invest = 1" Set oRs = DbRecordSet(oCn, rSQL) if not oRs.eof then VerificaInvestimenti = oRs("numeroRecord") else VerificaInvestimenti = 0 end if end function Function VerificaAdsIsola (Isola) rSQL = "Select count(IdAnnuncio) as numeroRecord From Annuncio where ucase(isola) = '" & isola & "' and archivio = 0 and cancellato = 0 and venduto = 0 and disattivo = 0" Set oRs = DbRecordSet(oCn, rSQL) if not oRs.eof then VerificaAdsIsola = oRs("numeroRecord") else VerificaAdsIsola = 0 end if end function Function VerificaAdsComune (Isola) rSQL = "Select count(IdAnnuncio) as numeroRecord From Annuncio where ucase(comune) = '" & isola & "' and archivio = 0 and cancellato = 0 and venduto = 0 and disattivo = 0" Set oRs = DbRecordSet(oCn, rSQL) if not oRs.eof then VerificaAdsComune = oRs("numeroRecord") else VerificaAdsComune = 0 end if end function Function VerificaItemIsola (Isola, tipologia) rSQL = "Select count(IdAnnuncio) as numeroRecord From Annuncio where ucase(isola) = '" & isola & "' and Annuncio = " & tipologia & " and archivio = 0 and cancellato = 0 and venduto = 0 and disattivo = 0" Set oRs = DbRecordSet(oCn, rSQL) if not oRs.eof then VerificaItemIsola = oRs("numeroRecord") else VerificaItemIsola = 0 end if end function Function VerificaItemComune (Isola, tipologia) rSQL = "Select count(IdAnnuncio) as numeroRecord From Annuncio where ucase(comune) = '" & isola & "' and Annuncio = " & tipologia & " and archivio = 0 and cancellato = 0 and venduto = 0 and disattivo = 0" Set oRs = DbRecordSet(oCn, rSQL) if not oRs.eof then VerificaItemComune = oRs("numeroRecord") else VerificaItemComune = 0 end if end function Function VerificaItemCategoria (categoria, tipologia) rSQL = "Select count(IdAnnuncio) as numeroRecord From Annuncio where Categoria = '" & categoria & "' and Annuncio = " & tipologia & " and archivio = 0 and cancellato = 0 and venduto = 0 and disattivo = 0" Set oRs = DbRecordSet(oCn, rSQL) if not oRs.eof then VerificaItemCategoria = oRs("numeroRecord") else VerificaItemCategoria = 0 end if end function Function DecodTipologia (tipologia) rSQL_tipologia = "Select * From Tab_Tipologia where ucase(loc_desc) = '" & ucase(tipologia) & "'" Set oRs_tipologia = DbRecordSet(oCn, rSQL_tipologia) if not oRs_tipologia.eof then DecodTipologia = oRs_tipologia("loc_desc") else DecodTipologia = tipologia end if end function Sub ManagePage(sScript, sTableTitle) dim i, sScriptPage dim ini, fim if iTotalPage > 1 then if Instr(4, sScript, "?", 1) > 0 then sScriptPage = sScript + "&" else sScriptPage = sScript + "?" end if sScriptPage = sScriptPage + "page=" 'Response.Write "" & vbCRLF 'Response.Write "" & vbCRLF 'NUOVA PAGINAZIONE by lucapuccetti 'inizio funzione impaginazone modificata 'Print the recent Data 'response.write " " & vbCRLF 'Response.Write "
    " & iTotalPage & " " & "Page
    " 'Creating the paging numbers if iCurrentPage > 5 and iTotalPage > 10 then ?> ««  " end if 'Display PREV page link, if appropriate If iCurrentPage > 1 Then ?>
    «   " if iTotalPage > 10 then if iCurrentPage > 5 then if iTotalPage > iCurrentPage + 5 then ini = iCurrentPage - 4 fim = iCurrentPage + 5 else ini = iTotalPage - 9 fim = iTotalPage end if else ini = 1 fim = 10 end if else ini = 1 fim = iTotalPage end if ?>
    • " & i & "  " Else ?>
    • " & i & "  " End if Next ?>
    • 1
    • 10 then fim = 10 else fim = iTotalPage end if For i = 2 to fim If i = iCurrentPage then Response.write "" & i & "  " Else ?>
    »" Else Response.Write "" End If if iCurrentPage < iTotalPage - 5 and iTotalPage > 10 then ?>
    " & vbCRLF 'Response.Write "
    " & vbCRLF end if End Sub ?>