����JFIF�����%%��� }!1AQa"q2���#B��R��$3br� %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz������������������������������������������������������������������������� w!1AQaq"2�B���� #3R�br� $4�%�&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz�������������������������������������������������������������������������� ?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y| �� O�������h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@��o�E��/�?��ߵE_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ ?�z�����������goڢ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?� �=[�Qg� ����o����Q@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���V��Y�����[����TP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,���|-��v��(���� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�������;~��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@�������?�_�� ���j������ (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@��o�E��/�?��ߵE_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ ?�z�����������goڢ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?� �=[�Qg� ����o����Q@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���V��Y�����[����TP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,���|-��v��(���� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�������;~��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@�������?�_�� ���j������ (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@��o�E��/�?��ߵE_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ ?�z�����������goڢ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?� �=[�Qg� ����o����Q@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���V��Y�����[����TP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,��������ο�O�P��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ �� ��(���g���Y������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �V��Y|����Y����UP��@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P����,�����,��u������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j���h�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� �@���o�E��?�?����ο�U_�P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ _�z����� ������g_ڪ�?��(�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (��?�/�=[�Qe�����g����U@ ��P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@ ��� ��� k� w���~���v��������� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (�� (���տ�_�����:��T�~�@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@P@������/��� ?��j�?�5o�%��?��� g����U@�� ���&O3���� �a�;�^=�wH���D��/��*� �fX�I���,������k?g_���?�5o�%��?��� g����U@�F�����������*�� ����?�o�}��Τ~g�� ʀ�#V��Y������~ο�T�j��K/� ������������z��������#;�~���A �;�� � w�F�����������*���տ��_�@�o��5����EU ������ ������u�誠��W��[�����������O��?jW ���@��տ���@�o��5����EM ������������v�訠�#V��Y�������������V��Zv��~����v w�~���c�Q@ ���,��~���kgo���?�5o�%��/��� o����Q@��o�%�>�ߤ�� �߳����S������?��o�%�~�ߠ�d�߳����S����g�P��j��K?� _������������[� g�D ����[�;�TP7� ��������'Ѿ���=� �;/�P��j��K?� _������������[� g�D ����[�;�TP���,��~���kgo���a������۔� ��B{ � ��ea�`T �+ �n%Ц �����j��K?� _������������[� g�D ����[�;�TP���,��~���kgo����?���%�/�~�����#����x��c �~�q�v�t`ȫ��_'h�� ����� ��'�]�;{s� Pp=N= 5���%���� �ڜs�����=���J� � A@�����Kp�b��}��X�����4g v+:�Բ�+60�ʩ,� @�����������I �uO� ����ToUv��bgUl�cP�T?�#V��Y������������j��K?� _����������!��X��]���������TK�|4��`� ��#��P\y��aa >NgL��j��K?� _������������[� g�D ����[�;�TP���,��~���kgo���o�F�����$��ہ�� ��vݞr6��S�q''*02���[� g�D ����[�;�TP���,��~���kgo���?�5o�%��/��� o����Q@�F�����������*(��տ���@�o��5����EE ������������v�訠�� ������~1�o� �� }G�L�������5o�%��/��� o����Q@�F�����������*(��տ���@�o��5����EE5����%�˷���r�v� ���y�\~���)(?0���=[� i����>� �gc��N=����5o�%��/��� o����Q@�F�����������*(��W��Z�l����m#���X�wn_�j`0C6윅����5o�%��/��� o����Q@��տ��y9��� gbO�G�5@�n�>���#V��Y������~ο�T��V��Y����9� gc��s�T.�?Z_��[� e�D����Y�:��UP���,������k?g_����_�=_� n�~~�rI������w�,"~ԓ�!72���)( u��#V��Y������~ο�T�j��K/� ��������������K
�����Kr_���}�De>~��Z=��pjX�n[p(�"� �a,Ub�/�×�<����;��<�����K>��o���[�:����V���,��$ ��ϧ�*��� ��5O����տ��_�@�o��5����EU5��o�%����?�ꜜm�_�;>Gbs�S�����@��տ��_�@�o��5����EU ��տ��}�~�����v?�������-��o�l ��~�ȥ�v����r��B1���@��տ���A�?��� �ggP��c�S�`@%�*����տ��_�@�o��5����EU ������ ������u�誠7� ��� O� ��!c�|0��ёv��4 �+�X�Vx�RX3��8����K>��o���[�:���u#�x��#V��Y������~ο�T�j��K/� ������������[� e�D����Y�:��UP���,������k?g_���O��[� g�D ����[�:��T��=_� k����~��k����c�;����.8� ���c� �z��Ͽ�/��zc�o����F?Z_��[� e�D����Y�:��UP���,������k?g_���C���,�v����v�o���H������( �z���w�/�� ���v ��T.G��Ϡ���տ��_�@�o��5����EU ������ ������u�誠��W��[��'����%��o� ��:�Cڕ�R̀���j����� ����?�o���[�;������g 0q�?��o�%�>o�_��>� gf ����~4������� ������u�誠 �z��� 7�/�� o������� ��_��[� e�D����Y�:��UP���,������k?g_���C���,�|�����o��;�Ԟ��9�l�z��ؠ3|��O�X�~���;~�q����Z�F�����������*���տ��_�@�o��5����EU!��տ��}�~����-��G��I�T������� ������u�誠�#V��Y������~ο�T�j��K/� ����������#�=_� n|���KbB� gtdM��"�ڒA#n�63�6�m�P�����,���/��� gS�u����#�9��5o�%��?��� g����U@��o�%�o�_�����u ��'���� ���?��o��� ���3��?go� ��|m�ڇ���-S�O��x��>���^�����7����x�]_�>�qke>���m��4��7P�Yހ��
0byt3m1n1
0byt3m1n1
Path:
/
hermes
/
bosweb
/
web
/
sb_web
/
web
/
web
/
web
/
web
/
b2432
/
agentrobin.com
/
[
Home
]
File: PSearch.pl
#!/perl64/bin # Get the environment variables passe to the script use CGI qw/:standard :html3 :netscape/; use DBI; use CGI::Cookie; use Env; $db_user = "agentrobin_01_"; $db_pass = "J0shKr1s"; $dsn_name = 'dbi:mysql:dreamhome_01_:dobrooks.ipowermysql.com:3306'; require "./AR_Common.pl"; $query = new CGI; $featured = "40562913"; $favlist=""; ######## Read the cookie information ############### ####### This is the user email addres used to identify someone who has signed up ########## $User_ID1 = $query->cookie('User-Session-ID'); if ($User_ID1 eq "") { $User_ID = "Guest"; } else { $User_ID = $User_ID1; @User_Vals = split(/;/, $User_ID); @User_IDs = split(/=/,$User_Vals[0]); $User_ID = $User_IDs[1]; } $ID = $query->cookie('Page-Access'); ### Get the recently view homes list ### $recenthomes = $query->cookie('RecentHomes'); $recenthomes =~ tr/+/ /; $recenthomes =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; @recents = split(/:/,$recenthomes); if ($User_ID eq "Guest") { $favhomes = $query->cookie('Favorites'); $favhomes =~ tr/+/ /; $favhomes =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; @favorites = split(/:/,$favhomes); } else { get_favorite_db(); } ############################################ set_cookie($ID); if ($ENV{QUERY_STRING} eq "") {} else { set_search();} #@favorites=(40509408,40526932,40540700,40544185); @map_props=(); $fav_Count = @favorites; $rec_count = @recents; $RHost = $ENV{$REMOTE_HOST}; $RAddr = $ENV{$REMOTE_ADDR}; $Host = $ENV{$HTTP_HOST}; @values = split(/:/, $ENV{QUERY_STRING}); #### Initialize to arrays for the testimonials @varray0=("img1.png","img2.png","img3.png","img4.png","img5.png","img6.png"); @varray1=("img1a.png","img2a.png","img3a.png","img4a.png","img5a.png","img6a.png"); @varray2=("Moving","Investor","Relocating","First Home","Investor","First Home"); @varray3=("Danville","Danville","Walnut Creek","Danville","San Ramon","Alamo"); @parray0=("pimg1.png","pimg2.png","pimg3.png","pimg4.png","pimg5.png"); @parray2=("DANVILLE","DANVILLE","DANVILLE","WALNUT CREEK","DANVILLE"); @parray3=("\$355,000","\$448,000","\$647,000","\$409,000","\$420,000"); $sub1=@values[0]; $sub1 =~ tr/+/ /; $sub1 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $sub2=@values[1]; $sub2 =~ tr/+/ /; $sub2 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $sub3 = @values[2]; $sub3 =~ tr/+/ /; $sub3 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; ################## Read the cookie information for the last search page refered to see if the request came from a serahc query ############### $SRC_ID = $query->cookie('Last-Search'); if ($ENV{QUERY_STRING} eq "") { $SearchSTR = $SRC_ID; } else { $SearchSTR = $ENV{QUERY_STRING}; } #@FormValues = split(/&/, $ENV{QUERY_STRING}); @FormValues = split(/&/, $SearchSTR); $FV1 = @FormValues; $Page="1"; $PSub = "1"; $s_community = "Danville"; $s_minbed = "Any"; $s_maxbed = "Any"; $s_minbath = "Any"; $s_maxbath = "Any"; $s_minprice = "Any"; $s_maxprice = "Any"; $s_utype = "Any"; $s_ustatus = "Any"; $s_stype = "Any"; $s_mtype = "Detail"; $s_qstr = ""; $ELength = length($ENV{QUERY_STRING}); if ($ENV{QUERY_STRING} =~ "SortBy") { $EString = substr($ENV{QUERY_STRING},0,$ELength-9); $ENV{QUERY_STRING} = $EString;} $sort_string1="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=1"; $sort_string2="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=2"; $sort_string3="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=3"; $sort_string4="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=4"; $sort_string5="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=5"; $sort_string6="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=6"; $sort_string7="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=7"; for ($x=0;$x<=$FV1-1;$x++) { @Attributes = split(/=/,$FormValues[$x]); if ($Attributes[0] eq "Page") { $Page=$Attributes[1]; } if ($Page==2) { if ($Attributes[0] eq "Community") { $s_community=$Attributes[1]; $s_community =~ tr/+/ /; $s_community =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "MinBed") { $s_minbed=$Attributes[1]; $s_minbed =~ tr/+/ /; $s_minbed =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "MaxBed") { $s_maxbed=$Attributes[1]; $s_maxbed =~ tr/+/ /; $s_maxbed =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "MinBath") { $s_minbath=$Attributes[1]; $s_minbath =~ tr/+/ /; $s_minbath =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "MaxBath") { $s_maxbath=$Attributes[1]; $s_maxbath =~ tr/+/ /; $s_maxbath =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "MinPrice") { $s_minprice=$Attributes[1]; $s_minprice =~ tr/+/ /; $s_minprice =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "MaxPrice") { $s_maxprice=$Attributes[1]; $s_maxprice =~ tr/+/ /; $s_maxprice =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "UnitType") { $s_utype=$Attributes[1]; $s_utype =~ tr/+/ /; $s_utype =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "UnitStatus") { $s_ustatus=$Attributes[1]; $s_ustatus =~ tr/+/ /; $s_ustatus =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "SaleType") { $s_stype=$Attributes[1]; $s_stype =~ tr/+/ /; $s_stype =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "SortBy") { $s_ssort=$Attributes[1]; $s_stype =~ tr/+/ /; $s_stype =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "MapType") { $s_mtype=$Attributes[1]; } if ($Attributes[0] eq "QSTR") { $s_qstr=$Attributes[1]; } } if ($Attributes[0] eq "Sub") { $PSub=$Attributes[1]; $PSub =~ tr/+/ /; $PSub =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} } #### Initialize the Search Arrays @community = ('All','Danville','Diablo','San Ramon','Blackhawk','Alamo','Dublin','Pleasanton','Walnut Creek','Rossmoor','Lafayette','Livermore','Tracy','Castro Valley'); @numbers = ('Any','1','2','3','4','5','6+'); @utype = ('Single Family','Condo/Townhouse','Rental'); @ustatus = ('Available','New','All Changes'); @stype = ('Regular','Short Sale','Foreclosure'); getmlsdate(); printheader(); #under_image(171); print "<DIV style='position: relative; top: 0px; margin: 0 auto; width: 1024px; height: 1000px; border-style: solid; border-width: 0px; float: middle;'>\n"; place_heading(); make_menu(); bread_crumb(); build_new_search(); # build_search(); # if ($s_mtype eq "Detail" || $s_mtype eq "List") { build_search_home(); build_favorites();} # if ($s_mtype eq "Map") { build_map(); build_map_props(); mlsstatus('map');} print "</DIV>\n"; footer_info('0px','-500px','234px','570px','0px 0px 0px 0px','rgb(0,28,85)','MS1_bak.jpg','ROBIN BROOKS'); printending(); exit(0); ############################################################################################### ### Setup and Ending ROutines for Header and Footer- Header could be unique to the page i.e. maps ############################################################################################### sub printheader { $title = "AgentRobin.com - Real Estate Source for Danville, San Ramon, Alamo, Pleasanton, Dublin and Walnut Creek"; $description = "AgentRobin Tri-valley Real Estate"; # print "<!DOCTYPE html '-//W3C//DTD XHTML 1.0 Strict//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd'>"; print "Content-type: text/html\n\n"; print "<HTML xmlns='http://www.w3.org/1999/xhtml'>\n"; print "<HEAD>\n"; $DefaultMetaDesciption= "Homes for Sale in Danville, San Ramon, Blackhawk, Alamo, Walnut Creek, Pleasanton and Dublin, CA"; $title = "San Ramon Valley Real Estate and Homes Sales"; print "<TITLE>$title</title>\n"; print "<meta name=\"description\" content=\"$DefaultMetaDescription\">\n"; print "<meta name=\"keywords\" content=\"$DefaultMetaKeywords $didit11\">\n"; print "<meta http-equiv='X-UA-Compatible' content='IE=edge' />\n"; print "<meta http-equiv='Content-Type' content='text/html; charset=utf-8' />\n"; #### HORIZONTAL MENU FUNCTIONS print "<link type='text/css' href='$baseurl/Default_files/AgentRobin_CSS.CSS' rel='stylesheet'>\n"; print "<link rel='stylesheet' type='text/css' href='$baseurl/CSS/AR_Menu.css'/>\n"; print "<!--[START-LJ]--><script type='text/javascript' src='$baseurl/scripts/AR_Menu.js'></script><!--[END-LJ]-->\n"; #### INITALIZE BING MAP FUNCTIONS print "<script type='text/javascript' src='http://ecn.dev.virtualearth.net/mapcontrol/mapcontrol.ashx?v=7.0'></script>\n"; # print "<script src='https://ajax.googleapis.com/ajax/libs/jquery/1.5.2/jquery.min.js' type='text/javascript'></script>\n"; print "<script src='js/jquery.ui.widget.js' type='text/javascript'></script>\n"; print "<script src='js/jquery.smoothDivScroll-1.1-min.js' type='text/javascript'></script>\n"; print "<script type='text/javascript'>\n"; print " // Initialize the plugin with no custom options\n"; print " \$(window).load(function() {\n"; print " \$('div#makeMeScrollable').smoothDivScroll({\n"; print " autoScroll: 'onstart' , \n"; print " autoScrollDirection: 'backandforth', \n"; print " autoScrollStep: 1, \n"; print " autoScrollInterval: 5, \n"; print " startAtElementId: 'startAtMe', \n"; print " scrollInterval: 2, \n"; print " visibleHotSpots: 'always'\n"; print " });\n"; print " });\n"; print "</script>\n"; print "<script type='text/javascript'>\n"; print "function goBack()\n"; print " {\n"; print " window.history.back()\n"; print " }\n"; print "</script>\n"; if ($s_mtype eq "Map") { put_map_script(); } print "</head>\n"; print "<body onload=\"InitiateMap();\">\n"; } ################### GENERIC PAGE SETUP ENDING ################### sub printending { print "</body>\n"; print "</html>\n"; } sub build_new_search() { print "<FORM Name=SearchForm Action=''>\n"; print "<INPUT Type='Hidden' Name='Page' Value=2>\n"; print "<DIV style='position: absolute; left: 0px; top: 175px; width: 250px; height: 690px; border-width: 0px; border-style: inset; background: url(\"$baseurl/Img/bstrip.jpg\");'>\n"; print " <DIV style='position: absolute; left: -1px; top: -1px; width: 800px; height: 250px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><IMG BORDER=0 SRC='$baseurl/Img/searchbar.jpg'></DIV>\n"; print " <DIV style='position: absolute; left: 15px; top: 60px; width: 250px; height: 38px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN style='font-family: Segoe UI Light; font-size: 14pt; color: white;'>COMMUNITY</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 155px; top: 60px; width: 250px; height: 38px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN style='font-family: Segoe UI Light; font-size: 14pt; color: black;'>\n"; print " <SELECT Name=Community style='width: 200px; font-family: Segoe UI Light; font-size: 14pt; color: black;'>\n"; print " <OPTION Value=Danville>Danville</OPTION>"; print " <OPTION Value='San Ramon'>San Ramon</OPTION>"; print " <OPTION Value=Blackhawk>Blackhawk</OPTION>"; print " <OPTION Value=Alamo>Alamo</OPTION>"; print " <OPTION Value='Walnut Creek'>Walnut Creek</OPTION>"; print " <OPTION Value=Lafayette>Lafayette</OPTION>"; print " <OPTION Value=Dublin>Dublin</OPTION>"; print " <OPTION Value=Pleasanton>Pleasanton</OPTION>"; print " </SELECT>\n"; print " </DIV>\n"; ##### NEIGHBOR HOODS print " <DIV style='position: absolute; left: 15px; top: 90px; width: 250px; height: 38px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN style='font-family: Segoe UI Light; font-size: 14pt; color: white;'>NEIGHBOPHOOD</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 155px; top: 90px; width: 250px; height: 38px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN style='font-family: Segoe UI Light; font-size: 14pt; color: black;'>\n"; print " <SELECT Name=Neighborhood style='width: 200px; font-family: Segoe UI Light; font-size: 14pt; color: black;'>\n"; print " <OPTION Value=Danville>Danville</OPTION>"; print " <OPTION Value='San Ramon'>San Ramon</OPTION>"; print " <OPTION Value=Blackhawk>Blackhawk</OPTION>"; print " <OPTION Value=Alamo>Alamo</OPTION>"; print " <OPTION Value='Walnut Creek'>Walnut Creek</OPTION>"; print " <OPTION Value=Lafayette>Lafayette</OPTION>"; print " <OPTION Value=Dublin>Dublin</OPTION>"; print " <OPTION Value=Pleasanton>Pleasanton</OPTION>"; print " </SELECT>\n"; print " </DIV>\n"; print " </DIV>\n"; print "</FORM>\n"; } sub build_search() { print "<FORM Name=SearchForm Action=''>\n"; print "<INPUT Type='Hidden' Name='Page' Value=2>\n"; print "<DIV style='position: absolute; left: 0px; top: 175px; width: 250px; height: 690px; border-width: 0px; border-style: inset; background: url(\"$baseurl/Img/bstrip.jpg\");'>\n"; print " <DIV style='position: absolute; left: -1px; top: -1px; width: 250px; height: 38px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><IMG BORDER=0 SRC='http://agentrobin.com/Img/maroon_back.png' WIDTH=100% HEIGHT=100%></DIV>\n"; print " <DIV style='position: absolute; left: -1px; top: -1px; width: 250px; height: 38px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN style='font-family: Segoe UI; font-size: 14pt; color: black;'>SEARCH</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 0px; top: 45px; width: 120px; height: 200px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/searchlist.png'></DIV>\n"; ## This is the search form Community Field print " <DIV style='position: absolute; left: 120px; top: 45px; width: 115px; height: 20px; border-style: solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n"; print " <SELECT Name=Community>\n"; $pcount1 = @community; for ($x=0;$x<=$pcount1-1; $x++) { if ($s_community eq $community[$x]) { print " <OPTION Value='$community[$x]' SELECTED>$community[$x]</OPTION>\n"; } else { print " <OPTION Value='$community[$x]'>$community[$x]</OPTION>\n"; } } print " </SELECT>\n"; print "</DIV>\n"; ## This is the search form MinBed Field print " <DIV style='position: absolute; left: 120px; top: 77px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n"; print " <SELECT Name=MinBed>\n"; $pcount2 = @numbers; for ($x=0;$x<=$pcount2-1; $x++) { if ($s_minbed eq $numbers[$x]) { print " <OPTION Value='$numbers[$x]' SELECTED>$numbers[$x]</OPTION>\n"; } else { print " <OPTION Value='$numbers[$x]'>$numbers[$x]</OPTION>\n"; } } print " </SELECT>\n"; print "</DIV>\n"; ## This is the search form MaxBed Field print " <DIV style='position: absolute; left: 120px; top: 98px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n"; print " <SELECT Name=MaxBed>\n"; $pcount2 = @numbers; for ($x=0;$x<=$pcount2-1; $x++) { if ($s_maxbed eq $numbers[$x]) { print " <OPTION Value='$numbers[$x]' SELECTED>$numbers[$x]</OPTION>\n"; } else { print " <OPTION Value='$numbers[$x]'>$numbers[$x]</OPTION>\n"; } } print " </SELECT>\n"; print "</DIV>\n"; ## This is the search form MinBath Field print " <DIV style='position: absolute; left: 120px; top: 129px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n"; print " <SELECT Name=MinBath>\n"; $pcount2 = @numbers; for ($x=0;$x<=$pcount2-1; $x++) { if ($s_minbath eq $numbers[$x]) { print " <OPTION Value='$numbers[$x]' SELECTED>$numbers[$x]</OPTION>\n"; } else { print " <OPTION Value='$numbers[$x]'>$numbers[$x]</OPTION>\n"; } } print " </SELECT>\n"; print "</DIV>\n"; ## This is the search form MaxBath Field print " <DIV style='position: absolute; left: 120px; top: 150px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n"; print " <SELECT Name=MaxBath>\n"; $pcount2 = @numbers; for ($x=0;$x<=$pcount2-1; $x++) { if ($s_maxbath eq $numbers[$x]) { print " <OPTION Value='$numbers[$x]' SELECTED>$numbers[$x]</OPTION>\n"; } else { print " <OPTION Value='$numbers[$x]'>$numbers[$x]</OPTION>\n"; } } print " </SELECT>\n"; print "</DIV>\n"; ## This is the search form MinPrice Field print " <DIV style='position: absolute; left: 120px; top: 181px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n"; print " <SELECT Name=MinPrice>\n"; print " <OPTION>Any</OPTION>\n"; $pcount2 = 20; $sprice = 100000; for ($x=0;$x<=$pcount2-1; $x++) { if ($s_minprice eq $sprice) { print " <OPTION Value='$sprice' SELECTED><SPAN style='font-family: cordiaUPC,sans-serif; font-size: .8em; color: rgb(0,0,0); font-weight: normal;'>$sprice</SPAN></OPTION>\n"; } else { print " <OPTION Value='$sprice'><SPAN style='font-family: cordiaUPC,sans-serif; font-size: .8em; color: rgb(0,0,0); font-weight: normal;'>$sprice</SPAN></OPTION>\n"; } $sprice=$sprice+100000; } print " <OPTION>2000000+</OPTION>\n"; print " </SELECT>\n"; print "</DIV>\n"; ## This is the search form MaxPrice Field print " <DIV style='position: absolute; left: 120px; top: 202px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n"; print " <SELECT Name=MaxPrice>\n"; print " <OPTION>Any</OPTION>\n"; $pcount2 = 20; $sprice = 100000; for ($x=0;$x<=$pcount2-1; $x++) { if ($s_maxprice eq $sprice) { print " <OPTION Value='$sprice' SELECTED>$sprice</OPTION>\n"; } else { print " <OPTION Value='$sprice'>$sprice</OPTION>\n"; } $sprice=$sprice+100000; } print " <OPTION>2000000+</OPTION>\n"; print " </SELECT>\n"; print "</DIV>\n"; ## This is the search form Unit Type Field print " <DIV style='position: absolute; left: 120px; top: 233px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n"; print " <SELECT Name=UnitType Style='width: 120px;'>\n"; print " <OPTION>Any</OPTION>\n"; $pcount1 = @utype; for ($x=0;$x<=$pcount1-1; $x++) { if ($s_utype eq $utype[$x]) { print " <OPTION Value='$utype[$x]' SELECTED>$utype[$x]</OPTION>\n"; } else { print " <OPTION Value='$utype[$x]'>$utype[$x]</OPTION>\n"; } } print " </SELECT>\n"; print "</DIV>\n"; ## This is the search form Unit Status Field print " <DIV style='position: absolute; left: 120px; top: 254px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n"; print " <SELECT Name=UnitStatus>\n"; $pcount1 = @ustatus; for ($x=0;$x<=$pcount1-1; $x++) { if ($s_ustatus eq $ustatus[$x]) { print " <OPTION Value='$ustatus[$x]' SELECTED>$ustatus[$x]</OPTION>\n"; } else { print " <OPTION Value='$ustatus[$x]'>$ustatus[$x]</OPTION>\n"; } } print " </SELECT>\n"; print "</DIV>\n"; ## This is the search form Unit Status Field print " <DIV style='position: absolute; left: 120px; top: 285px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n"; print " <SELECT Name=SaleType>\n"; print " <OPTION>Any</OPTION>\n"; $pcount1 = @stype; for ($x=0;$x<=$pcount1-1; $x++) { if ($s_stype eq $stype[$x]) { print " <OPTION Value='$stype[$x]' SELECTED>$stype[$x]</OPTION>\n"; } else { print " <OPTION Value='$stype[$x]'>$stype[$x]</OPTION>\n"; } } print " </SELECT>\n"; print "</DIV>\n"; print " <DIV style='position: absolute; left: 40px; top: 320px; width: 70px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n"; if ($s_mtype eq "Detail") { print " <input type='radio' name='MapType' value='Detail' checked>Detailed\n"; } else { print " <input type='radio' name='MapType' value='Detail'>Detailed\n"; } print "</DIV>\n"; print " <DIV style='position: absolute; left: 120px; top: 320px; width: 70px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n"; if ($s_mtype eq "List") { print " <input type='radio' name='MapType' value='List' checked>List\n"; } else { print " <input type='radio' name='MapType' value='List'>List\n"; } print "</DIV>\n"; print " <DIV style='position: absolute; left: 170px; top: 320px; width: 70px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n"; if ($s_mtype eq "Map") { print " <input type='radio' name='MapType' value='Map' checked>Map\n"; } else { print " <input type='radio' name='MapType' value='Map'>Map\n"; } print "</DIV>\n"; ## This is the search form submit area and special buttons print " <DIV style='position: absolute; left: 89px; top: 350px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n"; print " <INPUT TYPE=Submit Name=Submit Value='Search'>\n"; print "</DIV>\n"; # print " <DIV style='position: absolute; left: 54px; top: 430px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n"; # print " <IMG BORDER=0 SRC='$baseurl/Img/addto.png'>\n"; # print "</DIV>\n"; # print " <DIV style='position: absolute; left: 54px; top: 450px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n"; # print " <IMG BORDER=0 SRC='$baseurl/Img/addonbehalf.png' TITLE='$ENV{QUERY_STRING}'>\n"; # print "</DIV>\n"; # print " <DIV style='position: absolute; left: 10px; top: 75px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>BathS:</SPAN></DIV>\n"; # print " <DIV style='position: absolute; left: 10px; top: 100px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>BATH:</SPAN></DIV>\n"; print "</DIV>\n"; print "</FORM>\n"; # print "<DIV style='position: absolute; left: 1px; top: 528px; width: 250px; height: 188px; border-width: 0px; border-style: inset; background: rgb(243,242,250);'>\n"; # place_featured(); # print "</DIV>\n"; } sub place_featured() { $SQL = "SELECT * FROM PropMLS WHERE MLSID='$featured'"; $dbh = DBI->connect('dbi:mysql:dreamhome_01_:dobrooks.ipowermysql.com:3306','agentrobin_01_','J0shKr1s') or die("Couldn't connect"); $sth = $dbh->prepare($SQL); $sth->execute; $prop_count=0; $db->FetchRow(); @data = $sth->fetchrow_array(); $LSID = $featured; $LS1 = substr($LSID, 0, 1); $LS2 = substr($LSID, 1, 1); $LS3 = substr($LSID, 2, 1); $LS4 = substr($LSID, 3, 1); $LS5 = substr($LSID, 4, 1); $LS6 = substr($LSID, 5, 1); $LS7 = substr($LSID, 6, 1); $LS8 = substr($LSID, 7, 1); $MGURL = "http://ca-ccar.photos.mlsfinder.com/photos/" . $LS1 . "/" . $LS2 . "/" . $LS3 . "/" . $LS4 . "/" . $LS5 . "/" . $LS6 . "/" . $LS7 . "/" . $LS8 . "/" . $LSID . "-1.jpg"; print " <DIV style='position: absolute; left: 0px; top: 0px; width: 242px; height: 180px; border-width: 4px; border-color: red; border-style: inset; background: rgb(255,255,255);'>\n"; print " <DIV style='position: absolute; left: 0px; top: 0px; width: 240px; height: 20px; border-width: 0px; border-color: black; border-style: solid; background: rgb(255,255,255)'><SPAN style='font-family: Segoe UI; font-size: 11pt; font-weight: normal; float: middle; color: black;'>FEATURED PROPERTY</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 0px; top: 25px; width: 242px; height: 155px; border-width: 0px; border-color: black; border-style: solid; background: rgb(255,255,255);'><A HREF='$baseurl/prop_display.pl?MLSID=$data[0]'><IMG BORDER=0 SRC='$MGURL' WIDTH=100% HEIGHT=100%></A></DIV>\n"; print " <DIV style='position: absolute; left: 7px; top: 140px; width: 232px; height: 20px; border-width: 0px; border-color: black; border-style: solid;'><SPAN style='font-family: Segoe UI; font-size: 9pt; font-weight: bold; float: middle; color: white;'>$data[5]</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 7px; top: 160px; width: 232px; height: 20px; border-width: 0px; border-color: black; border-style: solid;'><SPAN style='font-family: Segoe UI; font-size: 9pt; font-weight: bold; float: middle; color: white;'>$data[3], CA $data[8]</SPAN></DIV>\n"; print " </DIV>\n"; } sub build_search_home() { $areaIcon = "TRI_back.png"; if ($s_community eq "Danville") { $areaIcon = "DAN_back.png"; } if ($s_community eq "San Ramon") { $areaIcon = "SAN_back.png"; } if ($s_community eq "Alamo") { $areaIcon = "ALA_back.png"; } if ($s_community eq "Blackhawk") { $areaIcon = "BLA_back.png"; } if ($s_community eq "Dublin") { $areaIcon = "DUB_back.png"; } if ($s_community eq "Pleasanton") { $areaIcon = "PLE_back.png"; } if ($s_community eq "Walnut Creek") { $areaIcon = "WAL_back.png"; } if ($s_community eq "Lafayette") { $areaIcon = "LAF_back.png"; } $F1 = substr($areaIcon,0,8); $F2 = substr($areaIcon,8,4); $areaIcon2 = $F1 . "2" . $F2; # if ($s_mtype eq "Map") { # print "<DIV style=\"position: absolute; left: 265px; width: 680px; top: 140px; height: 775px; border-style: solid; border-width: 2px; color: black; text-align: left; overflow: hidden; padding:0px 10px; border-color: rgb(213,198,198); background-image: url('$baseurl/Img/Section_back2.png');\">\n"; # } else { # print "<DIV style=\"position: absolute; left: 265px; width: 680px; top: 140px; height: 540px; border-style: solid; border-width: 2px; color: black; text-align: left; overflow: hidden; padding:0px 10px; border-color: rgb(213,198,198); background-image: url('$baseurl/Img/Section_back2.png');\">\n"; # } # print " <DIV style='position: absolute; left: -1px; top: 0px; width: 700px; height: 35px; border-style:solid; border-width: 1px; text-align: center; vertical-align: top; background: rgb(21,0,109);'><SPAN style='font-family: Segoe UI; font-size: 18pt; color: rgb(255,255,255);'>SEARCH RESULTS</SPAN></DIV>\n"; # print " <DIV style='position: absolute; left: 0px; top: 0px; width: 710px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/$areaIcon' style='float: left;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/$areaIcon2' style='float: right;'></SPAN></DIV>\n"; if ($s_mtype eq "Detail") { print "<DIV style=\"position: absolute; left: 265px; width: 639px; top: 175px; height: 540px; border-style: solid; border-width: 0px; color: black; text-align: left; overflow: hidden; padding:0px 10px; border-color: rgb(213,198,198); background: url(\"$baseurl/Img/lt_blue.png\");\">\n"; print " <DIV style='position: absolute; left: -1px; top: -1px; width: 639px; height: 38px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG BORDER=0 SRC='$baseurl/Img/maroon_back.png' WIDTH=100% HEIGHT=100%></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: -1px; top: -1px; width: 660px; height: 38px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN style='font-family: Segoe UI; font-size: 14pt; color: black;'>SEARCH RESULTS</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 0px; top: 60px; width: 660px; height: 480px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top; overflow: auto;'>\n"; buildALLProperty_detail(); print " </DIV>\n"; if ($s_qstr eq "") { print " <DIV style='position: absolute; left: 0px; top: 36px; width: 680px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN style='font-family: Segoe UI; font-size: 10pt; color: black;'>$prop_count Properties Match Your Criteria</SPAN></DIV>\n"; } else { $DSTR = $s_qstr; $DSTR=$Attributes[1]; $DSTR =~ tr/+/ /; $DSTR =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; print " <DIV style='position: absolute; left: 0px; top: 36px; width: 680px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN style='font-family: Segoe UI; font-size: 10pt; color: black;'>$prop_count Properties Match Your Criteria \"$DSTR\"</SPAN></DIV>\n"; } print "</DIV>\n"; mlsstatus(); } if ($s_mtype eq "List") { print "<DIV style=\"position: absolute; left: 265px; width: 639px; top: 175px; height: 540px; border-style: solid; border-width: 2px; color: black; text-align: left; overflow: hidden; padding:0px 10px; border-color: rgb(213,198,198); background-image: url('$baseurl/Img/Section_back2.png');\">\n"; print " <DIV style='position: absolute; left: -1px; top: 0px; width: 660px; height: 35px; border-style:solid; border-width: 1px; text-align: center; vertical-align: top; background: rgb(21,0,109);'><SPAN style='font-family: Segoe UI; font-size: 14pt; color: rgb(255,255,255);'>SEARCH RESULTS</SPAN></DIV>\n"; # print " <DIV style='position: absolute; left: 0px; top: 0px; width: 710px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/$areaIcon' style='float: left;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/$areaIcon2' style='float: right;'></SPAN></DIV>\n"; searchlist_head(); print " <DIV style='position: absolute; left: 0px; top: 85px; width: 660px; height: 450px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top; overflow: auto;'>\n"; buildALLProperty_list(); print " </DIV>\n"; print " <DIV style='position: absolute; left: 0px; top: 36px; width: 660px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN style='font-family: Segoe UI; font-size: 10pt; color: black;'>$prop_count Properties Match Your Criteria</SPAN></DIV>\n"; print "</DIV>\n"; mlsstatus(); } # print " <DIV style='position: absolute; left: 0px; top: 36px; width: 680px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN style='font-family: Segoe UI; font-size: 10pt; color: black;'>$prop_count Properties Match Your Criteria</SPAN></DIV>\n"; # print "</DIV>\n"; } sub build_search_noresults() { $areaIcon = "TRI_back.png"; if ($s_community eq "Danville") { $areaIcon = "DAN_back.png"; } if ($s_community eq "San Ramon") { $areaIcon = "SAN_back.png"; } if ($s_community eq "Alamo") { $areaIcon = "ALA_back.png"; } if ($s_community eq "Blackhawk") { $areaIcon = "BLA_back.png"; } if ($s_community eq "Dublin") { $areaIcon = "DUB_back.png"; } if ($s_community eq "Pleasanton") { $areaIcon = "PLE_back.png"; } if ($s_community eq "Walnut Creek") { $areaIcon = "WAL_back.png"; } if ($s_community eq "Lafayette") { $areaIcon = "LAF_back.png"; } $F1 = substr($areaIcon,0,8); $F2 = substr($areaIcon,8,4); $areaIcon2 = $F1 . "2" . $F2; # if ($s_mtype eq "Map") { # print "<DIV style=\"position: absolute; left: 265px; width: 680px; top: 140px; height: 775px; border-style: solid; border-width: 2px; color: black; text-align: left; overflow: hidden; padding:0px 10px; border-color: rgb(213,198,198); background-image: url('$baseurl/Img/Section_back2.png');\">\n"; # } else { # print "<DIV style=\"position: absolute; left: 265px; width: 680px; top: 140px; height: 540px; border-style: solid; border-width: 2px; color: black; text-align: left; overflow: hidden; padding:0px 10px; border-color: rgb(213,198,198); background-image: url('$baseurl/Img/Section_back2.png');\">\n"; # } # print " <DIV style='position: absolute; left: -1px; top: 0px; width: 700px; height: 35px; border-style:solid; border-width: 1px; text-align: center; vertical-align: top; background: rgb(21,0,109);'><SPAN style='font-family: Segoe UI; font-size: 18pt; color: rgb(255,255,255);'>SEARCH RESULTS</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 0px; top: 60px; width: 660px; height: 480px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top; overflow: auto;'>\n"; print " <DIV style=\"position: absolute; left: 265px; width: 639px; top: 230px; height: 540px; border-style: solid; border-width: 2px; color: black; text-align: left; overflow: hidden; padding:0px 10px; border-color: rgb(213,198,198); background-image: url('$baseurl/Img/Section_back2.png');\">\n"; print " <DIV style='position: absolute; left: 0px; top: 0px; width: 710px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/$areaIcon' style='float: left;'><SPAN style='font-family: Segoe UI Light; font-size: 15pt; color: Black;'>Sorry, No results match your query. Please Try Again or use the Search bar on the Right.</SPAN></DIV>\n"; print " </DIV>\n"; print "</DIV>\n"; # print " <DIV style='position: absolute; left: 0px; top: 36px; width: 680px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN style='font-family: Segoe UI; font-size: 10pt; color: black;'>$prop_count Properties Match Your Criteria</SPAN></DIV>\n"; # print "</DIV>\n"; } ######################################################################## ### Sub buildALLProperty is the main property display sub routine ######################################################################## sub buildALLProperty_list() { $sort_string1="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=1"; $sort_string2="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=2"; $sort_string3="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=3"; $sort_string4="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=4"; $sort_string5="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=5"; $sort_string6="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=6"; $sort_string7="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=7"; ### Dfine the defautls $s_str1 = ""; $s_str2 = ""; $s_str3 = ""; $s_str4 = ""; $s_str5 = ""; $s_str6 = ""; $s_str7 = ""; $o_by = "ORDER BY Price DESC"; $s_str1 = "(Area='$s_community')"; $s_str2 =" AND (Status='ACTV' OR Status='BOMK' OR Status='New' OR Status='PCH')"; $s_str3 =" AND (BuildingType='Detached' OR BuildingType='Condo' OR BuildingType='Townhouse' OR BuildingType='Duet' OR BuildingType='Patio Home')"; $s_str4 =" AND (Price > 15000)"; if ($s_community eq "All") { $s_str1 = "(Area='Danville' OR Area='San Ramon' OR Area='Dublin' OR Area='Blackhawk' OR Area='Alamo' OR Area='Pleasanton' OR Area='Walnut Creek' OR Area='Rossmoor' OR Area='Diablo' OR Area='Lafayette')"; } if ($s_ustatus eq "Available") { $s_str2 = " AND (Status='ACTV' OR Status='BOMK' OR Status='New' OR Status='PCH')";} if ($s_ustatus eq "New") { $s_str2 = " AND (Status='New' OR Status='BOMK')";} if ($s_ustatus eq "All Changes") { $s_str2 = " AND (Status='BOMK' OR Status='New' OR Status='PCH')";} if ($s_utype eq "Single Family") { $s_str3 = " AND (BuildingType='Detached')"; } if ($s_utype eq "Condo/Townhouse") { $s_str3 = " AND (BuildingType='Condo' OR BuildingType='Townhouse' OR BuildingType='Duet' OR BuildingType='Patio Home')"; } $s1_minbed = $s_minbed; $s1_maxbed = $s_maxbed; if ($s_minbed eq "Any") { $s1_minbed = 1; } if ($s_minbed eq "6+") { $s1_minbed = 6; } if ($s_maxbed eq "Any" || $s_maxbed eq "6+") { $s1_maxbed = 10; } if ($s1_minbed > $s1_maxbed) { $s_minbed = $s_maxbed; $s1_minbed = $s1_maxbed; } $s_str5 = " AND (Bed>=$s1_minbed AND Bed<=$s1_maxbed)"; $s1_minbath = $s_minbath; $s1_maxbath = $s_maxbath; if ($s_minbath eq "Any") { $s1_minbath = 1; } if ($s_minbath eq "6+") { $s1_minbath = 6; } if ($s_maxbath eq "Any" || $s_maxbath eq "6+") { $s1_maxbath = 10; } if ($s1_minbath > $s1_maxbath) { $s_minbath = $s_maxbath; $s1_minbath = $s1_maxbath; } $s_str6 = " AND (Bath>=$s1_minbath AND Bath<=$s1_maxbath)"; $s1_minprice = $s_minprice; $s1_maxprice = $s_maxprice; if ($s_minprice eq "Any") { $s1_minprice = 100000; } if ($s_minprice eq "2000000\+") { $s1_minprice = 20000000; } if ($s_maxprice eq "Any" || $s_maxprice eq "2000000\+") { $s1_maxprice = 20000000; } if ($s1_minprice > $s1_maxprice) { $s_minprice = $s_maxprice; $s1_minprice = $s1_maxprice; } $s_str7 = " AND (Price>=$s1_minprice AND Price<=$s1_maxprice)"; if ($s_ssort eq "1") { $o_by = "ORDER BY Price DESC"; } if ($s_ssort eq "2") { $o_by = "ORDER BY BuildingType DESC"; } if ($s_ssort eq "3") { $o_by = "ORDER BY Status DESC"; } if ($s_ssort eq "4") { $o_by = "ORDER BY Bed DESC"; } if ($s_ssort eq "5") { $o_by = "ORDER BY Bath DESC"; } if ($s_ssort eq "6") { $o_by = "ORDER BY SqFt DESC"; } if ($s_ssort eq "7") { $o_by = "ORDER BY DOM DESC"; } $SQL = "SELECT * FROM PropMLS WHERE $s_str1 $s_str2 $s_str3 $s_str4 $s_str5 $s_str6 $s_str7 $o_by"; $TStyle = @_[1]; $FTop = @_[2]; $dbh = DBI->connect('dbi:mysql:dreamhome_01_:dobrooks.ipowermysql.com:3306','agentrobin_01_','J0shKr1s') or die("Couldn't connect"); $sth = $dbh->prepare($SQL); $sth->execute; print "<TABLE >\n"; $prop_count=0; $rows = $sth->rows(); for ($i = 0; $i < $rows; $i++) { @data=$sth->fetchrow_array(); print "<TR>"; $ticon = "<IMG SRC='$baseurl/Img/UFR.png' TITLE='$data[2]'>"; if ($data[2] eq "Detached") { $ticon = "<IMG SRC='$baseurl/Img/SFR.png' TITLE='Single Family Home'>"; } if ($data[2] eq "Condo" || $data[2] eq "Townhouse" || $data[2] eq "Duet" || $data[2] eq "Patio Home") { $ticon = "<IMG SRC='$baseurl/Img/MFR.png' TITLE='$data[2]'>"; } if ($favlist =~ $data[0]) { $ticon = "<IMG SRC='$baseurl/Img/FAV.png' TITLE='Favorite'>"; } print "<TD Width=40>$ticon</TD>"; print "<TD Width=1 CENTER><IMG SRC='$baseurl/Img/divider.png'</TD>"; print "<TD Width=60><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: normal;'>$data[9]</SPAN></TD>"; print "<TD Width=1 CENTER><IMG SRC='$baseurl/Img/divider.png'</TD>"; print "<TD Width=220><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: normal;'><A HREF='$baseurl/prop_display.pl?Ref=1&MLSID=$data[0]'>\U$data[5]</A></SPAN></TD>"; print "<TD Width=1 CENTER><IMG SRC='$baseurl/Img/divider.png'</TD>"; print "<TD Width=100><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: normal;'>\U$data[3]</SPAN></TD>"; print "<TD Width=1 CENTER><IMG SRC='$baseurl/Img/divider.png'</TD>"; print "<TD Width=40><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: normal;'>$data[11]</SPAN></TD>"; print "<TD Width=1 CENTER><IMG SRC='$baseurl/Img/divider.png'</TD>"; print "<TD Width=40><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: normal;'>$data[12]</SPAN></TD>"; print "<TD Width=1 CENTER><IMG SRC='$baseurl/Img/divider.png'</TD>"; print "<TD Width=70><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: normal;'>$data[13]</SPAN></TD>"; print "<TD Width=1 CENTER><IMG SRC='$baseurl/Img/divider.png'</TD>"; print "<TD Width=70><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: normal;'>$data[10]</SPAN></TD>"; print "<TD Width=1 CENTER><IMG SRC='$baseurl/Img/divider.png'</TD>"; print "<TD Width=90><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: normal;'>$data[4]</SPAN></TD>"; print "</SPAN></TR>\n"; $prop_count++; } $sth->finish(); $dbh->disconnect(); PASSED: print "</TABLE>\n"; } sub searchlist_head() { print " <DIV style='position: absolute; left: 0px; top: 60px; width: 660px; height: 23px; border-style:solid; border-width: 1px; text-align: left; vertical-align: top; overflow: hidden; background-color: rgb(224,225,233);'>\n"; print " <DIV style='position: absolute; left: 0px; top: 0px; width: 35px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top; overflow: hidden; background-color: rgb(224,225,233); text-align: center;'><SPAN style='font-family: Segoe UI; font-size: 9pt; font-weight: bold; float: middle;'><A HREF='$sort_string2'>TYPE</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 35px; top: 0px; width: 55px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top; overflow: hidden; background-color: rgb(224,225,233); text-align: center;'><SPAN style='font-family: Segoe UI; font-size: 9pt; font-weight: bold;'><A HREF='$sort_string3'>STATUS</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 93px; top: 0px; width: 175px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top; overflow: hidden; background-color: rgb(224,225,233); text-align: center;'><SPAN style='font-family: Segoe UI; font-size: 9pt; font-weight: bold;'>ADDRESS</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 268px; top: 0px; width: 98px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top; overflow: hidden; background-color: rgb(224,225,233); text-align: center;'><SPAN style='font-family: Segoe UI; font-size: 9pt; font-weight: bold;'>CITY</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 366px; top: 0px; width: 40px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top; overflow: hidden; background-color: rgb(224,225,233); text-align: center;'><SPAN style='font-family: Segoe UI; font-size: 9pt; font-weight: bold;'><A HREF='$sort_string4'>BED</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 403px; top: 0px; width: 40px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top; overflow: hidden; background-color: rgb(224,225,233); text-align: center;'><SPAN style='font-family: Segoe UI; font-size: 9pt; font-weight: bold;'><A HREF='$sort_string5'>BATH</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 440px; top: 0px; width: 60px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top; overflow: hidden; background-color: rgb(224,225,233); text-align: center;'><SPAN style='font-family: Segoe UI; font-size: 9pt; font-weight: bold;'><A HREF='$sort_string6'>SqFt</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 503px; top: 0px; width: 60px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top; overflow: hidden; background-color: rgb(224,225,233); text-align: center;'><SPAN style='font-family: Segoe UI; font-size: 9pt; font-weight: bold;'><A HREF='$sort_string7'>DOM</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 562px; top: 0px; width: 80px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top; overflow: hidden; background-color: rgb(224,225,233); text-align: center;'><SPAN style='font-family: Segoe UI; font-size: 9pt; font-weight: bold;'><A HREF='$sort_string1'>PRICE</A></SPAN></DIV>\n"; print "</DIV>\n"; } sub build_map() { print " <DIV id=\"MapDiv\" style='position: absolute; left: 255px; top: 175px; width: 675px; height: 580px; border-style:solid; border-width: 1px;'>\n"; print " </DIV>\n"; #### Legend ##### print " <DIV style=\"position: absolute; z-index: 10000;left: 255px; top: 705px; width: 675px; height: 20px; border-style:solid; border-width: 1px; background: url('$baseurl/Img/blk_over.png'); background-size: 100%; opacity: 1; filter: alpha(opacity = 100);\">\n"; print "</DIV>\n"; print " <DIV style=\"position: absolute; z-index: 10000;left: 255px; top: 705px; width: 675px; height: 20px; border-style:solid; border-width: 1px; \">\n"; print "<IMG SRC='$baseurl/Img/bluepin_legend.png'><SPAN style='font-family: Segeo UI; font-size: .8em; color: rgb(255,255,255); font-weight: normal;'> ACTIVE </SPAN>"; print "<IMG SRC='$baseurl/Img/greenpin_legend.png'><SPAN style='font-family: Segeo UI; font-size: .8em; color: rgb(255,255,255); font-weight: normal;'> NEW </SPAN>"; print "<IMG SRC='$baseurl/Img/goldpin_legend.png'><SPAN style='font-family: Segeo UI; font-size: .8em; color: rgb(255,255,255); font-weight: normal;'> PRICE CHANGE </SPAN>"; print "<IMG SRC='$baseurl/Img/purplepin_legend.png'><SPAN style='font-family: Segeo UI; font-size: .8em; color: rgb(255,255,255); font-weight: normal;'> BACK ON MARKET </SPAN>"; print "</DIV>\n"; } sub buildALLProperty_detail() { $sort_string1="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=1"; $sort_string2="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=2"; $sort_string3="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=3"; $sort_string4="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=4"; $sort_string5="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=5"; $sort_string6="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=6"; $sort_string7="$baseurl/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=7"; ### Dfine the defautls $s_str1 = ""; $s_str2 = ""; $s_str3 = ""; $s_str4 = ""; $s_str5 = ""; $s_str6 = ""; $s_str7 = ""; $o_by = "ORDER BY Price DESC"; #### This builds the search query ############### $s_str1 = "(Area='$s_community')"; $s_str2 =" AND (Status='ACTV' OR Status='BOMK' OR Status='New' OR Status='PCH')"; $s_str3 =" AND (BuildingType='Detached' OR BuildingType='Condo' OR BuildingType='Townhouse' OR BuildingType='Duet' OR BuildingType='Patio Home')"; $s_str4 =" AND (Price > 15000)"; if ($s_community eq "All") { $s_str1 = "(Area='Danville' OR Area='San Ramon' OR Area='Dublin' OR Area='Blackhawk' OR Area='Alamo' OR Area='Pleasanton' OR Area='Walnut Creek' OR Area='Rossmoor' OR Area='Diablo' OR Area='Lafayette')"; } if ($s_ustatus eq "Available") { $s_str2 = " AND (Status='ACTV' OR Status='BOMK' OR Status='New' OR Status='PCH')";} if ($s_ustatus eq "New") { $s_str2 = " AND (Status='New' OR Status='BOMK')";} if ($s_ustatus eq "All Changes") { $s_str2 = " AND (Status='BOMK' OR Status='New' OR Status='PCH')";} if ($s_utype eq "Single Family") { $s_str3 = " AND (BuildingType='Detached')"; } if ($s_utype eq "Condo/Townhouse") { $s_str3 = " AND (BuildingType='Condo' OR BuildingType='Townhouse' OR BuildingType='Duet' OR BuildingType='Patio Home')"; } $s1_minbed = $s_minbed; $s1_maxbed = $s_maxbed; if ($s_minbed eq "Any") { $s1_minbed = 1; } if ($s_minbed eq "6+") { $s1_minbed = 6; } if ($s_maxbed eq "Any" || $s_maxbed eq "6+") { $s1_maxbed = 10; } if ($s1_minbed > $s1_maxbed) { $s_minbed = $s_maxbed; $s1_minbed = $s1_maxbed; } $s_str5 = " AND (Bed>=$s1_minbed AND Bed<=$s1_maxbed)"; $s1_minbath = $s_minbath; $s1_maxbath = $s_maxbath; if ($s_minbath eq "Any") { $s1_minbath = 1; } if ($s_minbath eq "6+") { $s1_minbath = 6; } if ($s_maxbath eq "Any" || $s_maxbath eq "6+") { $s1_maxbath = 10; } if ($s1_minbath > $s1_maxbath) { $s_minbath = $s_maxbath; $s1_minbath = $s1_maxbath; } $s_str6 = " AND (Bath>=$s1_minbath AND Bath<=$s1_maxbath)"; $s1_minprice = $s_minprice; $s1_maxprice = $s_maxprice; if ($s_minprice eq "Any") { $s1_minprice = 100000; } if ($s_minprice eq "2000000\+") { $s1_minprice = 20000000; } if ($s_maxprice eq "Any" || $s_maxprice eq "2000000\+") { $s1_maxprice = 20000000; } if ($s1_minprice > $s1_maxprice) { $s_minprice = $s_maxprice; $s1_minprice = $s1_maxprice; } $s_str7 = " AND (Price>=$s1_minprice AND Price<=$s1_maxprice)"; if ($s_ssort eq "1") { $o_by = "ORDER BY Price DESC"; } if ($s_ssort eq "2") { $o_by = "ORDER BY BuildingType DESC"; } if ($s_ssort eq "3") { $o_by = "ORDER BY Status DESC"; } if ($s_ssort eq "4") { $o_by = "ORDER BY Bed DESC"; } if ($s_ssort eq "5") { $o_by = "ORDER BY Bath DESC"; } if ($s_ssort eq "6") { $o_by = "ORDER BY SqFt DESC"; } if ($s_ssort eq "7") { $o_by = "ORDER BY DOM DESC"; } $SQL = "SELECT * FROM PropMLS WHERE $s_str1 $s_str2 $s_str3 $s_str4 $s_str5 $s_str6 $s_str7 $o_by"; # print "$SQL - $s_minprice - $s_maxprice"; # goto PASSED; ####################### End building the Search Query ################### # fetch and display data, ensure user has requested some rows $dbh = DBI->connect('dbi:mysql:dreamhome_01_:dobrooks.ipowermysql.com:3306','agentrobin_01_','J0shKr1s') or die("Couldn't connect"); $sth = $dbh->prepare($SQL); $sth->execute; print "<TABLE class='listings'>\n"; $prop_count=0; $rows = $sth->rows(); for ($i = 0; $i < $rows; $i++) { @data=$sth->fetchrow_array(); ### Need to get the thumbnail photo link ### $MLSID = $data[0]; $MLS1 = substr($MLSID, 0, 1); $MLS2 = substr($MLSID, 1, 1); $MLS3 = substr($MLSID, 2, 1); $MLS4 = substr($MLSID, 3, 1); $MLS5 = substr($MLSID, 4, 1); $MLS6 = substr($MLSID, 5, 1); $MLS7 = substr($MLSID, 6, 1); $MLS8 = substr($MLSID, 7, 1); $IMGURL = "http://ca-ccar.photos.mlsfinder.com/thumbs/" . $MLS1 . "/" . $MLS2 . "/" . $MLS3 . "/" . $MLS4 . "/" . $MLS5 . "/" . $MLS6 . "/" . $MLS7 . "/" . $MLS8 . "/" . $MLSID . "-1.jpg"; $DC1 = substr($data[24],0,165) . "......"; $DC2 = substr($data[24],50,45). "....."; print "<TR><TD>"; print "<DIV style='position: relative; left: 5px; top: 0px; width: 630px; height: 82px; border-style:solid; border-width: 2px; border-color: rgb(194,195,213); background-color: rgb(235,235,246) ;text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n"; print " <DIV style='position: absolute; left: 0px; top: 0px; width: 100px; height: 80px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'><A HREF='$baseurl/prop_display.pl?Ref=1&MLSID=$data[0]'><IMG BORDER=0 SRC='$IMGURL' WIDTH=100% HEIGHT=100%></A></DIV>\n"; if ($favlist =~ $data[0]) { print " <DIV style='position: absolute; left: 110px; top: -3px; width: 600px; height: 30px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='propdetails_bold'>\U$data[5] - $data[3]<IMG SRC='$baseurl/img/favlong.png'> Favorite</DIV>\n"; } else { print " <DIV style='position: absolute; left: 110px; top: -3px; width: 300px; height: 30px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='propdetails_bold'>\U$data[5] - $data[3]</DIV>\n"; } print " <DIV style='position: absolute; left: 110px; top: 15px; width: 200px; height: 25px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='propdetails'>Bedrooms: $data[11] Bathrooms: $data[12]</DIV>\n"; print " <DIV style='position: absolute; left: 110px; top: 30px; width: 200px; height: 25px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='propdetails'>Sq. Foot: $data[13] Lot Sq. Foot: $data[34]</DIV>\n"; print " <DIV style='position: absolute; left: 110px; top: 45px; width: 200px; height: 25px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='propdetails'>Year Built: $data[33]</DIV>\n"; print " <DIV style='position: absolute; left: 110px; top: 60px; width: 200px; height: 25px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top; overflow: hidden;'><SPAN class='propdetails'>Courtesy of $data[25]-$data[26]</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 350px; top: 25px; width: 280px; height: 53px; border-style:outset; border-width: 0px; background-color: rgb(224,225,233); text-align: left; vertical-align: top; overflow: hidden;'>\n"; print " <DIV style='position: absolute; left: 5px; top: 0px; width: 280px; height: 48px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN style='font-family: Segoe UI; font-size: 8pt; color: black;'>$DC1</SPAN></DIV>\n"; # print " <DIV style='position: absolute; left: 5px; top: 15px; width: 300px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='propdetails_comments'>$DC2</DIV>\n"; print " </DIV><BR>\n"; $zprice = $data[4]; $zlen = length($zprice); if ($zlen == 6) { $rprice = "\$ " . substr($zprice,0,3) . "," .substr($zprice,3,3); } if ($zlen == 7) { $rprice = "\$ " . substr($zprice,0,1) . "," .substr($zprice,1,3) . "," .substr($zprice,4,3); } print " <DIV style='position: absolute; left: 555px; top: -3px; width: 80px; float: right; height: 30px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='propdetails_bold'>$rprice</DIV>\n"; print "</DIV><BR>\n"; print "</TD></TR>"; $prop_count++; } $sth->finish(); $dbh->disconnect(); PASSED: print "</TABLE>\n"; } sub build_srch_string() { $s_str1 = ""; $s_str2 = ""; $s_str3 = ""; $s_str4 = ""; $s_str5 = ""; $s_str6 = ""; $s_str7 = ""; $o_by = "ORDER BY Price DESC"; $s_str1 = "(Area='$s_community')"; $s_str2 =" AND (Status='ACTV' OR Status='BOMK' OR Status='New' OR Status='PCH')"; $s_str3 =" AND (BuildingType='Detached' OR BuildingType='Condo' OR BuildingType='Townhouse' OR BuildingType='Duet' OR BuildingType='Patio Home')"; $s_str4 =" AND (Price > 15000)"; if ($s_community eq "All") { $s_str1 = "(Area='Danville' OR Area='San Ramon' OR Area='Dublin' OR Area='Blackhawk' OR Area='Alamo' OR Area='Pleasanton' OR Area='Walnut Creek' OR Area='Rossmoor' OR Area='Diablo' OR Area='Lafayette' OR Area='Livermore' OR Area='Tracy' OR Area='Castro Valley')"; } if ($s_ustatus eq "Available") { $s_str2 = " AND (Status='ACTV' OR Status='BOMK' OR Status='New' OR Status='PCH')";} if ($s_ustatus eq "New") { $s_str2 = " AND (Status='New' OR Status='BOMK')";} if ($s_ustatus eq "All Changes") { $s_str2 = " AND (Status='BOMK' OR Status='New' OR Status='PCH')";} if ($s_utype eq "Single Family") { $s_str3 = " AND (BuildingType='Detached')"; } if ($s_utype eq "Condo/Townhouse") { $s_str3 = " AND (BuildingType='Condo' OR BuildingType='Townhouse' OR BuildingType='Duet' OR BuildingType='Patio Home')"; } $s1_minbed = $s_minbed; $s1_maxbed = $s_maxbed; if ($s_minbed eq "Any") { $s1_minbed = 1; } if ($s_minbed eq "6+") { $s1_minbed = 6; } if ($s_maxbed eq "Any" || $s_maxbed eq "6+") { $s1_maxbed = 10; } if ($s1_minbed > $s1_maxbed) { $s_minbed = $s_maxbed; $s1_minbed = $s1_maxbed; } $s_str5 = " AND (Bed>=$s1_minbed AND Bed<=$s1_maxbed)"; $s1_minbath = $s_minbath; $s1_maxbath = $s_maxbath; if ($s_minbath eq "Any") { $s1_minbath = 1; } if ($s_minbath eq "6+") { $s1_minbath = 6; } if ($s_maxbath eq "Any" || $s_maxbath eq "6+") { $s1_maxbath = 10; } if ($s1_minbath > $s1_maxbath) { $s_minbath = $s_maxbath; $s1_minbath = $s1_maxbath; } $s_str6 = " AND (Bath>=$s1_minbath AND Bath<=$s1_maxbath)"; $s1_minprice = $s_minprice; $s1_maxprice = $s_maxprice; if ($s_minprice eq "Any") { $s1_minprice = 100000; } if ($s_minprice eq "2000000\+") { $s1_minprice = 20000000; } if ($s_maxprice eq "Any" || $s_maxprice eq "2000000\+") { $s1_maxprice = 20000000; } if ($s1_minprice > $s1_maxprice) { $s_minprice = $s_maxprice; $s1_minprice = $s1_maxprice; } $s_str7 = " AND (Price>=$s1_minprice AND Price<=$s1_maxprice)"; if ($s_ssort eq "1") { $o_by = "ORDER BY Price DESC"; } if ($s_ssort eq "2") { $o_by = "ORDER BY BuildingType DESC"; } if ($s_ssort eq "3") { $o_by = "ORDER BY Status DESC"; } if ($s_ssort eq "4") { $o_by = "ORDER BY Bed DESC"; } if ($s_ssort eq "5") { $o_by = "ORDER BY Bath DESC"; } if ($s_ssort eq "6") { $o_by = "ORDER BY SqFt DESC"; } if ($s_ssort eq "7") { $o_by = "ORDER BY DOM DESC"; } $SQL = "SELECT * FROM PropMLS WHERE $s_str1 $s_str2 $s_str3 $s_str4 $s_str5 $s_str6 $s_str7 $o_by"; } sub build_favorites() { print "<DIV style='position: absolute; left: 935px; top: 140px; width: 230px; height: 600px; border-style:solid; border-color: rgb(228,178,188); border-width: 0px 0px 0px 0px; text-align: center; vertical-align: top; background: url(\"$baseurl/Img/Section_back1.jpg\"); overflow: hidden;'>\n"; print " <DIV style='position: absolute; left: 0px; top: 0px; width: 230px; height: 38px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top; background: url('$baseurl/Img/Maroon');'><SPAN style='font-family: Segoe UI; font-size: 13pt; color: rgb(0,0,0);'>FAVORITE HOMES</SPAN></DIV>\n"; print "<DIV style='position: absolute; left: 0px; top: 38px; width: 230px; height: 550px; border-style:solid; border-color: rgb(228,178,188); border-width: 0px 0px 0px 0px; text-align: center; vertical-align: top; background: url(\"$baseurl/Img/lt_blue.png\"); overflow: auto;'>\n"; $fav_count = @favorites; if ($fav_count > 11) { $fav_count=11; } $top=25; $tpx = $top . "px"; $dbh = DBI->connect('dbi:mysql:dreamhome_01_:dobrooks.ipowermysql.com:3306','agentrobin_01_','J0shKr1s') or die("Couldn't connect"); for ($x=0; $x<=$fav_count-1;$x++) { $SQL ="SELECT * FROM PropMLS WHERE MLSID='$favorites[$x]'"; $sth = $dbh->prepare($SQL); $sth->execute; @data=$sth->fetchrow_array(); if ($data[0] eq "") { goto SKIPRELATED1; } $MLSID = $data[0]; $MLS1 = substr($MLSID, 0, 1); $MLS2 = substr($MLSID, 1, 1); $MLS3 = substr($MLSID, 2, 1); $MLS4 = substr($MLSID, 3, 1); $MLS5 = substr($MLSID, 4, 1); $MLS6 = substr($MLSID, 5, 1); $MLS7 = substr($MLSID, 6, 1); $MLS8 = substr($MLSID, 7, 1); $FSize = ".70em"; $IMGURL = "http://ca-ccar.photos.mlsfinder.com/thumbs/" . $MLS1 . "/" . $MLS2 . "/" . $MLS3 . "/" . $MLS4 . "/" . $MLS5 . "/" . $MLS6 . "/" . $MLS7 . "/" . $MLS8 . "/" . $MLSID . "-1.jpg"; $count++; print " <DIV style='position: absolute; left: 5px; top: $tpx; width: 200px; height: 60px; border-style:solid; border-width: 1px; text-align: left; overflow: hidden;'>\n"; print " <DIV style='position: absolute; left: 0px; top: 0px; width: 200px; height: 60px; border-style:solid; border-width: 0px; text-align: left;'><IMG WIBORDER=0 SRC='http://agentrobin.com/Img/fav_ticket.png'></DIV>\n"; #### This is the MLS Photo print " <DIV style='position: absolute; left: 0px; top: 0px; width: 80px; height: 60px; border-style:solid; border-width: 0px; text-align: left;'><A HREF='$baseurl/Prop_display.pl?Ref=1&MLSID=$MLSID'><IMG BORDER=0 SRC='$IMGURL'></A></DIV>\n"; #### This is the Inf0 print " <DIV style='position: absolute; left: 110px; top: 1px; width: 150px; height: 15px; border-style:solid; border-width: 0px; text-align: left;'><A HREF='$baseurl/Home.pl?MF=V2&Vid=$data[5]'><SPAN style='font-family: Segoe UI; font-size: .7em;'>$data[3]</SPAN></A></DIV>\n"; print " <DIV style='position: absolute; left: 110px; top: 16px; width: 150px; height: 15px; border-style:solid; border-width: 0px; text-align: left;'><A HREF='$baseurl/Home.pl?MF=V2&Vid=$data[5]'><SPAN style='font-family: Segoe UI; font-size: .7em;'>Bed: $data[11] Bath: $data[12]</SPAN></A></DIV>\n"; print " <DIV style='position: absolute; left: 110px; top: 31px; width: 150px; height: 15px; border-style:solid; border-width: 0px; text-align: left;'><SPAN style='font-family: Segoe UI; font-size: .7em;'>SqFt: $data[13]</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 110px; top: 48px; width: 150px; height: 15px; border-style:solid; border-width: 0px; text-align: left;'><SPAN style='font-family: Segoe UI; font-size: .7em;'>\$$data[4]</SPAN></DIV>\n"; print " </DIV>\n"; $top = $top + 64; $tpx = $top . "px"; SKIPRELATED1: } $sth->finish(); $top = $top +12; $tpx = $top . "px"; print " <DIV style='position: absolute; left: 5px; top: $tpx; width: 150px; height: 15px; border-style:solid; border-width: 0px; text-align: left;'><SPAN style='font-family: Segoe UI; font-size: 12pt;'>RECENTLY VIEWED</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 5px; top: 2px; width: 150px; height: 15px; border-style:solid; border-width: 0px; text-align: left;'><SPAN style='font-family: Segoe UI; font-size: 12pt;'>MY FAVORITES</SPAN></DIV>\n"; $top=$top+23; $tpx = $top . "px"; $rec_count = @recents; for ($x=0; $x<=$rec_count-1;$x++) { $SQL ="SELECT * FROM PropMLS WHERE MLSID='$recents[$x]'"; $sth = $dbh->prepare($SQL); $sth->execute; @data=$sth->fetchrow_array(); if ($data[0] eq "") { goto SKIPRELATED2; } $MLSID = $data[0]; $MLS1 = substr($MLSID, 0, 1); $MLS2 = substr($MLSID, 1, 1); $MLS3 = substr($MLSID, 2, 1); $MLS4 = substr($MLSID, 3, 1); $MLS5 = substr($MLSID, 4, 1); $MLS6 = substr($MLSID, 5, 1); $MLS7 = substr($MLSID, 6, 1); $MLS8 = substr($MLSID, 7, 1); $FSize = ".70em"; $IMGURL = "http://ca-ccar.photos.mlsfinder.com/thumbs/" . $MLS1 . "/" . $MLS2 . "/" . $MLS3 . "/" . $MLS4 . "/" . $MLS5 . "/" . $MLS6 . "/" . $MLS7 . "/" . $MLS8 . "/" . $MLSID . "-1.jpg"; $count++; print " <DIV style='position: absolute; left: 5px; top: $tpx; width: 200px; height: 60px; border-style:solid; border-width: 1px; text-align: left; overflow: hidden;'>\n"; print " <DIV style='position: absolute; left: 0px; top: 0px; width: 200px; height: 60px; border-style:solid; border-width: 0px; text-align: left;'><IMG WIBORDER=0 SRC='http://agentrobin.com/Img/fav_ticket.png'></DIV>\n"; #### This is the MLS Photo print " <DIV style='position: absolute; left: 0px; top: 0px; width: 80px; height: 60px; border-style:solid; border-width: 0px; text-align: left;'><A HREF='$baseurl/prop_display.pl?Ref=1&MLSID=$MLSID'><IMG BORDER=0 SRC='$IMGURL'></A></DIV>\n"; #### This is the Inf0 print " <DIV style='position: absolute; left: 110px; top: 1px; width: 150px; height: 15px; border-style:solid; border-width: 0px; text-align: left;'><A HREF='$baseurl/Home.pl?MF=V2&Vid=$data[5]'><SPAN style='font-family: Segoe UI; font-size: .7em;'>$data[3]</SPAN></A></DIV>\n"; print " <DIV style='position: absolute; left: 110px; top: 16px; width: 150px; height: 15px; border-style:solid; border-width: 0px; text-align: left;'><A HREF='$baseurl/Home.pl?MF=V2&Vid=$data[5]'><SPAN style='font-family: Segoe UI; font-size: .7em;'>Bed: $data[11] Bath: $data[12]</SPAN></A></DIV>\n"; print " <DIV style='position: absolute; left: 110px; top: 31px; width: 150px; height: 15px; border-style:solid; border-width: 0px; text-align: left;'><SPAN style='font-family: Segoe UI; font-size: .7em;'>SqFt: $data[13]</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 110px; top: 48px; width: 150px; height: 15px; border-style:solid; border-width: 0px; text-align: left;'><SPAN style='font-family: Segoe UI; font-size: .7em;'>\$$data[4]</SPAN></DIV>\n"; print " </DIV>\n"; $top = $top + 64; $tpx = $top . "px"; SKIPRELATED2: } $sth->finish(); $dbh->disconnect(); print "</DIV>\n"; print "</DIV>\n"; } sub build_map_props() { print "<DIV style='position: absolute; left: 935px; top: 140px; width: 230px; height: 600px; border-style:solid; border-color: rgb(228,178,188); border-width: 1px 1px 0px 1px; text-align: center; vertical-align: top; background: url(\"$baseurl/Img/Section_back1.jpg\"); overflow: hidden;'>\n"; print " <DIV style='position: absolute; left: 0px; top: 0px; width: 230px; height: 38px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top; background: rgb(21,0,109);'><SPAN style='font-family: Segoe UI; font-size: 13pt; color: rgb(255,255,255);'>HOME LIST</SPAN></DIV>\n"; print "<DIV style='position: absolute; left: 0px; top: 38px; width: 230px; height: 550px; border-style:solid; border-color: rgb(228,178,188); border-width: 0px 0px 0px 0px; text-align: center; vertical-align: top; background: url(\"$baseurl/Img/Section_back1.jpg\"); overflow: auto;'>\n"; $dbh = DBI->connect('dbi:mysql:dreamhome_01_:dobrooks.ipowermysql.com:3306','agentrobin_01_','J0shKr1s') or die("Couldn't connect"); $fav_count = @map_props; $top=5; $tpx = $top . "px"; $count=1; for ($x=0; $x<=$fav_count-1;$x++) { $SQL ="SELECT * FROM PropMLS WHERE MLSID='$map_props[$x]'"; $sth = $dbh->prepare($SQL); $sth->execute; @data=$sth->fetchrow_array(); if ($data[0] eq "") { goto SKIPRELATED; } $MLSID = $data[0]; $MLS1 = substr($MLSID, 0, 1); $MLS2 = substr($MLSID, 1, 1); $MLS3 = substr($MLSID, 2, 1); $MLS4 = substr($MLSID, 3, 1); $MLS5 = substr($MLSID, 4, 1); $MLS6 = substr($MLSID, 5, 1); $MLS7 = substr($MLSID, 6, 1); $MLS8 = substr($MLSID, 7, 1); $FSize = ".70em"; if ($data[9] eq "ACTV") { $i_back = "rgb(93,197,255)"; } if ($data[9] eq "NEW") { $i_back = "rgb(154,231,98)"; } if ($data[9] eq "PCH") { $i_back = "rgb(255,201,109)"; } if ($data[9] eq "BOMK") { $i_back = "rgb(192,128,158)"; } $IMGURL = "http://ca-ccar.photos.mlsfinder.com/thumbs/" . $MLS1 . "/" . $MLS2 . "/" . $MLS3 . "/" . $MLS4 . "/" . $MLS5 . "/" . $MLS6 . "/" . $MLS7 . "/" . $MLS8 . "/" . $MLSID . "-1.jpg"; print " <DIV style='position: absolute; left: 5px; top: $tpx; width: 200px; height: 60px; border-style:solid; border-width: 1px; text-align: left; overflow: hidden;'>\n"; print " <DIV style='position: absolute; left: 0px; top: 0px; width: 200px; height: 60px; border-style:solid; border-width: 0px; text-align: left;'><IMG WIBORDER=0 SRC='http://agentrobin.com/Img/fav_ticket.png'></DIV>\n"; #### This is the MLS Photo print " <DIV style='position: absolute; left: 0px; top: 0px; width: 80px; height: 60px; border-style: solid; border-width: 0px; text-align: left;'><A HREF='$baseurl/prop_display.pl?MLSID=$data[0]'><IMG BORDER=0 SRC='$IMGURL'></A></DIV>\n"; print " <DIV style='position: absolute; left: -1px; top: -1px; width: 20px; height: 20px; border-style: solid; border-width: 1px; text-align: left; background: $i_back; float: right;'><SPAN style='font-family: Segoe UI; font-size: 11pt; color: rgb(0,0,0); float: middle;'>$count</SPAN></DIV>\n"; #### This is the Inf0 print " <DIV style='position: absolute; left: 110px; top: 1px; width: 150px; height: 15px; border-style:solid; border-width: 0px; text-align: left;'><A HREF='$baseurl/Home.pl?MF=V2&Vid=$data[5]'><SPAN style='font-family: Segoe UI; font-size: .7em;'>$data[3]</SPAN></A></DIV>\n"; print " <DIV style='position: absolute; left: 110px; top: 16px; width: 150px; height: 15px; border-style:solid; border-width: 0px; text-align: left;'><A HREF='$baseurl/Home.pl?MF=V2&Vid=$data[5]'><SPAN style='font-family: Segoe UI; font-size: .7em;'>Bed: $data[11] Bath: $data[12]</SPAN></A></DIV>\n"; print " <DIV style='position: absolute; left: 110px; top: 31px; width: 150px; height: 15px; border-style:solid; border-width: 0px; text-align: left;'><SPAN style='font-family: Segoe UI; font-size: .7em;'>SqFt: $data[13]</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 110px; top: 48px; width: 150px; height: 15px; border-style:solid; border-width: 0px; text-align: left;'><SPAN style='font-family: Segoe UI; font-size: .7em;'>\$$data[4]</SPAN></DIV>\n"; print " </DIV>\n"; $top = $top + 70; $tpx = $top . "px"; $count++; SKIPRELATED: } $sth->finish(); $dbh->disconnect(); $top = $top +12; $tpx = $top . "px"; print "</DIV>\n"; print "</DIV>\n"; } sub leftarrow() { $URL = $_[0]; print " <DIV class='leftnav'>\n"; print " <DIV style='position: absolute; left: 0px; top: 140px; text-align:center;'><IMG BORDER=0 SRC='$baseurl/Img/leftarrow.png'></DIV>\n"; print " </DIV>\n"; } sub set_cookie() { ##### Set the cookie $CCount = @_[0]; $CCount++; $cookie1 = new CGI::Cookie(-name => 'User-Session-ID', -value => 'USER=dobrooks@microsoft.com;Pref=5', -expires => '+3M', -domain => '.agentrobin.com', -path => '/', -secure => 0 ); print "Set-Cookie: $cookie1;\n"; $cookie1 = new CGI::Cookie(-name => 'Page-Access', -value => $CCount, -expires => '+3M', -domain => '.agentrobin.com', -path => '/', -secure => 0 ); print "Set-Cookie: $cookie1;\n"; } sub set_search() { $cookie1 = new CGI::Cookie(-name => 'Last-Search', -value => $ENV{'QUERY_STRING'}, -expires => '+3M', -domain => '.agentrobin.com', -path => '/', -secure => 0 ); print "Set-Cookie: $cookie1;\n"; } ############################ ## MLS Updated INformations ############################ sub mlsstatus(){ if ($_[0] eq "map") { $ztop = "770px"; } else { $ztop = "680px"; } print "<div style=\"position: absolute;top: $ztop;left: 270px;width: 650px;height:32px;border: 0px black solid; text-align: center;\">\n"; print "<div style=\"position: absolute; top: 1px; left: 1px; width: 200px;height:20px; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; float: left;\">MLS Information provided by..</SPAN></div>\n"; print "<div style=\"position: absolute; top: 1px;left: 440px; width: 200px;height:20px; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; float: right;\">Updated: $mlsupdated</SPAN></div>\n"; print "<div style=\"position: absolute; top: 1px; left: 210px; width: 200px;height:20px; border: 0px black solid; text-align: center;\"><IMG SRC=\"$baseurl/Images/BayEast1.jpg\"></div>\n"; print "</div>\n"; } sub put_map_script() { $mapcx="37.81873440"; $mapcy="-121.99699401"; $i_zoom="12"; if ($s_community eq "All") { $mapcx="37.81873440"; $mapcy="-121.99699401"; $i_zoom="10"; } if ($s_community eq "Danville") { $mapcx="37.81873440"; $mapcy="-121.99699401";} if ($s_community eq "Pleasanton") { $mapcx="37.67050562"; $mapcy="-121.88266754"; } if ($s_community eq "San Ramon") { $mapcx="37.77112181"; $mapcy="-121.95528030"; } if ($s_community eq "Dublin") { $mapcx="37.70799806"; $mapcy="-121.92798014"; } if ($s_community eq "Blackhawk") { $mapcx="37.80557957"; $mapcy="-121.906013488"; } if ($s_community eq "Alamo") { $mapcx="37.844291462"; $mapcy="-122.03038215"; } if ($s_community eq "Walnut Creek") { $mapcx="37.90411590"; $mapcy="-122.04351425"; } if ($s_community eq "Lafayette") { $mapcx="37.90411590"; $mapcy="-122.04351425"; } if ($s_community eq "Livermore") { $mapcx="37.6901"; $mapcy="-121.74279425"; } if ($s_community eq "Tracy") { $mapcx="37.72704"; $mapcy="-121.42968"; } if ($s_community eq "Castro Valley") { $mapcx="37.69988"; $mapcy="-122.07925"; } build_srch_string(); print " <script type=\"text/javascript\"> var map = null; var pins = null; var i = null; var boxes = new Array(); var mapOptions = { credentials: \"AgIOXexuz3ScDawNnUB41FDLx7FXOKp68N4hJ68kwHBeWzbr6bP8ypQPcIlTn_BN\" } function InitiateMap(){ map = new Microsoft.Maps.Map(document.getElementById('MapDiv'), mapOptions); map.setView({ zoom: $i_zoom, center: new Microsoft.Maps.Location($mapcx, $mapcy) }); AddMultiplePins(); } function AddMultiplePins(){ pins = new Microsoft.Maps.EntityCollection(); i = 1; "; build_pushpins(); print " map.entities.push(pins); } function addPinToCollection(position, title, description, ic, vis, ul){ // PushPin var pin = new Microsoft.Maps.Pushpin(position, {text: i.toString(), icon: ic, draggable: false}); pins.push(pin); // InfoBox var infoboxOptions = { width:250, height: 100, title: title, description: description, showPointer: true, showCloseButton: false, zIndex: i, offset: new Microsoft.Maps.Point(0,32), visible: vis }; var myInfobox = new Microsoft.Maps.Infobox(position, infoboxOptions); map.entities.push(myInfobox); boxes[pin.getText()] = myInfobox; // Event Handler Microsoft.Maps.Events.addHandler(pin, 'mouseover', pinMouseOver); Microsoft.Maps.Events.addHandler(pin, 'mouseout', hideInfobox); Microsoft.Maps.Events.addHandler(pin, 'click', displayprop); i++; } function pinMouseOver(e){ var pin = e.target; if (pin != null){ boxes[pin.getText()].setOptions({ visible: true }); } } function hideInfobox(e){ var pin = e.target; var infobox = boxes[pin.getText()]; if (pin != null){ infobox.setOptions({ visible: false }); } } function displayprop(e){ if (e.targetType == \"pin\") { alert('HERE'); } } </script> "; } sub build_pushpins() { $dbh = DBI->connect('dbi:mysql:dreamhome_01_:dobrooks.ipowermysql.com:3306','agentrobin_01_','J0shKr1s') or die("Couldn't connect"); $sth = $dbh->prepare($SQL); $sth->execute; $prop_count=0; $rows = $sth->rows(); for ($i = 0; $i < $rows; $i++) { @data=$sth->fetchrow_array(); $pcount = $count+1; $price = $data[4]; $lc = "loc" . $pcount; $gpsx = $data[31]; $gpsy = $data[32]; if ($gpsx eq "" || $gpsx<35 || $gpsx > 40) { $gpsx = 37.8; } if ($gpsy eq "" || $gpsy<-124 || $gpsy > 120) { $gpsy = -122; } $mprice = $data[4]; if(length($price)==6) { $nmprice = "\$ " . substr($mprice,0,3) . "," . substr($mprice,3,3); } if(length($price)==7) { $nmprice = "\$ " . substr($mprice,0,1) . "," . substr($mprice,1,3) . "," . substr($mprice,4,3); } ## Build the string to get MLS PICTURE $MLSIDMAP = $data[0]; $MLSPin1 = substr($MLSIDMAP, 0, 1); $MLSPin2 = substr($MLSIDMAP, 1, 1); $MLSPin3 = substr($MLSIDMAP, 2, 1); $MLSPin4 = substr($MLSIDMAP, 3, 1); $MLSPin5 = substr($MLSIDMAP, 4, 1); $MLSPin6 = substr($MLSIDMAP, 5, 1); $MLSPin7 = substr($MLSIDMAP, 6, 1); $MLSPin8 = substr($MLSIDMAP, 7, 1); $IMGURL10t = "http://ca-ccar.photos.mlsfinder.com/thumbs/" . $MLSPin1 . "/" . $MLSPin2 . "/" . $MLSPin3 . "/" . $MLSPin4 . "/" . $MLSPin5 . "/" . $MLSPin6 . "/" . $MLSPin7 . "/" . $MLSPin8 . "/" . $MLSIDMAP . "-1.jpg"; $i_title = "<DIV style=\"position: absolute; top: 0px; left: 5px;\"><SPAN style=\"font-family: Segoe UI; font-size: 9pt; font-weight: bold; color: rgb(135,0,21);\">$data[5]</SPAN></DIV>"; $i_description0 = "<DIV style=\"position: absolute; top: 15px; left: 5px;\"><SPAN style=\"font-family: Segoe UI; font-size: 8pt; font-weight: bold; color: rgb(0,39,114);\">$data[3], CA $data[8]</SPAN></DIV>"; $i_description1 = "<DIV style=\"position: absolute; top: 28px; left: 5px;\"><SPAN style=\"font-family: Segoe UI; font-size: 7pt; font-weight: bold; color: rgb(133,133,133);\">Bedrooms: $data[11] Bathrooms: $data[12]</SPAN></DIV>"; $i_description2 = "<DIV style=\"position: absolute; top: 40px; left: 5px;\"><SPAN style=\"font-family: Segoe UI; font-size: 7pt; font-weight: bold; color: rgb(133,133,133);\">House SqFt: $data[13] Lot SqFt: $data[34]</SPAN></DIV>"; $i_description3 = "<DIV style=\"position: absolute; top: 54px; left: 5px;\"><SPAN style=\"font-family: Segoe UI; font-size: 8pt; font-weight: bold; color: rgb(133,133,133);\">$data[19]</SPAN></DIV>"; $i_description4 = "<DIV style=\"position: absolute; top: 72px; left: 170px;\"><SPAN style=\"font-family: Segoe UI; font-size: 10pt; font-weight: normal; color: rgb(133,133,133);\">$nmprice</SPAN></DIV>"; $i_description5 = "<DIV style=\"position: absolute; top: 5px; left: 160px; width: 85px; height: 66px;\"><IMG WIDTH=100% HEIGHT=100% SRC=\"$IMGURL10t\"></DIV>"; $i_description = $i_description0 . $i_description1 . $i_description2 . $i_description3 . $i_description4 . $i_description5; if ($data[9] eq "ACTV") { $i_pin = "$baseurl/Img/bluepin.png"; } if ($data[9] eq "NEW") { $i_pin = "$baseurl/Img/greenpin.png"; } if ($data[9] eq "PCH") { $i_pin = "$baseurl/Img/goldpin.png"; } if ($data[9] eq "BOMK") { $i_pin = "$baseurl/Img/purplepin.png"; } $ip_url = "$baseurl/prop_display.pl?MLSID=$data[0]". "PT"; print " addPinToCollection(new Microsoft.Maps.Location($gpsx, $gpsy), '$i_title', '$i_description', '$i_pin', false, '$ip_url');\n"; push(@map_props,$data[0]); $count++; SKIPPED101: } ENDIT1: $sth->finish(); $dbh->disconnect(); } sub bread_crumb() { $bid = @_[0]; if ($bid eq "") { $bid =1; } if ($bid eq "1") { print " <DIV style='position: absolute; left: 10px; top: 118px; height: 15px; width: 1100px; border-style: inset; border-width: 0px; text-align: left;'>\n"; print " <SPAN style='font-family: Segoe UI Light; font-size: 10pt; color: white;'><A style='color: white;' HREF='$baseurl/'>properties</A></SPAN>\n"; print " <SPAN style='font-family: Segoe UI Light; font-size: 10pt; color: white;'><A style='color: white;' HREF='$baseurl/PSearch.pl'>>>search</A></SPAN>\n"; print " </DIV>\n"; } if ($bid eq "2") { print " <DIV style='position: absolute; left: 10px; top: 118px; height: 15px; width: 1100px; border-style: inset; border-width: 0px; text-align: left;'>\n"; print " <SPAN style='font-family: Segoe UI Light; font-size: 10pt; color: white;'><A style='color: white;' HREF='http://www.danvillelive.com/'>home</A></SPAN>\n"; print " <SPAN style='font-family: Segoe UI Light; font-size: 10pt; color: white;'><A style='color: white;' HREF='http://www.danvillelive.com/'>>> services</A></SPAN>\n"; print " <SPAN style='font-family: Segoe UI Light; font-size: 10pt; color: white;'><A style='color: white;' HREF='http://www.danvillelive.com/home.pl?MF=V1&Vid=1000000'>>> buyer</A></SPAN>\n"; print " </DIV>\n"; } } sub get_favorite_db() { $SQL = "SELECT * FROM FContacts WHERE email='$User_ID'"; $dbh = DBI->connect('dbi:mysql:dreamhome_01_:dobrooks.ipowermysql.com:3306','agentrobin_01_','J0shKr1s') or die("Couldn't connect"); $sth = $dbh->prepare($SQL); $sth->execute; @data=$sth->fetchrow_array(); $favlist = $data[34]; @favorites = split(/:/,$data[34]); $sth->finish(); $dbh->disconnect(); }
© 2017 -
ZeroByte.ID
.