����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
/
web
/
sb_web
/
web
/
web
/
sb_web
/
b2432
/
agentrobin.com
/
[
Home
]
File: AR.pl
#!/perl64/bin # Get the environment variables passe to the script use CGI qw/:standard :html3 :netscape/; use Win32::ODBC; use Env; use Net::SMTP; use Net::Config; $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; @FormValues = split(/&/, $ENV{QUERY_STRING}); $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"; $ELength = length($ENV{QUERY_STRING}); if ($ENV{QUERY_STRING} =~ "SortBy") { $EString = substr($ENV{QUERY_STRING},0,$ELength-9); $ENV{QUERY_STRING} = $EString;} $sort_string1="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=1"; $sort_string2="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=2"; $sort_string3="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=3"; $sort_string4="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=4"; $sort_string5="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=5"; $sort_string6="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=6"; $sort_string7="http://www.AgentRobin.com/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 "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'); @numbers = ('Any','1','2','3','4','5','6+'); @utype = ('Single Family','Condo/Townhouse','Rental'); @ustatus = ('Available','New','All Changes'); @stype = ('Regular','Short Sale','Foreclosure'); printheader(); place_heading(); #gen_footer(); printending(); exit(0); sub buildneighborhoods() { $count=0; $LeftCol=75; $TopLine=85; $ZIndex = 307; print "<DIV style=\"position: absolute;top: 35px;left: 5px;width: 75px;height:15px;z-index: 799; border: 0px black solid;\"><FORM><INPUT TYPE=\"button\" VALUE=\"Back to Communities\" onClick=\"history.go(-1);return true;\"> </FORM></DIV>\n"; print "<div align=left style=\"position: absolute;top: 70px;left: 5px;width: 820;height:500px;z-index: 302; border: 1px black solid;\">\n"; print "<TABLE bgcolor=$BGColor id=\"ntablehead\" WIDTH=820><TR id=\"ntablehead\" bgcolor=Black><TH Width=200>Neighborhood</TH><TH Width=25>For Sale</TH><TH Width=25>Pend</TH><TH Width=25>Lease</TH><TH Width=25>Sold</TH><TH Width=150>Elem School</TH><TH Width=150>Middle School</TH><TH Width=150>High School</TH></TR>\n"; $tcount=0; while ($db->FetchRow()){ @data=$db->Data(); $CFS=0; $CFR=0; $CPN=0; $CSD=0; $TWN1 = ucfirst($data[1]); $NBR = substr(uc($data[2]), 0, 6); ### Fork out and get the MLS Data #### $nstats=new Win32::ODBC("DSN=YFDH;UID=aglogin;PWD=J0shKr1s"); $SQLN1 = "SELECT * FROM PropMLS WHERE Neighborhood like '$NBR\%' AND CITY='$TWN1'"; $ncheck=$nstats->Sql($SQLN1); $CH=0; while ($nstats->FetchRow()){ @ndata=$nstats->Data(); $eval = substr($ndata[9],0,4); $evl2 = substr($ndata[9],0,4); $evl3 = substr($ndata[9],0,4); $evl4 = substr($ndata[9],0,4); if (uc($eval) =~ "ACTV") { $CFS=$CFS+1; } if (uc($evl2) =~ "PENDIN") { $CPN=$CPN+1; } if (uc($evl3) =~ "LEASE") { $CFR=$CFR+1; } if (uc($evl4) =~ "SOLD") { $CSD=$CSD+1; } $CH=$CH+1; } $nstats->Close(); if ($tcount == 0) { print "<TR id=\"ntabledata\" bgcolor=\"#D2BC95\"><TD><A HREF=\"http://www.mlsfinder.com/ca_ccar/stephennagy/index.cfm?action=newsearch&searchtype=subdivision&subdivision_string=greenbrook\">$data[2]</A></TD><TD><A HREF=\"\main_beta.pl?Property:$Town:$data[2]\">$CFS</A></TD><TD>$CPN</TD><TD>$CFR</TD><TD>$CSD</TD><TD><A TARGET=\"Schools\" HREF=\"$data[11]\">$data[10]</A></TD><TD><A TARGET=\"Schools\" HREF=\"$data[15]\">$data[14]</A></TD><TD>$data[18]</TD></TR>\n"; $tcount=1; } else { print "<TR id=\"ntabledata\" bgcolor=\"#D8C6A7\"><TD><A HREF=\"http://www.mlsfinder.com/ca_ccar/stephennagy/index.cfm?action=newsearch&searchtype=subdivision&subdivision_string=greenbrook\">$data[2]</A></TD><TD><A HREF=\"\main_beta.pl?Property:$Town:$data[2]\">$CFS</A></TD><TD>$CPN</TD><TD>$CFR</TD><TD>$CSD</TD><TD><A TARGET=\"Schools\" HREF=\"$data[11]\">$data[10]</A></TD><TD><A TARGET=\"Schools\" HREF=\"$data[15]\">$data[14]</A></TD><TD>$data[18]</TD></TR>\n"; $tcount=0; } } print "</TABLE>\n"; print "</div>\n"; } 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: content='text/html; charset=utf-8'\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 "<script src=\"http://maps.google.com/maps?file=api&v=2&sensor=false&key=ABQIAAAASkFux1vu2CL12cfQRPzhaxTQDHf3fRnwNjZr31Uuu6mHpv_Z1xQcDuycguTOaEUUoU-7Z6FqKryXxQ\" type=\"text/javascript\"></script>\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='Default_files/ARMain.css' rel='stylesheet'>\n"; print "<link rel='Stylesheet' type='text/css' href='Default_files/smoothDivScroll.css' />\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 "var map = null\;\n"; print "function GetMap2()\n"; print "{\n"; print " map = new VEMap('myMap');\n"; print " map.LoadMap();\n"; print "}\n"; print "function getMap()\n"; print "{\n"; print " var forsale = new Microsoft.Maps.EntityCollection();\n"; print " var location1 = new Microsoft.Maps.Location(37.81873440, -121.99699401);\n"; print " map = new Microsoft.Maps.Map(document.getElementById('MapDiv'), \n"; print " {"; print " credentials: 'AgIOXexuz3ScDawNnUB41FDLx7FXOKp68N4hJ68kwHBeWzbr6bP8ypQPcIlTn_BN',"; if ($s_community eq "All") { print " center: new Microsoft.Maps.Location(37.81873440, -121.99699401),"; } if ($s_community eq "Danville") { print " center: new Microsoft.Maps.Location(37.81873440, -121.99699401),"; } if ($s_community eq "Pleasanton") { print " center: new Microsoft.Maps.Location(37.67050562, -121.88266754),"; } if ($s_community eq "San Ramon") { print " center: new Microsoft.Maps.Location(37.77112181, -121.95528030),"; } if ($s_community eq "Dublin") { print " center: new Microsoft.Maps.Location(37.70799806, -121.92798014),"; } if ($s_community eq "Blackhawk") { print " center: new Microsoft.Maps.Location(37.80557957, -121.906013488),"; } if ($s_community eq "Alamo") { print " center: new Microsoft.Maps.Location(37.844291462, -122.03038215),"; } if ($s_community eq "Walnut Creek") { print " center: new Microsoft.Maps.Location(37.90411590, -122.04351425),"; } print " zoom: 13,"; print " showScalebar: false"; print " })\;\n"; print " var center = map.getCenter();\n"; print " var pin = new Microsoft.Maps.Pushpin(center, {text: '1'});\n"; print " pin.setInfoBox(new InfoBox(\"<strong>Pushpin 1</strong>\"));\n"; # print " var pin2 = new Microsoft.Maps.Pushpin(location1, {text: '2'});\n"; # print " map.entities.push(pin);\n"; print " forsale.push(pin);\n"; # print " forsale.push(pin2);\n"; print " forsale.push(pinInfobox);\n"; # print " forsale.push(Microsoft.Maps.Events.addHandler(pin, 'click', displayInfobox);)\n"; print " map.entities.push(forsale);\n"; # print " Microsoft.Maps.Events.addHandler(pin, 'click', displayInfobox);\n"; print " Microsoft.Maps.Events.addHandler(pin, 'click', displayInfobox);\n"; print " map.LoadMap();\n"; print "} \n"; print "</script>\n"; print "</head>\n"; } ################### GENERIC PAGE SETUP ENDING ################### sub printending { print "</body>\n"; print "</html>\n"; } sub place_heading() { $bimage = "Maroon1.jpg"; # $bimage = "bluebanner.png"; print "<BODY onload='getMap();'>\n"; print "<DIV class='topdiv'>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/$bimage' WIDTH=100% HEIGHT=100%>\n"; print " <DIV style='position: absolute; left: 0px; top: 0px;'>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/ArLogo.jpg'>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 128px; top: 1px;'><SPAN style='font-family: century; font-size: 2.6em; color: rgb(188,161,154);'> AgentRobin.com</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 130px; top: 50px;'><SPAN style='font-family: century; font-size: 1em; color: rgb(255,255,255);'>San Ramon Valley Real Estate</SPAN></DIV>\n"; print " <DIV style='position: absolute; right: 5px; top: 8px; text-align: right;'><SPAN class='bigmenu_text_background'> Welcome BooBoo</SPAN></DIV>\n"; print " <DIV style='position: absolute; right: 5px; top: 36px; text-align: right;'><SPAN class='submenu_text'> Signin Sigup</SPAN></DIV>\n"; print "</DIV>\n"; if ($Page eq "1") { option1(); } if ($Page eq "2") { option2(); } if ($Page eq "3") { option3(); } if ($Page eq "4") { option4(); } if ($Page eq "5") { option5(); } print "\n"; print "\n"; print "\n"; print "\n"; } sub option1() { print "<DIV class='menubar1'>\n"; #### This is code to fill in the div (I.E) problem fix and put the left image on the main menu print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/LightMenu.png' WIDTH=100% HEIGHT=58>\n"; print " <DIV style='position: absolute; left: -1px; top: -1px; width: 10px; height: 37px; border-style:solid; border-width: 0px; text-align: left; overflow: hidden;'><IMG BORDER=0 SRC='http://www.agentrobin.com/Img/menu_left.jpg'></DIV>\n"; #### This is the master menu build code #### print " <DIV style='position: absolute; left: 30px; top: -10px; right: 0px; height: 37px; border-style:solid; border-width: 0px; text-align: left; overflow: hidden;'>\n"; print " <SPAN class='metroNavBtn'>home</SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=2&Sub=1'>properties</A></SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=3'>services</A></SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=4'>education</A></SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=5'>tools</A></SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=6'>myAgent</A></SPAN>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; right: 0px; top: -1px; width: 10px; height: 37px; border-style:solid; border-width: 0px; text-align: left; overflow: hidden;'><IMG BORDER=0 SRC='http://www.agentrobin.com/Img/menu_right.jpg'></DIV>\n"; print "</DIV>\n"; #### #### This code builds the main body default display options (Trying to format with Tables but will liekly change) print " <DIV class='s_width'>\n"; if ($PSub eq "1") { leftarrow(); build_about(); build_body_home(); build_latest(); } if ($PSub eq "2") { print "<TABLE WIDTH=100% BORDER=1>\n"; print "<TR><TD WIDTH=240>"; build_about(); print "</TD><TD>"; build_testimonials(); print "</TD><TD WIDTH=240>"; build_testimonial_detail(); print "</TD></TR>\n"; } print "</DIV>\n"; #### } sub option2() { print "<DIV class='menubar1'>\n"; #### This is code to fill in the div (I.E) problem fix and put the left image on the main menu print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/LightMenu.png' WIDTH=100% HEIGHT=58>\n"; print " <DIV style='position: absolute; left: -1px; top: -1px; width: 10px; height: 37px; border-style:solid; border-width: 0px; text-align: left; overflow: hidden;'><IMG BORDER=0 SRC='http://www.agentrobin.com/Img/menu_left.jpg'></DIV>\n"; #### This is the master menu build code #### print " <DIV style='position: absolute; left: 30px; top: -10px; right: 0px; height: 37px; border-style:solid; border-width: 0px; text-align: left;'>\n"; print " <A HREF='http://www.AgentRobin.com/AR.pl?Page=1'><SPAN class='bigmenu_text_background'>home</SPAN></A>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_foreground'><A HREF='http://www.AgentRobin.com/AR.pl?Page=2&Sub=1'>properties</A></SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=3'>services</A></SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=4'>education</A></SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=5'>tools</A></SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=6'>myAgent</A></SPAN>\n"; print " </DIV>\n"; #### This code puts the menu sub option for each main menu item. print " <DIV style='position: absolute; left: 30px; top: 20px; right: 0px; height: 20px; border-style:solid; border-width: 0px; text-align: left;'>\n"; print " <SPAN class='smallmenu_text_foreground'><A HREF='http://www.AgentRobin.com/AR.pl?Page=2&Sub=1'>SEARCH</A></SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='smallmenu_text_foreground'>COMMUNITIES</SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='smallmenu_text_foreground'>MARKET STATUS</SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='smallmenu_text_foreground'>NEWEST</SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='smallmenu_text_foreground'>INVESTMENT</SPAN>\n"; print " </DIV>\n"; #### if ($PSub eq "1") { print " <DIV style='position: absolute; right: 0px; top: -1px; width: 10px; height: 37px; border-style:solid; border-width: 0px; text-align: left; overflow: hidden;'><IMG BORDER=0 SRC='http://www.agentrobin.com/Img/menu_right.jpg'></DIV>\n"; print "</DIV>\n"; print "<TABLE WIDTH=100% BORDER=1>\n"; print "<TR><TD WIDTH=800>"; build_search(); print "</TD><TD>"; build_search_home(); print "</TD></TR>\n"; } } sub option3() { print "<DIV class='menubar1'>\n"; #### This is code to fill in the div (I.E) problem fix and put the left image on the main menu print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/LightMenu.png' WIDTH=100% HEIGHT=58>\n"; print " <DIV style='position: absolute; left: -1px; top: -1px; width: 10px; height: 37px; border-style:solid; border-width: 0px; text-align: left; overflow: hidden;'><IMG BORDER=0 SRC='http://www.agentrobin.com/Img/menu_left.jpg'></DIV>\n"; #### This is the master menu build code #### print " <DIV style='position: absolute; left: 30px; top: -10px; right: 0px; height:37px; border-style:solid; border-width: 0px; text-align: left;'>\n"; print " <A HREF='http://www.AgentRobin.com/AR.pl?Page=1'><SPAN class='bigmenu_text_background'>home</SPAN></A>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=2'>properties</A></SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_foreground'><A HREF='http://www.AgentRobin.com/AR.pl?Page=3'>services</A></SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=4'>education</A></SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=5'>tools</A></SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='bigmenu_text_background'><A HREF='http://www.AgentRobin.com/AR.pl?Page=6'>myAgent</A></SPAN>\n"; print " </DIV>\n"; #### This code puts the menu sub option for each main menu item. print " <DIV style='position: absolute; left: 30px; top: 20px; right: 0px; height: 20px; border-style:solid; border-width: 0px; text-align: left;'>\n"; print " <SPAN class='smallmenu_text_foreground'><A HREF='http://www.AgentRobin.com/AR.pl?Page=3&Sub=1'>FOR BUYERS</A></SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='smallmenu_text_foreground'><A HREF='http://www.AgentRobin.com/AR.pl?Page=3&Sub=2'>FOR SELLERS</A></SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='smallmenu_text_foreground'><A HREF='http://www.AgentRobin.com/AR.pl?Page=3&Sub=3'>FOR INVESTORS</A></SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='smallmenu_text_foreground'><A HREF='http://www.AgentRobin.com/AR.pl?Page=3&Sub=4'>SHORT SALES</A></SPAN>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/white_divide.png'><SPAN class='smallmenu_text_foreground'><A HREF='http://www.AgentRobin.com/AR.pl?Page=3&Sub=5'>FORECLOSURES</A></SPAN>\n"; print " </DIV>\n"; #### print " <DIV style='position: absolute; right: 0px; top: -1px; width: 10px; height: 37px; border-style:solid; border-width: 0px; text-align: left; overflow: hidden;'><IMG BORDER=0 SRC='http://www.agentrobin.com/Img/menu_right.jpg'></DIV>\n"; print "</DIV>\n"; if ($PSub eq "1") { print "<TABLE WIDTH=100% BORDER=1>\n"; print "<TR><TD WIDTH=800>"; build_buyer_left(); print "</TD><TD>"; build_buyer_resources(); print "</TD></TR>\n"; } if ($PSub eq "2") { print "<TABLE WIDTH=100% BORDER=1>\n"; print "<TR><TD WIDTH=800>"; build_seller_left(); print "</TD><TD>"; build_seller_resources(); print "</TD></TR>\n"; } } sub gen_footer() { print "<DIV class='botdiv'>\n"; print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/LightMenu.png' WIDTH=100% HEIGHT=100%>\n"; print " <DIV style='position: absolute; left: 270px; top: -5px;'><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.6em; color: rgb(255,255,255); font-decoration: bold;'> Robin Brooks (AgentRobin)</SPAN></DIV>\n"; print " <DIV style='position: absolute; right: 0px; top: 23px;'><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(188,161,154);'> 760 Camino Ramon Suite 200 - Danville, CA 94526</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 270px; top: 18px;'><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(255,255,255);'> Direct: (925) 212-2446 Fax: (925) 212-2446</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 0px; top: 0px; height: 50px; text-align:center;'>\n"; print " <IMG BORDER=1 SRC='http://www.agentrobin.com/Img/KW_small.jpg'>\n"; print " </DIV>\n"; print "</DIV>\n"; } sub build_testimonials() { print "<DIV class='floatit'>\n"; print " <DIV style='position: absolute; left: 10px; top: -1px; width: 550px; 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/label_testimonials.png'></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 20px; top: 0px; width: 40px; 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/label_back.png' onclick='goBack()'></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 4px; top: 50px; height: 20px; width: 300px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 22pt; color: rgb(0,0,0); font-weight: normal;'>Testimonials</SPAN>\n"; print " </DIV>\n"; print " <DIV id='makeMeScrollable' style='position: absolute; left: 0px; top: 80px; height: 170px; width: 565px; border-style: inset; border-width: 0px; float: middle; overflow: auto;'>\n"; print " <div class='scrollingHotSpotLeft'></div>\n"; print " <div class='scrollingHotSpotRight'></div>\n"; print " <div class='scrollWrapper'>\n"; print " <div class='scrollableArea'>\n"; $tnum = @varray0; $xpos = 0; for ($x=0; $x<=$tnum-1;$x++) { $xpos1= $xpos . "px"; print " <DIV style='position: absolute; left: $xpos1; top: 5px; height: 100px; width: 100px; border-style: inset; border-width: 0px; float: middle;'><IMG SRC='http://www.AgentRobin.com/Img/$varray0[$x]'></DIV>\n"; print " <DIV style='position: absolute; left: $xpos1; top: 105px; height: 20px; width: 100px; border-style: inset; border-width: 0px; text-align: center;'><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 16pt; color: rgb(0,0,0); font-weight: normal;'>$varray2[$x]</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: $xpos1; top: 125px; height: 20px; width: 100px; border-style: inset; border-width: 0px; text-align: center;'><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 13pt; color: rgb(0,0,0); font-weight: normal;'>$varray3[$x]</SPAN></DIV>\n"; $xpos=$xpos+130; } print " </DIV>\n"; print " </DIV>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 4px; top: 270px; height: 20px; width: 280px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 22pt; color: rgb(0,0,0); font-weight: normal;'>Most Recent Transactions</SPAN>\n"; print " </DIV>\n"; print " <DIV id='makeMeScrollable' style='position: absolute; left: 0px; top: 300px; height: 170px; width: 565px; border-style: inset; border-width: 0px; float: middle; overflow: auto;'>\n"; print " <div class='scrollingHotSpotLeft'></div>\n"; print " <div class='scrollingHotSpotRight'></div>\n"; print " <div class='scrollWrapper'>\n"; print " <div class='scrollableArea'>\n"; $tnum = @parray0; $xpos = 0; for ($x=0; $x<=$tnum-1;$x++) { $xpos1= $xpos . "px"; print " <DIV style='position: absolute; left: $xpos1; top: 5px; height: 100px; width: 120px; border-style: inset; border-width: 0px; float: middle;'><IMG SRC='http://www.AgentRobin.com/Img/$parray0[$x]'></DIV>\n"; print " <DIV style='position: absolute; left: $xpos1; top: 105px; height: 20px; width: 120px; border-style: inset; border-width: 0px; text-align: center;'><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 16pt; color: rgb(0,0,0); font-weight: normal;'>$parray2[$x]</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: $xpos1; top: 125px; height: 20px; width: 120px; border-style: inset; border-width: 0px; text-align: center;'><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 13pt; color: rgb(0,0,0); font-weight: normal;'>$parray3[$x]</SPAN></DIV>\n"; $xpos=$xpos+145; } print " </DIV>\n"; print " </DIV>\n"; print " </DIV>\n"; print "</DIV>\n"; } sub build_body_home() { print "<DIV class='floatit'>\n"; print " <DIV style='position: absolute; left: 10px; top: 0px; width: 550px; 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/label_eservice.png'></SPAN></DIV>\n"; # Welcome Tile print " <DIV style='position: absolute; left: 10px; top: 60px; height: 100px; width: 150px; border-style: inset; border-width: 0px; float: middle;' onMouseOver=\"document.WelcomePic.src='http://www.agentrobin.com/Img/Welcome1_ov.jpg'\" onMouseOut=\"document.WelcomePic.src='http://www.agentrobin.com/Img/Welcome1.jpg'\">\n"; print " <IMG Name=WelcomePic SRC='http://www.agentrobin.com/Img/WElcome1.jpg'>\n"; print " </DIV>\n"; ## Overlay with Information. Built in a master DIV to hold the transparent image background for visual effect print " <DIV style='position: absolute; left: 166px; top: 63px; height: 100px; width: 375px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <IMG SRC='http://www.agentrobin.com/Img/back001.png'>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 170px; top: 80px; height: 115px; width: 150px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <IMG SRC='http://www.agentrobin.com/Img/line_div1.png'>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 170px; top: 57px; height: 160px; width: 160px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.4em; color: rgb(0,0,0); font-weight: normal;'>WELCOME</SPAN><br>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 182px; top: 85px; height: 50px; width: 340px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.0em; color: rgb(0,0,0); font-weight: normal;'> \"My goal is to provide outstanding service from intial consultation to final closing. I'll always put YOU first!!</SPAN>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 175px; top: 140px; height: 20px; width: 80px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: bold;'> About Me</SPAN>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 250px; top: 139px; height: 20px; width: 20px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <IMG SRC='http://www.agentrobin.com/Img/playit.png'>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 280px; top: 139px; height: 20px; width: 20px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <IMG SRC='http://www.agentrobin.com/Img/facebook.png'>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 310px; top: 139px; height: 20px; width: 20px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <IMG SRC='http://www.agentrobin.com/Img/linkedin.png'>\n"; print " </DIV>\n"; # Testimonial Tile print " <DIV style='position: absolute; left: 10px; top: 200px; height: 100px; width: 160px; border-style: inset; border-width: 0px;' onMouseOver=\"document.TestimonialPic.src='http://www.agentrobin.com/Img/Testimonials1_ov.jpg'\" onMouseOut=\"document.TestimonialPic.src='http://www.agentrobin.com/Img/testimonials1.jpg'\">\n"; print " <A HREF='http://www.AgentRobin.com/AR.pl?Page=1&Sub=2'><IMG Name=TestimonialPic SRC='http://www.agentrobin.com/Img/testimonials1.jpg'></A>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 170px; top: 220px; height: 115px; width: 150px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <IMG SRC='http://www.agentrobin.com/Img/line_div1.png'>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 170px; top: 195px; height: 160px; width: 160px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.4em; color: rgb(0,0,0); font-weight: normal;'>REFERENCES</SPAN><br>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 182px; top: 225px; height: 50px; width: 340px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.0em; color: rgb(0,0,0); font-weight: normal;'>The best reference come from my previous clients!</SPAN>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 175px; top: 280px; height: 20px; width: 80px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: bold;'> Testimonials</SPAN>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 250px; top: 275px; height: 20px; width: 20px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <IMG SRC='http://www.agentrobin.com/Img/playit.png'>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 280px; top: 275px; height: 20px; width: 20px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <IMG SRC='http://www.agentrobin.com/Img/trulia.png'>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 340px; top: 275px; height: 20px; width: 20px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <IMG SRC='http://www.agentrobin.com/Img/yelp.png'>\n"; print " </DIV>\n"; # News and Blog print " <DIV style='position: absolute; left: 10px; top: 330px; height: 100px; width: 160px; border-style: inset; border-width: 0px;' onMouseOver=\"document.CustomizePic.src='http://www.agentrobin.com/Img/customize_ov.jpg'\" onMouseOut=\"document.CustomizePic.src='http://www.agentrobin.com/Img/customize.png'\">\n"; print " <IMG Name=CustomizePic SRC='http://www.agentrobin.com/Img/customize.png'>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 170px; top: 350px; height: 115px; width: 150px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <IMG SRC='http://www.agentrobin.com/Img/line_div1.png'>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 170px; top: 325px; height: 160px; width: 160px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.4em; color: rgb(0,0,0); font-weight: normal;'>CUSTOMIZE</SPAN><br>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 182px; top: 355px; height: 50px; width: 340px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.0em; color: rgb(0,0,0); font-weight: normal;'>Get alerts for new listings, listings in your areas of interest or market updates and news. Let the info come to you in YOUR way!!</SPAN>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 175px; top: 4133px; height: 20px; width: 80px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.1em; color: rgb(0,0,0); font-weight: bold;'> Testimonials</SPAN>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 250px; top: 413px; height: 20px; width: 20px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <IMG SRC='http://www.agentrobin.com/Img/playit.png'>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 280px; top: 413px; height: 20px; width: 20px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <IMG SRC='http://www.agentrobin.com/Img/signup.png'>\n"; print " </DIV>\n"; print " <DIV style='position: absolute; left: 340px; top: 413px; height: 20px; width: 20px; border-style: inset; border-width: 0px; float: middle;'>\n"; print " <IMG SRC='http://www.agentrobin.com/Img/emailalerts.png'>\n"; print " </DIV>\n"; # Cities print "</DIV>\n"; } sub build_latest() { print "<DIV class='home_latest'>\n"; print " <IMG BORDER=0 SRC='http://agentrobin.com/Img/White.png' WIDTH=100% HEIGHT=100%>\n"; print " <DIV style='position: absolute; left: 60px; top: 0px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG SRC='http://agentrobin.com/Img/label_whatsnew.png'></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 0px; top: 65px; width: 90px; height: 200px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><IMG BORDER=0 SRC='http://agentrobin.com/Img/SRV.png'></DIV>\n"; print " <DIV style='position: absolute; left: 4px; top: 60px; width: 100px; height: 20px; border-style:solid; border-width: 0px; text-align: left;'>\n"; print " <DIV style='position: absolute; left: 60px; top: 0px; width: 90px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='marketupdate'><A HREF='http://www.AgentRobin.com/Home.htm'>DANVILLE</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 60px; top: 25px; width: 120px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='marketupdate'><A HREF='http://www.AgentRobin.com/Home.htm'>BLACKHAWK</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 60px; top: 50px; width: 120px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='marketupdate'><A HREF='http://www.AgentRobin.com/Home.htm'>SAN RAMON</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 60px; top: 75px; width: 120px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='marketupdate'><A HREF='http://www.AgentRobin.com/Home.htm'>ALAMO</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 60px; top: 100px; width: 120px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='marketupdate'><A HREF='http://www.AgentRobin.com/Home.htm'>DUBLIN</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 60px; top: 125px; width: 120px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='marketupdate'><A HREF='http://www.AgentRobin.com/Home.htm'>PLEASANTON</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 60px; top: 150px; width: 140px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='marketupdate'><A HREF='http://www.AgentRobin.com/Home.htm'>WALNUT CREEK</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 60px; top: 175px; width: 120px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='marketupdate'><A HREF='http://www.AgentRobin.com/Home.htm'>LAFAYETTE</A></SPAN></DIV>\n"; print " </DIV>\n"; print "</DIV>\n"; } sub build_testimonial_detail() { print "<DIV class='home_latest'>\n"; print " <IMG BORDER=0 SRC='http://agentrobin.com/Img/White.png' WIDTH=100% HEIGHT=100%>\n"; print " <DIV style='position: absolute; left: 60px; top: 0px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG SRC='http://agentrobin.com/Img/label_whatsnew.png'></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 0px; top: 65px; width: 90px; height: 200px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><IMG BORDER=0 SRC='http://agentrobin.com/Img/SRV.png'></DIV>\n"; print " <DIV style='position: absolute; left: 4px; top: 60px; width: 100px; height: 20px; border-style:solid; border-width: 0px; text-align: left;'>\n"; print " <iFrame SRC='http://www.AgentRobin.com/Videos/Seller.wmv'></iFrame>\n"; print " </DIV>\n"; print "</DIV>\n"; } sub build_about() { print "<DIV class='home_sidebar'>\n"; print " <IMG BORDER=0 SRC='http://agentrobin.com/Img/section1.png' WIDTH=100% HEIGHT=100%>\n"; ## This is the informaiton of Robin print " <DIV style='position: absolute; left: 0px; top: 0px; width: 200px; height: 50px; border-style:solid; border-width: px; text-align: center; vertical-align: top;'><SPAN class='topical'><IMG BORDER=0 SRC='http://agentrobin.com/Img/label_robinbrooks.png'></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 20px; top: 60px; width: 200px; height: 220px; border-style:solid; border-width: 0px; text-align: left;'><IMG SRC='http://agentrobin.com/Img/RobinPic1.png'></DIV>\n"; print " <DIV style='position: absolute; left: 0px; top: 300px; width: 200px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top; overflow: hidden;'><SPAN class='medsize_txt'><A HREF='http://www.AgentRobin.com/Home.htm'>Real Estate Professional</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 0px; top: 320px; width: 200px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top; overflow: hidden;'><SPAN class='topical1'><A HREF='http://www.AgentRobin.com/Home.htm'>Keller Williams Realty</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 0px; top: 342px; width: 200px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top; overflow: hidden;'><SPAN class='topical_sm'><A HREF='http://www.AgentRobin.com/Home.htm'>CA DRE #01111111</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 0px; top: 370px; width: 200px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top; overflow: hidden;'><SPAN class='topical1'>Cell- : (925) 212-2446</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 0px; top: 390px; width: 200px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top; overflow: hidden;'><SPAN class='topical1'>Office: (925) 833-8555</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 0px; top: 420px; width: 200px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top; overflow: hidden;'><SPAN class='topical1'><A HREF='mailto:Robin\@AgentRobin.com'>Robin\@AgentRobin.com</A></SPAN></DIV>\n"; print "</DIV>\n"; } sub build_buyer_left() { print "<DIV class='home_sidebar'>\n"; print " <IMG BORDER=0 SRC='http://agentrobin.com/Img/red_back.png' WIDTH=100% HEIGHT=100%>\n"; ## This is the informaiton of Robin print " <DIV style='position: absolute; left: 10px; top: 0px; width: 228px; 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/label_buyer.png'></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 30px; top: 60px; width: 180px; height: 220px; border-style:solid; border-width: 0px; text-align: left;'><IMG SRC='http://agentrobin.com/Img/RobinPic1.png'></DIV>\n"; print " <DIV style='position: absolute; left: 10px; top: 300px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top; overflow: hidden;'><SPAN class='medsize_txt'><A HREF='http://www.AgentRobin.com/Home.htm'>Experienced Buyers Agent</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 10px; top: 320px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical1'><A HREF='http://www.AgentRobin.com/Home.htm'>Keller Williams Realty</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 10px; top: 342px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical_sm'><A HREF='http://www.AgentRobin.com/Home.htm'>CA DRE #01111111</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 10px; top: 370px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical1'>Cell- : (925) 212-2446</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 10px; top: 390px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical1'>Office: (925) 833-8555</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 10px; top: 420px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical1'><A HREF='mailto:Robin\@AgentRobin.com'>Robin\@AgentRobin.com</A></SPAN></DIV>\n"; print "</DIV>\n"; } sub build_buyer_resources() { print "<DIV class='buyer_resources'>\n"; print " <DIV style='position: absolute; left: 0px; top: 4px; width: 280px; 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/label_buyerresources.png'></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 0px; top: 50px; width: 280px; height: 20px; border-style:solid; border-width: 1px; text-align: left; vertical-align: top;'><SPAN class='topical1'>The Home Buying Process</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 0px; top: 70px; width: 280px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='topical1'>Buying a Short Sale or Foreclosure</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 0px; top: 90px; width: 280px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='topical1'>Mortgage Resources</SPAN></DIV>\n"; print "</DIV>\n"; } sub build_seller_left() { print "<DIV class='home_sidebar'>\n"; print " <IMG BORDER=0 SRC='http://agentrobin.com/Img/section1.png' WIDTH=100% HEIGHT=100%>\n"; ## This is the informaiton of Robin print " <DIV style='position: absolute; left: 10px; top: 0px; width: 228px; 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/label_seller.png'></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 30px; top: 60px; width: 180px; height: 220px; border-style:solid; border-width: 0px; text-align: left;'><IMG SRC='http://agentrobin.com/Img/RobinPic1.png'></DIV>\n"; print " <DIV style='position: absolute; left: 10px; top: 300px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top; overflow: hidden;'><SPAN class='medsize_txt'><A HREF='http://www.AgentRobin.com/Home.htm'>Real Estate Professional</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 10px; top: 320px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical1'><A HREF='http://www.AgentRobin.com/Home.htm'>Keller Williams Realty</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 10px; top: 342px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical_sm'><A HREF='http://www.AgentRobin.com/Home.htm'>CA DRE #01111111</A></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 10px; top: 370px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical1'>Cell- : (925) 212-2446</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 10px; top: 390px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical1'>Office: (925) 833-8555</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 10px; top: 420px; width: 228px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='topical1'><A HREF='mailto:Robin\@AgentRobin.com'>Robin\@AgentRobin.com</A></SPAN></DIV>\n"; print "</DIV>\n"; } sub build_search() { print "<FORM Name=SearchForm Action=''>\n"; print "<INPUT Type='Hidden' Name='Page' Value=2>\n"; print "<DIV class='home_search'>\n"; print " <IMG BORDER=0 SRC='http://agentrobin.com/Img/section1.png' WIDTH=100% HEIGHT=100%>\n"; print " <DIV style='position: absolute; left: 2px; top: 0px; width: 228px; 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/label_search.png'></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 30px; top: 100px; 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/mag_glass.png'></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 0px; top: 60px; 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'></SPAN></DIV>\n"; ## This is the search form Community Field print " <DIV style='position: absolute; left: 120px; top: 60px; 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: 92px; 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: 113px; 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: 144px; 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: 165px; 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: 196px; 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>$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 MaxPrice Field print " <DIV style='position: absolute; left: 120px; top: 217px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n"; print " <SELECT Name=MaxPrice Style='width: 400px;'>\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: 248px; width: 115px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='searchfont'>\n"; print " <SELECT Name=UnitType>\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: 269px; 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: 300px; 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: 350px; 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: 350px; 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: 350px; 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: 390px; 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='http://www.agentrobin.com/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='http://www.agentrobin.com/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"; } sub build_seller_resources() { print "<DIV class='seller_resources'>\n"; print " <DIV style='position: absolute; left: 0px; top: 4px; width: 390px; 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/label_sellerresources.png'></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"; } if ($s_mtype eq "Map") { print "<DIV class='floatit2_map'>\n"; } else { print "<DIV class='floatit2'>\n"; } print " <DIV style='position: absolute; left: 0px; top: 4px; width: 800px; 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/searchresults.png'></SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 0px; top: 0px; width: 800px; 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'></SPAN></DIV>\n"; if ($s_mtype eq "Detail") { print " <DIV style='position: absolute; left: 0px; top: 90px; width: 818px; height: 382px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top; overflow: auto;'>\n"; buildALLProperty_detail(); print " </DIV>\n"; } if ($s_mtype eq "List") { searchlist_head(); print " <DIV style='position: absolute; left: 0px; top: 85px; width: 818px; height: 382px; border-style:solid; border-width: 1px; text-align: left; vertical-align: top; overflow: auto;'>\n"; buildALLProperty_list(); print " </DIV>\n"; } if ($s_mtype eq "Map") { print " <DIV id=MapDiv style='position: absolute; left: 0px; top: 75px; width: 818px; height: 800px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top; overflow: auto;'>\n"; buildALLProperty_map(); print " </DIV>\n"; } print " <DIV style='position: absolute; left: 0px; top: 30px; width: 800px; height: 50px; border-style:solid; border-width: 0px; text-align: center; vertical-align: top;'><SPAN class='smallmenu_text_foreground'>$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="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=1"; $sort_string2="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=2"; $sort_string3="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=3"; $sort_string4="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=4"; $sort_string5="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=5"; $sort_string6="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=6"; $sort_string7="http://www.AgentRobin.com/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"; # print "$SQL - $s_minprice - $s_maxprice"; # goto PASSED; $TStyle = @_[1]; $FTop = @_[2]; # fetch and display data, ensure user has requested some rows $db=new Win32::ODBC("DSN=YFDH;UID=aglogin;PWD=J0shKr1s"); #New instance if (! $db){ print "Error opening data source $DSN $db"; exit(0); } # Use $rc to check if we could query the database and $db to hold the SQL results $rc=$db->Sql($SQL); #execute SQL query if ($rc){ $db->Close(); print "Error $rc getting INFO from table THEMES in First Iteration"; exit(0); } print "<TABLE class='listings'>\n"; $prop_count=0; while ($db->FetchRow()){ @data=$db->Data(); print "<TR>"; $ticon = "<IMG SRC='http://www.agentrobin.com/Img/UFR.png' TITLE='$data[2]'>"; if ($data[2] eq "Detached") { $ticon = "<IMG SRC='http://www.agentrobin.com/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='http://www.agentrobin.com/Img/MFR.png' TITLE='$data[2]'>"; } print "<TD Width=40>$ticon</TD>"; print "<TD Width=1 CENTER><IMG SRC='http://www.agentrobin.com/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='http://www.agentrobin.com/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;'>\U$data[5]</SPAN></TD>"; print "<TD Width=1 CENTER><IMG SRC='http://www.agentrobin.com/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='http://www.agentrobin.com/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='http://www.agentrobin.com/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='http://www.agentrobin.com/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='http://www.agentrobin.com/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='http://www.agentrobin.com/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++; } $db->Close(); PASSED: print "</TABLE>\n"; } sub searchlist_head() { print " <DIV style='position: absolute; left: 0px; top: 60px; width: 818px; height: 40px; border-style:solid; border-width: 1px; text-align: left; vertical-align: top; overflow: hidden; background-color: rgb(224,225,233);'>\n"; print "<TABLE class='listings_head'>\n"; print "<TR>"; print "<TH Width=40 CENTER><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(0,0,0); font-weight: bold;'><A HREF='$sort_string2'>TYPE</A></SPAN></TH>"; print "<TH Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TH>"; print "<TH Width=59><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(0,0,0); font-weight: bold;'><A HREF='$sort_string3'>STATUS</A></SPAN></TH>"; print "<TH Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TH>"; print "<TH Width=217 align=CENTER><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(0,0,0); font-weight: bold;'>ADDRESS</SPAN></TH>"; print "<TH Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TH>"; print "<TH Width=99 align=CENTER><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(0,0,0); font-weight: bold;'>CITY</SPAN></TH>"; print "<TH Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TH>"; print "<TH Width=40><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(0,0,0); font-weight: bold;'><A HREF='$sort_string4'>BED</A></SPAN></TH>"; print "<TH Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TH>"; print "<TH Width=39><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(0,0,0); font-weight: bold;'><A HREF='$sort_string5'>BATH</A></SPAN></TH>"; print "<TH Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TH>"; print "<TH Width=69><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(0,0,0); font-weight: bold;'><A HREF='$sort_string6'>SqFt</A></SPAN></TH>"; print "<TH Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TH>"; print "<TH Width=69><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(0,0,0); font-weight: bold;'><A HREF='$sort_string7'>DOM</A></SPAN></TH>"; print "<TH Width=1 CENTER><IMG SRC='http://www.agentrobin.com/Img/divider.png'</TH>"; print "<TH Width=90><SPAN style='font-family: cordiaUPC,sans-serif; font-size: 1.2em; color: rgb(0,0,0); font-weight: bold;'><A HREF='$sort_string1'>PRICE</A></SPAN></TH>"; print "</TR>"; print "</TABLE>\n"; print "</DIV>\n"; } sub buildALLProperty_map() { } sub buildALLProperty_detail() { $sort_string1="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=1"; $sort_string2="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=2"; $sort_string3="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=3"; $sort_string4="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=4"; $sort_string5="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=5"; $sort_string6="http://www.AgentRobin.com/Ar.pl?" . $ENV{QUERY_STRING} . "&SortBy=6"; $sort_string7="http://www.AgentRobin.com/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 $db=new Win32::ODBC("DSN=YFDH;UID=aglogin;PWD=J0shKr1s"); #New instance if (! $db){ print "Error opening data source $DSN $db"; exit(0); } # Use $rc to check if we could query the database and $db to hold the SQL results $rc=$db->Sql($SQL); #execute SQL query if ($rc){ $db->Close(); print "Error $rc getting INFO from table THEMES in First Iteration"; exit(0); } print "<TABLE class='listings'>\n"; $prop_count=0; while ($db->FetchRow()){ @data=$db->Data(); ### 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,50); $DC2 = substr($data[24],50,45). "....."; print "<TR><TD>"; print "<DIV style='position: relative; left: 30px; top: 0px; width: 760px; 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'><IMG BORDER=0 SRC='$IMGURL' WIDTH=100% HEIGHT=100%></DIV>\n"; 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]</DIV>\n"; print " <DIV style='position: absolute; left: 350px; top: 15px; width: 300px; height: 50px; border-style:outset; border-width: 0px; background-color: rgb(224,225,233); text-align: left; vertical-align: top;'>\n"; print " <DIV style='position: absolute; left: 5px; top: 0px; width: 300px; height: 20px; border-style:solid; border-width: 0px; text-align: left; vertical-align: top;'><SPAN class='propdetails_comments'>$DC1</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: 670px; 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++; } $db->Close(); PASSED: print "</TABLE>\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='http://www.agentrobin.com/Img/leftarrow.png'></DIV>\n"; print " </DIV>\n"; }
© 2017 -
ZeroByte.ID
.