����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
/
b2432
/
agentrobin.com
/
[
Home
]
File: BuyerSurvey.pl
#!/perl64/bin # Get the environment variables passe to the script use CGI qw/:standard :html3 :netscape/; use Win32::ODBC; use CGI::Cookie; use Env; use Net::SMTP; use Net::Config; $query = new CGI; $featured = "40562913"; $User_ID = "Guest"; @contact=('E-Mail Only','Phone','Either'); @updates=('Hello','Realtime','Daily','Weekly','Monthly'); @seewhat=('New Listings Only','All Listings','All Listings+Solds'); @numbers = ('Any','1','2','3','4','5','6+'); @prices = ('100000','150000','200000','250000','300000','350000','400000','450000','500000','550000','600000','650000','700000','750000','800000','850000','900000','1000000','1100000','1200000','1300000','1500000','1500000+'); $city_str = "Pleasanton"; $s_community = $city_str; #$sqft_str = "3000"; $s_mtype = "Map"; $sld = "off"; $WC='off'; $soldd = "20120101"; @community = ('All','Danville','Diablo','San Ramon','Blackhawk','Alamo','Dublin','Pleasanton','Walnut Creek','Rossmoor','Lafayette','Livermore','Tracy','Castro Valley'); @Cities=("Danville","San Ramon", "Blackhawk", "Alamo", "Dublin", "Pleasanton", "Walnut Creek", "Lafayette","Livermore","Tracy","Concord","Pleasant Hill","Castro Valley","Moraga"); $ccount=@Cities; ######## Read the cookie information ############### $ID = $query->cookie('Page-Access'); $User_ID = $query->cookie('User-Session-ID'); #$User_ID = @User_STR; @User_Vals = split(/;/, $User_ID); @User_IDs = split(/=/,$User_Vals[0]); $User_ID = $User_IDs[1]; set_cookie($ID); if ($ENV{QUERY_STRING} eq "") {} else { set_search();} $fav_Count = @favorites; $rec_count = @recents; $s_maxprice =""; $RHost = $ENV{$REMOTE_HOST}; $RAddr = $ENV{$REMOTE_ADDR}; $Host = $ENV{$HTTP_HOST}; @values = split(/:/, $ENV{QUERY_STRING}); ################## Read the cookie information for the last search page refered to see if the request came from a serahc query ############### $SRC_ID = $query->cookie('Last-Search'); if ($ENV{QUERY_STRING} eq "") { $SearchSTR = $SRC_ID; } else { $SearchSTR = $ENV{QUERY_STRING}; } #### Init all the variables ##### $fname = "$names[0]"; $lname = "$names[1]"; $HID=""; $email1=""; $email2 = ""; $first=""; $last=""; $type=""; $phone1=""; $phone2=""; $fax=""; $address=""; $city=""; $state=""; $zip=""; $method1=""; $method2=""; $uptype1=""; $uptype1f=""; $uptype2=""; $uptype2f=""; $areas=""; $dsprice=""; $minprice=""; $maxprice=""; $dsbeds=""; $minbeds=""; $maxbeds=""; $sqft=""; $srchtype=""; $method1=""; $method2=""; $active="Yes"; $realtor="No"; $phone1=$phone; $reo='off'; $short='off'; $cash='off'; $clist=""; $emailupdates=""; $contact=""; ##################################### #@FormValues = split(/&/, $ENV{QUERY_STRING}); @FormValues = split(/&/, $SearchSTR); $FV1 = @FormValues; $MList="n"; for ($x=0;$x<=$FV1-1;$x++) { @Attributes = split(/=/,$FormValues[$x]); if ($Attributes[0] eq "HID") { $HID=$Attributes[1]; $HID =~ tr/+/ /; $HID =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "CEMail") { $email=$Attributes[1]; $email =~ tr/+/ /; $email =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "CName") { $name=$Attributes[1]; $name =~ tr/+/ /; $name =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "CPhone") { $cphone=$Attributes[1]; $cphone =~ tr/+/ /; $cphone =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "fname") { $fname=$Attributes[1]; $fname =~ tr/+/ /; $fname =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "lname") { $lname=$Attributes[1]; $lname =~ tr/+/ /; $lname =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "email1") { $email1=$Attributes[1]; $email1 =~ tr/+/ /; $email1 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "email2") { $email2=$Attributes[1]; $email2 =~ tr/+/ /; $email2 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "phone") { $phone=$Attributes[1]; $phone =~ tr/+/ /; $phone =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "cell") { $cell=$Attributes[1]; $cell =~ tr/+/ /; $cell =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "address") { $address=$Attributes[1]; $address =~ tr/+/ /; $address =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "city") { $city=$Attributes[1]; $city =~ tr/+/ /; $city =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "state") { $state=$Attributes[1]; $state =~ tr/+/ /; $state =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "zip") { $zip=$Attributes[1]; $zip =~ tr/+/ /; $zip =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "dsprice") { $dsprice=$Attributes[1]; $dsprice =~ tr/+/ /; $dsprice =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "minprice") { $minprice=$Attributes[1]; $minprice =~ tr/+/ /; $minprice =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "maxprice") { $maxprice=$Attributes[1]; $maxprice =~ tr/+/ /; $maxprice =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "dsbeds") { $dsbeds=$Attributes[1]; $dsbeds =~ tr/+/ /; $dsbeds =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "minbeds") { $minbeds=$Attributes[1]; $minbeds =~ tr/+/ /; $minbeds =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "maxbeds") { $maxbeds=$Attributes[1]; $maxbeds =~ tr/+/ /; $maxbeds =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "sqft") { $sqft=$Attributes[1]; $sqft =~ tr/+/ /; $sqft =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "emailupdates") { $emailupdates=$Attributes[1]; $emailupdates =~ tr/+/ /; $emailupdates =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "method1") { $method1=$Attributes[1]; $method1 =~ tr/+/ /; $method1 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "srchtype") { $srchtype=$Attributes[1]; $srchtype =~ tr/+/ /; $srchtype =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "method2") { $method2=$Attributes[1]; $method2 =~ tr/+/ /; $method2 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "active") { $active=$Attributes[1]; $active =~ tr/+/ /; $active =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "realtor") { $realtor=$Attributes[1]; $realtor =~ tr/+/ /; $realtor =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "reo") { $reo=$Attributes[1]; $reo =~ tr/+/ /; $reo =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "short") { $short=$Attributes[1]; $short =~ tr/+/ /; $short =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "cash") { $cash=$Attributes[1]; $cash =~ tr/+/ /; $cash =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "contact") { $contact=$Attributes[1]; $contact =~ tr/+/ /; $contact =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;} if ($Attributes[0] eq "Func") { $fn=$Attributes[1]; } for ($q=0;$q<=$ccount-1;$q++) { $csrc = $Attributes[0]; $csrc =~ tr/+/ /; $csrc =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if ($csrc eq "$Cities[$q]") { $clist = $clist . "$Cities[$q]:"; } } } printheader(); if ($fn eq "new") { $UID=""; # RECORD_UPDATE(); } else { if ($email1 eq "") { $UID = ""; } else { $UID = $email1; RECORD_UPDATE(); } } place_heading(); #make_menu(); get_data(); build_form(); printending(); exit(0); ############################################################################################### ### Setup and Ending ROutines for Header and Footer- Header could be unique to the page i.e. maps ############################################################################################### sub printheader { $title = "AgentRobin.com - Real Estate Source for Danville, San Ramon, Alamo, Pleasanton, Dublin and Walnut Creek"; $description = "AgentRobin Tri-valley Real Estate"; print "Content-type: content='text/html; charset=utf-8'\n\n"; print "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">"; print "<HTML xmlns='http://www.w3.org/1999/xhtml'>\n"; print "<HEAD>\n"; $DefaultMetaDesciption= "Homes for Sale in Danville, San Ramon, Blackhawk, Alamo, Walnut Creek, Pleasanton and Dublin, CA"; $title = "San Ramon Valley Real Estate and Homes Sales"; print "<TITLE>$title</title>\n"; print "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">\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/AgentRobin_CSS.css' rel='stylesheet'>\n"; print "<link rel='stylesheet' type='text/css' href='http://www.agentrobin.com/css/Prop_menu_cma.css'/>\n"; print "<!--[START-LJ]--><script type='text/javascript' src='http://www.agentrobin.com/scripts/AR_Menu.js'></script><!--[END-LJ]-->\n"; #### INITALIZE BING MAP FUNCTIONS # print "<script type='text/javascript' src='http://ecn.dev.virtualearth.net/mapcontrol/mapcontrol.ashx?v=7.0'></script>\n"; # print "<script src='https://ajax.googleapis.com/ajax/libs/jquery/1.5.2/jquery.min.js' type='text/javascript'></script>\n"; # print "<script src='js/jquery.ui.widget.js' type='text/javascript'></script>\n"; # put_map_script(); print "</head>\n"; print "<body>\n"; } ############################################################################################### ### Makes the Agent Robin Main Banner and Logo (Not the drop down menu) ############################################################################################### sub place_heading() { $bimage = "Maroon1.png"; # $bimage = "bluebanner.png"; print "<DIV style=\"position: absolute; left: 0px; top: 0px; width: 100%; height: 80px; border: 1px solid black; float: right;\">\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"; # if ($auth_status eq "yes") { # print " <DIV style='position: absolute; left: 800px; top: 10px;'>\n"; # print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/vip_signup_back.png'>\n"; # print " </DIV>\n"; # } else { # print " <DIV style='position: absolute; left: 800px; top: 14px;'>\n"; # print " <IMG BORDER=0 SRC='http://www.agentrobin.com/Img/guest_signup_back.png'>\n"; # print " </DIV>\n"; # } # print " <DIV style='position: absolute; left: 865px; top: 18px;'>\n"; # print " <SPAN style='font-family: Segoe UI; font-size: .8em; color: rgb(255,255,255);'>$User_ID</SPAN>\n"; # print " </DIV>\n"; print " <DIV style='position: absolute; left: 565px; top: 24px;'>\n"; print " <SPAN style='font-family: Segoe UI; font-size: 1.3em; color: rgb(255,255,255);'>VIP HOME BUYER - CLIENT SURVEY</SPAN>\n"; print " </DIV>\n"; # if ($auth_status eq "yes") { # print " <DIV style='position: absolute; left: 860px; top: 50px;'>\n"; # print " <SPAN style='font-family: Segoe UI; font-size: .7em; color: rgb(255,255,255);'>Logout</SPAN>\n"; # print " </DIV>\n"; # } else { # print " <DIV style='position: absolute; left: 860px; top: 50px;'>\n"; # print " <SPAN style='font-family: Segoe UI; font-size: .7em; color: rgb(255,255,255);'>Login</SPAN><SPAN style='font-family: Segoe UI; font-size: .7em; color: rgb(255,255,255);'>VIP Sign Up (What's this?)</SPAN>\n"; # print " </DIV>\n"; # } print " <DIV style='position: absolute; left: 128px; top: 1px;'><SPAN style='font-family: century; font-size: 1.8em; color: rgb(188,161,154);'> AgentRobin.com</SPAN></DIV>\n"; print " <DIV style='position: absolute; left: 130px; top: 40px;'><SPAN style='font-family: Segoe UI; font-size: 1.2em; color: rgb(255,255,255);'>San Ramon Valley Real Estate</SPAN></DIV>\n"; print "</DIV>\n"; } ############################################################################################### ### prints the ending HTML for the Page ############################################################################################### sub printending { print "</body>\n"; print "</html>\n"; } ############################################################################################# ### Check to see if the email address already exists. If it does read it and initialize the input variables. ### ############################################################################################# sub get_data() { @names=split(/ /,$name); $SQL="SELECT * FROM FContacts WHERE email='$UID'"; # fetch and display data, ensure user has requested some rows $dbs=new Win32::ODBC("DSN=YFDH;UID=aglogin;PWD=J0shKr1s"); #New instance if (! $dbs){ print "Error opening data source $db"; $dbs->close(); exit(0); } # Use $rc to check if we could query the database and $db to hold the SQL results $rcs=$dbs->Sql($SQL); $position = 1; $rcount=0; $dbs->FetchRow(); @data=$dbs->Data(); if ($data[0] ne "") { $HID = "$data[0]"; $gname = "$data[6]"; $email1 = "$data[3]"; $email2 = "$data[4]"; $fname="$data[1]"; $lname="$data[2]"; $type="$data[7]"; $phone="$data[5]"; $cell="$data[40]"; $realtor="$data[41]"; $fax=""; $active = $data[13]; $srchtype="$data[18]"; $emailupdates = $data[15]; $method1 = "$data[16]"; $method2 = "$data[42]"; $contact="$data[43]"; $address="$data[19]"; $city="$data[20]"; $state="$data[21]"; $zip="$data[22]"; $uptype1=""; $uptype1f=""; $uptype2=""; $uptype2f=""; $areas="$data[32]"; $minprice="$data[9]"; $maxprice="$data[10]"; $bed="$data[23]"; $bath="$data[24]"; $minbeds="$data[27]"; $maxbeds="$data[28]"; $sqft="$data[25]"; $reo="$data[35]"; $short="$data[36]"; $cash="$data[37]"; $dsprice="$data[38]"; $dsbeds="$data[39]"; if ($active eq "") { $active='Yes'; } } else { $random_number = int(rand(1000000)); } $dbs->Close(); } sub RECORD_UPDATE() { $SQL="SELECT * FROM FContacts WHERE email='$UID'"; print "$SQL\n"; # fetch and display data, ensure user has requested some rows #### First check to see if the record exists. If it does then save the variables. We do this because we call the program recursively of form clikc $dbs=new Win32::ODBC("DSN=YFDH;UID=aglogin;PWD=J0shKr1s"); #New instance if (! $dbs){ print "Error opening data source $db"; $dbs->close(); exit(0); } # Use $rc to check if we could query the database and $db to hold the SQL results $rcs=$dbs->Sql($SQL); $dbs->FetchRow(); @data=$dbs->Data(); $bedcombo ="$data[27]:$data[28]"; $pricecombo ="$data[9]:$data[10]"; $clist =~ s/^\s+|\s+$//g; $alen = length($clist)-1; $clist=substr($clist,0,$alen); if ($data[0] ne "") { # $SQLUPDATE = "UPDATE FContacts SET firstname = '$fname', lastname='$lname', email='$email1', email2='$email2', phone='$phone', prop1='', prop2='', prop3='$cell', minprice='$minprice', maxprice='$maxprice', addcomments='Test COmment', active='$active', autofrequency='', srchtype='$srchtype', address='$address', city='$city', state='$state', zip='$zip', bedroom='$bedcombo', sqft='$sqft', rtype='', minbed='$minbed', minbath='$maxbed', datecreated='', bed='$bedcombo', price='$pricecombo', area='$areas', foreclosure='$reo', shortsale='$short', cashsale='$cash', desiredprice='$dsprice', desiredbed='$dsbeds' WHERE ID='$HID'"; # $SQLUPDATE = "UPDATE FContacts SET firstname = '$fname', lastname='$lname', email='$email1', email2='$email2', phone='$phone', prop1='', prop2='', cell='$cell', minprice='$minprice', maxprice='$maxprice', addcomments='Test COmment', active='$active', autofrequency='', srchtype='$srchtype', address='$address', city='$city', state='$state', zip='$zip', bedroom='$bedcombo', sqft='$sqft', rtype='', minbed='$minbed', minbath='$maxbed', bed='$bedcombo', price='$pricecombo' , foreclosure='$reo', shortsale='$short', cashsale='$cash', desiredprice='$dsprice', desiredbed='$dsbeds' WHERE ID='$HID'"; $SQLUPDATE = "UPDATE FContacts SET firstname = '$fname', lastname='$lname', email='$email1', email2='$email2', phone='$phone', prop1='', prop2='', cell='$cell', minprice='$minprice', maxprice='$maxprice', addcomments='Test COmment', active='$active', autoenabled='$emailupdates', autofrequency='$method1', srchtype='$srchtype', address='$address', city='$city', state='$state', zip='$zip', bedroom='$bedcombo', sqft='$sqft', rtype='', minbed='$minbeds', minbath='$maxbeds', bed='$bedcombo', price='$pricecombo' , foreclosure='$reo', shortsale='$short', cashsale='$cash', desiredprice='$dsprice', desiredbed='$dsbeds', realtor='$realtor', area='$clist', seewhat='$method2', contact='$contact' WHERE ID='$HID'"; print "\n$SQLUPDATE\n"; $rcs1=$dbs->Sql($SQLUPDATE); if ($rcs1) { $db->Close(); print "Error $rc getting INFO from table $OPTable in First Iteration"; exit(0); } } else { RECORD_SAVE(); } $dbs->Close(); } sub RECORD_SAVE() { $newrec =int(rand(1000000)); $bedcombo ="$minbeds:$maxbeds"; $pricecombo ="$minprice:$maxprice"; $SQLUPDATE = "INSERT INTO FContacts (ID, firstname,lastname, email, email2, phone, prop1, prop2, prop3, cell, minprice, maxprice, addcomments, active, autoenabled, autofrequency, srchtype, address, city, state, zip, bedroom, sqft, rtype, minbed, minbath, bed, price, foreclosure, shortsale, cashsale, desiredprice, desiredbed, realtor, area, seewhat, contact) VALUES ('$newrec', '$fname', '$lname', '$email1', '$email2', '$phone', '', '', '', '$cell', '$minprice', '$maxprice', '', '$active', '$emailupdates', '$method1', '$srchtype', '$address', '$city', '$state','$zip', '$bedcombo', '$sqft', '', '$minbeds', '$maxbeds','$bedcombo', '$pricecombo', '$reo', '$short', '$cash', '$dsprice', '$dsbeds', '$realtor', '$clist', '$method2', '$contact')"; print "\n$SQLUPDATE\n"; $rcs1=$dbs->Sql($SQLUPDATE); if ($rcs1) { $dbs->Close(); print "Error $rc getting INFO from table $OPTable in First Iteration"; exit(0); } } sub build_form() { $blurb = "Hello,<br>Thank you for taking the time to add a profile to AgentRobin.com. With the following information I can better assist your in your home search by knowing more details around the specific properties and communities you may be interested in. I can e-mail you updates to keep you abreast of changes in the curretn market place and subscribe you to my monthly real estate and investor reports.<br>Thanks again and if you have any questions and are ready to begin please feel free to contact me directly.<br><br> Robin \"AgentRobin\" Brooks"; print "<div style=\"position: absolute; top: 83px; left:0px; width: 1425px; height: 33px; z-index:100000; border: 0px solid black; text-align: right; padding: 0px;\">\n"; print " <div style=\"position: absolute; top: 4px; left:0px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 1em; color: rgb(0,0,0);'>$name</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 4px; left:200px; width: 300px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 1em; color: rgb(0,0,0);'>E-Mail: $email</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 4px; left:500px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: right; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 1em; color: rgb(0,0,0);'>Phone: $cphone</SPAN></DIV>\n"; print "<DIV>\n"; ###### Welcome Message ###### print "<div style=\"position: absolute; top: 50px; left:0px; width: 812px; height: 130px; z-index:100000; border: 1px solid black; text-align: right; padding: 0px;\">\n"; print " <div style=\"position: absolute; top: 4px; left:0px; width: 810px; height: 125px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>$blurb</SPAN></DIV>\n"; print "<DIV>\n"; print "<FORM Action='http://www.agentrobin.com/BuyerSurvey.pl' Name=\"BuyerSurvey\">\n"; print "<div style=\"position: absolute; top: 130px; left:0px; width: 400px; height: 300px; border: 1px solid black; text-align: right; padding: 0px;\">\n"; print " <input type=hidden Name=HID Value='$HID'>\n"; print " <div style=\"position: absolute; top: -1px; left:2px; width: 400px; height: 25px; z-index:101000; border: 0px solid black; text-align: center; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 14pt; color: rgb(0,0,0);'>CLIENT INFORMATION</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 30px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>First Name(s)</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 55px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>Last Name</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 80px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>E-mail Address</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 105px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>E-Mail Address 2 *</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 130px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>Phone Number (*)</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 155px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>Cell Phone (*)</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 180px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>Address (*)</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 205px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>City (*)</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 230px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>State (*)</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 255px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>Zip (*)</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 30px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Text Name=fname Value='$fname'></SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 55px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Text Name=lname Value='$lname'></SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 80px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Text Name=email1 Value='$email1' SIZE='30'></SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 105px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Text Name=email2 Value='$email2' SIZE='30'></SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 130px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Text Name=phone Value='$phone'></SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 155px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Text Name=cell Value='$cell'></SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 180px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Text Name=address Value='$address' SIZE='30'></SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 205px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Text Name=city Value='$city'></SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 230px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Text Name=state Value='$state' SIZE='2'></SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 255px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Text Name=zip Value='$zip' SIZE='10'></SPAN></DIV>\n"; print "</div>\n"; print "<div style=\"position: absolute; top: 130px; left:410px; width: 400px; height: 300px; border: 1px solid black; text-align: right; padding: 0px;\">\n"; print " <div style=\"position: absolute; top: -1px; left:2px; width: 400px; height: 25px;border: 0px solid black; text-align: center; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 14pt; color: rgb(0,0,0);'>COMMUNITIES</SPAN></DIV>\n"; if ($areas =~ "Danville") { print " <div style=\"position: absolute; top: 30px; left:4px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Danville Checked> Danville</SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 30px; left:4px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Danville> Danville</SPAN></DIV>\n"; } if ($areas =~ "San Ramon") { print " <div style=\"position: absolute; top: 55px; left:4px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name='San Ramon' Checked> San Ramon</SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 55px; left:4px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name='San Ramon'> San Ramon</SPAN></DIV>\n"; } if ($areas =~ "Blackhawk") { print " <div style=\"position: absolute; top: 80px; left:4px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Blackhawk Checked> Blackhawk</SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 80px; left:4px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Blackhawk> Blackhawk</SPAN></DIV>\n"; } if ($areas =~ "Alamo") { print " <div style=\"position: absolute; top: 105px; left:4px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Alamo Checked> Alamo</SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 105px; left:4px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Alamo> Alamo</SPAN></DIV>\n"; } if ($areas =~ "Dublin") { print " <div style=\"position: absolute; top: 130px; left:4px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Dublin Checked> Dublin</SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 130px; left:4px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Dublin> Dublin</SPAN></DIV>\n"; } if ($areas =~ "Pleasanton") { print " <div style=\"position: absolute; top: 155px; left:4px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Pleasanton Checked> Pleasanton</SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 155px; left:4px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Pleasanton> Pleasanton</SPAN></DIV>\n"; } if ($areas =~ "Walnut Creek") { print " <div style=\"position: absolute; top: 180px; left:4px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name='Walnut Creek' Checked> Walnut Creek</SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 180px; left:4px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name='Walnut Creek'> Walnut Creek</SPAN></DIV>\n"; } if ($areas =~ "Lafayette") { print " <div style=\"position: absolute; top: 30px; left:204px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Lafayette Checked> Lafayette</SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 30px; left:204px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Lafayette> Lafayette</SPAN></DIV>\n"; } if ($areas =~ "Livermore") { print " <div style=\"position: absolute; top: 55px; left:204px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Livermore Checked> Livermore</SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 55px; left:204px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Livermore> Livermore</SPAN></DIV>\n"; } if ($areas =~ "Tracy") { print " <div style=\"position: absolute; top: 80px; left:204px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Tracy Checked> Tracy</SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 80px; left:204px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Tracy> Tracy</SPAN></DIV>\n"; } if ($areas =~ "Concord") { print " <div style=\"position: absolute; top: 105px; left:204px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Concord Checked> Concord</SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 105px; left:204px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Concord> Concord</SPAN></DIV>\n"; } if ($areas =~ "Pleasant Hill") { print " <div style=\"position: absolute; top: 130px; left:204px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name='Pleasant Hill' Checked> Pleasant Hill</SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 130px; left:204px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name='Pleasant Hill'> Pleasant Hill</SPAN></DIV>\n"; } if ($areas =~ "Castro Valley") { print " <div style=\"position: absolute; top: 155px; left:204px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name='Castro Valley' Checked> Castro valley</SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 155px; left:204px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name='Castro Valley'> Castro valley</SPAN></DIV>\n"; } if ($areas =~ "Moraga") { print " <div style=\"position: absolute; top: 180px; left:204px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Moraga Checked> Moraga</SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 180px; left:204px; width: 150px; height: 25px;border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=checkbox Name=Moraga> Moraga</SPAN></DIV>\n"; } print " <div style=\"position: absolute; top: 260px; left:2px; width: 400px; height: 25px;border: 0px solid black; text-align: center; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 12pt; color: rgb(0,0,255);'>Enter the Communities you are interested in.</SPAN></DIV>\n"; print "</DIV>\n"; ### This is the property specific information print "<div style=\"position: absolute; top: 450px; left:0px; width: 400px; height: 300px; border: 1px solid black; text-align: right; padding: 0px;\">\n"; print " <div style=\"position: absolute; top: -1px; left:2px; width: 400px; height: 25px; z-index:101000; border: 0px solid black; text-align: center; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 14pt; color: rgb(0,0,0);'>PROPERTY INFORMATION</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 30px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>Desired Price</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 55px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>Min Price</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 80px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>Max Price</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 105px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>Desired Bedrooms</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 130px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>Min Bedrooms</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 155px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>Max Bedrooms</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 180px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>Desried SqFt</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 205px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>Foreclosure OK</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 230px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>Short Sale OK</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 255px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>Cash Purchase</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 30px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Text Name=dsprice Value='$dsprice'></SPAN></DIV>\n"; # print " <div style=\"position: absolute; top: 55px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Text Name=mnprice Value='$minprice'></SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 55px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>\n"; ###### Minimum Price print " <SELECT Name=minprice>\n"; $pcount2 = @prices; for ($x=0;$x<=$pcount2-1; $x++) { if ($minprice eq $prices[$x]) { print " <OPTION Value='$prices[$x]' SELECTED>$prices[$x]</OPTION>\n"; } else { print " <OPTION Value='$prices[$x]'>$prices[$x]</OPTION>\n"; } } print " </SELECT>\n"; print "</DIV>\n"; ###### Maximum Price print " <div style=\"position: absolute; top: 80px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\">\n"; print " <SELECT Name=maxprice>\n"; $pcount2 = @prices; for ($x=0;$x<=$pcount2-1; $x++) { if ($maxprice eq $prices[$x]) { print " <OPTION Value='$prices[$x]' SELECTED>$prices[$x]</OPTION>\n"; } else { print " <OPTION Value='$prices[$x]'>$prices[$x]</OPTION>\n"; } } print " </SELECT>\n"; print "</DIV>\n"; ###### Desired Bedrooms print " <div style=\"position: absolute; top: 105px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\">\n"; print " <SELECT Name=dsbeds>\n"; $pcount2 = @numbers; for ($x=0;$x<=$pcount2-1; $x++) { if ($dsbeds 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"; ###### Minimum Bedrooms print " <div style=\"position: absolute; top: 130px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\">\n"; print " <SELECT Name=minbeds>\n"; $pcount2 = @numbers; for ($x=0;$x<=$pcount2-1; $x++) { if ($minbeds 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"; ###### Maximum Bedrooms print " <div style=\"position: absolute; top: 155px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\">\n"; print " <SELECT Name=maxbeds>\n"; $pcount2 = @numbers; for ($x=0;$x<=$pcount2-1; $x++) { if ($maxbeds 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"; ###### Desired SqFt print " <div style=\"position: absolute; top: 180px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Text Name=sqft Value='$sqft' SIZE='30'></SPAN></DIV>\n"; if ($data[35] eq "on") { print " <div style=\"position: absolute; top: 205px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Checkbox Name=reo Checked></SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 205px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Checkbox Name=reo></SPAN></DIV>\n"; } if ($data[36] eq "on") { print " <div style=\"position: absolute; top: 230px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Checkbox Name=short Checked></SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 230px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Checkbox Name=short></SPAN></DIV>\n"; } if ($data[37] eq "on") { print " <div style=\"position: absolute; top: 255px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Checkbox Name=cash Checked></SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 255px; left:182px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Checkbox Name=cash></SPAN></DIV>\n"; } print "</DIV>\n"; ################END OF THE PROPERTY INFORMATION########## print "<div style=\"position: absolute; top: 450px; left:410px; width: 400px; height: 300px; border: 1px solid black; text-align: right; padding: 0px;\">\n"; print " <div style=\"position: absolute; top: -1px; left:2px; width: 400px; height: 25px; z-index:101000; border: 0px solid black; text-align: center; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 14pt; color: rgb(0,0,0);'>CLIENT PREFERENCES</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 30px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>Do you want e-mail updates?</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 55px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>How often do you want them?</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 80px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>What do you want to see?</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 105px; left:12px; width: 300px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>When searching on AR your preference is?</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 160px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>Prefered Method of Contact</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 185px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>Are you still active?</SPAN></DIV>\n"; print " <div style=\"position: absolute; top: 210px; left:12px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>Are you working with a Realtor?</SPAN></DIV>\n"; #### Do you want email updates if ($emailupdates eq "Yes") { print " <div style=\"position: absolute; top: 30px; left:220px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Radio Name=emailupdates Value='Yes' checked>Yes <INPUT Type=Radio Name=emailupdates Value='No'>No</SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 30px; left:220px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Radio Name=emailupdates Value='Yes'>Yes <INPUT Type=Radio Name=emailupdates Value='No' checked>No</SPAN></DIV>\n"; } print " <div style=\"position: absolute; top: 55px; left:220px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'>\n"; print " <SELECT Name=method1>\n"; $pcount2 = @updates; for ($x=0;$x<=$pcount2-1; $x++) { if ($method1 eq "$updates[$x]") { print " <OPTION Value='$updates[$x]' SELECTED>$updates[$x]</OPTION>\n"; } else { print " <OPTION Value='$updates[$x]'>$updates[$x]</OPTION>\n"; } } print " </SELECT>\n"; print "</DIV>\n"; print " <div style=\"position: absolute; top: 80px; left:220px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\">\n"; print " <SELECT Name=method2>\n"; $pcount2 = @seewhat; for ($x=0;$x<=$pcount2-1; $x++) { if ($method2 eq $seewhat[$x]) { print " <OPTION Value='$seewhat[$x]' SELECTED>$seewhat[$x]</OPTION>\n"; } else { print " <OPTION Value='$seewhat[$x]'>$seewhat[$x]</OPTION>\n"; } } print " </SELECT>\n"; print "</DIV>\n"; if (lc($srchtype) eq "list" ) { print " <div style=\"position: absolute; top: 130px; left:220px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Radio Name=srchtype Value='List' Checked=checked>List <INPUT Type=Radio Name=srchtype Value='Detail'>Detail <INPUT Type=Radio Name=srchtype Value='Map'>Map</SPAN></DIV>\n"; } if (lc($srchtype) eq "detail" ) { print " <div style=\"position: absolute; top: 130px; left:220px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Radio Name=srchtype Value='List'>List <INPUT Type=Radio Name=srchtype Value='Detail' Checked=checked>Detail <INPUT Type=Radio Name=srchtype Value='Map'>Map</SPAN></DIV>\n"; } if (lc($srchtype) eq "map" ) { print " <div style=\"position: absolute; top: 130px; left:220px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Radio Name=srchtype Value='List'>List <INPUT Type=Radio Name=srchtype Value='Detail'>Detail <INPUT Type=Radio Name=srchtype Value='Map' Checked=checked>Map</SPAN></DIV>\n"; } if (lc($srchtype) eq "" ) { print " <div style=\"position: absolute; top: 130px; left:220px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Radio Name=srchtype Value='List' Checked=checked>List <INPUT Type=Radio Name=srchtype Value='Detail'>Detail <INPUT Type=Radio Name=srchtype Value='Map'>Map</SPAN></DIV>\n"; } print " <div style=\"position: absolute; top: 160px; left:220px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\">\n"; print " <SELECT Name=contact>\n"; $pcount2 = @contact; for ($x=0;$x<=$pcount2-1; $x++) { if ($contact eq $contact[$x]) { print " <OPTION Value='$contact[$x]' SELECTED>$contact[$x]</OPTION>\n"; } else { print " <OPTION Value='$contact[$x]'>$contact[$x]</OPTION>\n"; } } print " </SELECT>\n"; print "</DIV>\n"; if ($active eq "Yes") { print " <div style=\"position: absolute; top: 185px; left:220px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Radio Name=active Value='Yes' Checked=checked>Yes <INPUT Type=Radio Name=active Value='No'>No</SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 185px; left:220px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Radio Name=active Value='Yes'>Yes <INPUT Type=Radio Name=active Value='No' Checked=checked>No</SPAN></DIV>\n"; } if ($realtor eq "Yes") { print " <div style=\"position: absolute; top: 210px; left:220px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Radio Name=realtor Value='Yes' Checked=checked>Yes <INPUT Type=Radio Name=realtor Value='No'>No</SPAN></DIV>\n"; } else { print " <div style=\"position: absolute; top: 210px; left:220px; width: 200px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT Type=Radio Name=realtor Value='Yes'>Yes <INPUT Type=Radio Name=realtor Value='No' Checked=checked>No</SPAN></DIV>\n"; } print " <div style=\"position: absolute; top: 255px; left:12px; width: 400px; height: 25px; z-index:101000; border: 0px solid black; text-align: left; padding: 0px;\"><SPAN style='font-family: Segoe UI; font-size: 10pt; color: rgb(0,0,0);'><INPUT TYPE='Submit'><A HREF='http://www.agentrobin.com/managelist.pl'><INPUT TYPE=BUTTON VALUE='Return to List'></A></SPAN></DIV>\n"; print "</Div>\n"; print "</DIV>\n"; print "</FORM>\n"; } sub insert_hor_menu() { print "<!-- QuickMenu Structure [Menu 0] --> <ul id=\"qm0\" class=\"qmmc\"> <li><a class=\"qmparent\" href=\"http://www.agentrobin.com/home.pl\"><SPAN style='font-family: Segoe UI; font-size: .9em;'>home</SPAN></a> <ul> <li><a href=\"http://www.agentrobin.com/home.pl\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>AGENT ROBIN HOME</a></li> <li><a class=\"qmparent\" href=\"http://www.AgentRobin.com/Home.pl?MF=10\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>SITE MAP</a></li> # <li><span class=\"qmdivider qmdividerx\" ></span></li> <li><a class=\"qmparent\" href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>CONTACT ME</a> <ul> <li><a href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Send me an E-Mail</a></li> <li><a href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Call me at (925) 212-2446</a></li> <li><a href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Fax: (925) XXX-XXXX</a></li> <li><a href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Ask Me a Question</a></li> <li><a href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Request More Information</a></li> </ul></li> <li><span class=\"qmdivider qmdividerx\" ></span></li> <li><a class=\"qmparent\" href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>ABOUT ME</a> <ul> <li><a href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Biography</a></li> <li><a href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Client Testimonials</a></li> <li><a href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>On LinkedIn</a></li> <li><a href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>On Trulia</a></li> <li><a href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>On WordPress</a></li> </ul></li> <li><a href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>MY PORTFOLIO</a></li> <li><a href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>CAREERS @ Keller Williams</a></li> </ul></li> <li><a class=\"qmparent\" href=\"http://www.AgentRobin.com/PSearch.pl\"><SPAN style='font-family: Segoe UI; font-size: .9em;'>properties</SPAN></a> <ul> <li><a href=\"http://www.AgentRobin.com/PSearch.pl\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>PROPERTY SEARCH</a></li> <li><a href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>COMMUNITIES</a></li> <li><a href=\"http://www.agentrobin.com/investment.pl\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>INVESTMENT PROPERTIES</a></li> <li><a class=\"qmparent\" href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>QUICK SEARCH</a> <ul> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>New Listings</a></li> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Foreclosures</a></li> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Short Sales</a></li> </ul></li> </ul></li> <li><a class=\"qmparent\" href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .9em;'>services</SPAN></a> <ul> <li><a class=\"qmparent\" href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>FOR BUYERS</a> <ul> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Exclusive Buyer Agent</a></li> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Home Buyer Process</a></li> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Market Reports</a></li> </ul></li> <li><a class=\"qmparent\" href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>FOR SELLERS</SPAN></a> <ul> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Listing Your Home</a></li> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>What's my home worth</a></li> </ul></li> <li><a class=\"qmparent\" href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>FOR INVESTORS</SPAN></a> <ul> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Investment Property Search</a></li> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Exclusive Investment Report</a></li> </ul></li> <li><a href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>QUICK QUESTIONAIRE</a></li> </ul></li> <li><a class=\"qmparent\" href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .9em;'>videos</SPAN></a> <ul> <li><a href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>ALL VIDEOS</a></li> <li><a class=\"qmparent\" href=\"http://www.AgentRobin.com/Home.pl?Vid=1000000\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>BUYER</a> <ul> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Home Buying Process</a></li> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Loan Pre-approval</a></li> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Inspections</a></li> </ul></li> <li><a class=\"qmparent\" href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>SELLER</a> <ul> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Listing Your Home</a></li> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Agency Agreement</a></li> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Preparing to Sell Your Home</a></li> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Contingencies</a></li> </ul></li> <li><a class=\"qmparent\" href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>FINANCIAL</a> <ul> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Loan Process</a></li> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Short Sale</a></li> </ul></li> <li><a href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>GENERAL</a></li> <li><a href=\"javascript:void(0)\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>AGENT ROBIN's CORNER</a></li> </ul></li> <li><a class=\"qmparent\" href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .9em;'>tools</SPAN></a> <ul> <li><a href=\"javascript:void(0);\" title=\"Home Affordability Calculator\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Calculator</a></li> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Amortization Schedule</a></li> <li><a class=\"qmparent\" href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Links</a> <ul> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>School District Information</a></li> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>City Live</a></li> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Real Estate Reports</a></li> </ul></li> <li><span class=\"qmdivider qmdividerx\" ></span></li> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Professional Referal Services</a></li> </ul></li> <li><a class=\"qmparent\" href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .9em;'>myAgent</SPAN></a> <ul> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>Login</a></li> <li><a href=\"javascript:void(0);\"><SPAN style='font-family: Segoe UI; font-size: .7em;'>What's This?</a></li> </ul></li> <li class=\"qmclear\"> </li></ul> <!-- Create Menu Settings: (Menu ID, Is Vertical, Show Timer, Hide Timer, On Click (options: 'all' * 'all-always-open' * 'main' * 'lev2'), Right to Left, Horizontal Subs, Flush Left, Flush Top) --> <script type=\"text/javascript\">qm_create(0,false,0,500,false,false,false,false,false);</script><!--[END-QM0]--> "; } sub set_cookie() { ##### Set the cookie $CCount = @_[0]; $CCount++; $cookie1 = new CGI::Cookie(-name => 'User-Session-ID', -value => 'USER=dobrooks@microsoft.com;Pref=5', -expires => '+3M', -domain => '.agentrobin.com', -path => '/', -secure => 0 ); print "Set-Cookie: $cookie1;\n"; $cookie1 = new CGI::Cookie(-name => 'Page-Access', -value => $CCount, -expires => '+3M', -domain => '.agentrobin.com', -path => '/', -secure => 0 ); print "Set-Cookie: $cookie1;\n"; } sub set_search() { $cookie1 = new CGI::Cookie(-name => 'Last-Search', -value => $ENV{'QUERY_STRING'}, -expires => '+3M', -domain => '.agentrobin.com', -path => '/', -secure => 0 ); print "Set-Cookie: $cookie1;\n"; } sub authorize_user() { $eid = lc($User_ID); $SQL ="SELECT * FROM FContacts WHERE email='$eid'"; # 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 $OPTable in First Iteration"; exit(0); } $db->FetchRow(); @data=$db->Data(); if ($data[0] eq "") { $auth_status = 'no'; } else { $auth_status = 'yes'; } $db->Close(); }
© 2017 -
ZeroByte.ID
.