����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: mainbak.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; @Featured=("40499378","40496861","40497213","40501953", "40503189", "40481880"); @Cities=("Danville","San Ramon", "Blackhawk", "Alamo", "Dublin", "Pleasanton", "Walnut Creek", "Lafayette"); $CCount = @Cities; $SSTR = "<SELECT Name=City>"; for ($a = 0; $a <= $CCount-1; $a++) { $SSTR = $SSTR . "<OPTION Value=$Cities[$a]>$Cities[$a]</OPTION>"; } $SSTR= $SSTR . "</SELECT>"; $num1 = @Featured; $BREAK = ""; $Baseweb ="http://agentrobin.com/"; $MapVal1 = "1"; $fprandom = int(rand($num1)); $MAPSQL=""; $FPID=$Featured[$fprandom]; $DSN="YFDH"; $RHost = $ENV{$REMOTE_HOST}; $RAddr = $ENV{$REMOTE_ADDR}; $Host = $ENV{$HTTP_HOST}; @values = split(/:/, $ENV{QUERY_STRING}); $DefaultMetaKeywords ="Real Estate Agent, Agentrobin, Homes, Houses, Property, Land, Danville, Blackhawk, Alamo, San Ramon, Dublin, Pleasnton, Walnut Creek,California, CA"; $DefaultMetaDescription = "San Ramon Valley (Tri-Valley) Real Estate Sales and Purchase. Comprehensive property search to find your dream home."; $CityInfo = $values[1]; $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; #print "$values[0] - $values[1]\n"; if ($values[0] eq "Schools") { $pageno="schools"; $sub1="schools"; $SCity=$values[1]; } @FormValues = split(/&/, $ENV{QUERY_STRING}); @Function = split(/=/,$FormValues[0]); if ($Function[0] eq "HLFunction" && $Function[1] eq "processsell" ) { $pageno = "processsell"; $sub1 = "processsell"; } if ($Function[0] eq "HLFunction" && $Function[1] eq "processfind" ) { $pageno = "processfind"; $sub1 = "processfind"; } if ($Function[0] eq "HLFunction" && $Function[1] eq "PropertySearch" ) { $sub1 = "Property"; @HLS01 = split(/=/,$FormValues[1]); $HLS01a = $HLS01[1]; $HLS01a =~ tr/+/ /; $HLS01a =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; @HLS02 = split(/=/,$FormValues[2]); $HLS02a = $HLS02[1]; if ($HLS02a eq "Any") { $HLS02a=1; } @HLS03 = split(/=/,$FormValues[3]); $HLS03a = $HLS03[1]; if ($HLS03a eq "Any") { $HLS03a=7; } if ($HLS03a<$HLS02a) { $HLS03a=$HLS02a; } @HLS04 = split(/=/,$FormValues[4]); $HLS04a = $HLS04[1]; if ($HLS04a eq "Any") { $HLS04a=1; } @HLS05 = split(/=/,$FormValues[5]); $HLS05a = $HLS05[1]; if ($HLS05a eq "Any") { $HLS05a=7; } if ($HLS05a<$HLS02a) { $HLS05a=$HLS04a; } @HLS06 = split(/=/,$FormValues[6]); $HLS06a = $HLS06[1]; @HLS07 = split(/=/,$FormValues[7]); $HLS07a = $HLS07[1]; @DPhotosB = split(/=/,$FormValues[8]); $DPhotos = $DPhotosB[1]; @DForeB = split(/=/,$FormValues[9]); $DFore = $DForeB[1]; @DSSB = split(/=/,$FormValues[10]); $DSS = $DSSB[1]; $VVal = int($HLS06a)+50000; if ($HLS07a<$HLS06a) { $HLS07a=$VVal; } if ($DFore eq "Y" || $DSS eq "Y") { $PropSQL= "SELECT * from PropMLS WHERE Area='$HLS01a' AND (Status='ACTV' OR Status='NEW' OR Status='BOMK' OR Status='PCH') AND Bed>='$HLS02a' AND Bed<='$HLS03a' AND Bath>='$HLS04a' AND Bath<='$HLS05a' AND Price>='$HLS06a' AND Price<='$HLS07a' AND (Special1='REO' OR Special1='Potential Short Sale') ORDER BY Price ASC"; } else { $PropSQL= "SELECT * from PropMLS WHERE Area='$HLS01a' AND (Status='ACTV' OR Status='NEW' OR Status='BOMK' OR Status='PCH') AND Bed>='$HLS02a' AND Bed<='$HLS03a' AND Bath>='$HLS04a' AND Bath<='$HLS05a' AND Price>='$HLS06a' AND Price<='$HLS07a' ORDER BY Price ASC"; } $sub1 = "PropSearch"; $didit="TRUE"; } if ($Function[0] eq "HLFunction" && $Function[1] eq "Buyer1" ) { $sub1 = "Buyer1"; $pageno = "Buyer1"; } if ($Function[0] eq "HLFunction" && $Function[1] eq "Seller2" ) { $sub1 = "Seller2"; $pageno = "Seller2"; } if ($Function[0] eq "HLFunction" && $Function[1] eq "propinfo" ) { $sub1 = "Seller2"; $pageno = "Seller2"; } if ($Function[0] eq "HLFunction" && $Function[1] eq "VP" ) { @PropID = split(/=/,$FormValues[1]); $MLSID = $PropID[1]; $sub1 = "VP1"; $pageno = "VP1"; } ### This is the build for MapView if ($Function[0] eq "HLFunction" && $Function[1] eq "MapView" ) { $sub1 = "MapView"; $bedstring = ""; $cformvals = @FormValues; $area1 = ""; $status="(Status='ACTV' OR Status='NEW' OR Status='BOMK' OR Status='PCH' OR Status='AC' OR Status='PSB')"; $bed2 = "Bed='0'"; $bed3 = "Bed='0'"; $bed4 = "Bed='0'"; $bed5 = "Bed='0'"; $minprice=100000; $maxprice=5000000; for ($s = 1;$s <= $cformvals; $s++) { @temp1 = split(/=/,$FormValues[$s]); if ($temp1[0] eq "TWOBED") { $bed2 = "Bed='2'"; } if ($temp1[0] eq "THREEBED") { $bed3 = "Bed='3'"; } if ($temp1[0] eq "FOURBED") { $bed4 = "Bed='4'"; } if ($temp1[0] eq "FIVEBED") { $bed5 = "Bed>='5'"; } if ($temp1[0] eq "MinPrice") { if ($temp1[1] eq "Any") { $minprice="99000"; } else { $minprice=$temp1[1]; } } if ($temp1[0] eq "MaxPrice") { if ($temp1[1] eq "Any") { $maxprice=5000000; } else { $maxprice=$temp1[1]; if ($maxprice <= $minprice) {$maxprice = $5000000; } } } if ($temp1[0] eq "City") { if ($temp1[1] eq "Any") { $area=""; $arean = "Any"; } else { $temp1[1] =~ tr/+/ /; $area="Area='" . $temp1[1] . "'"; $arean = $temp1[1]; } } } $bedstring = "($bed2 OR $bed3 OR $bed4 OR $bed5)"; $pricestring = "(Price>=$minprice AND Price<=$maxprice)"; if ($area eq "" ) { $MAPSQL= "SELECT * from PropMLS WHERE $status AND $bedstring AND $pricestring"; } else { $MAPSQL= "SELECT * from PropMLS WHERE $area AND $status AND $bedstring AND $pricestring"; } $pageno="MapView"; $BREAK = "Went through the break routine"; # GMAP_DIV(); $MapVal1 = "2"; } $DSN="YFDH"; $OPTable="Cities"; @Cities = ("Danville", "San Ramon", "Alamo", "Blackhawk", "Dublin", "Pleasanton", "Lafayette", "Walnut Creek", "Livermore"); if ($sub1 eq "Property") { $pageid="1"; } if ($sub1 eq "Community") { $pageid="2"; } if ($sub1 eq "Tools") { $pageid="3"; } $EnableMV = "n"; $Theme=1; $ThemeTable = "Themes"; $BIImg="Elegant1.png"; if ($sub1 eq "") { $pageno="Main"; } else { $pageno=$sub1; } initTheme(); initAgentContact(); initPerson(); getnews(); if ($sub1 eq "MapView") { printmapheader(); } else { printheader();} printstructure(); printending(); exit(0); sub printstructure { ### Setup Body and Create DIV wrapper element if ($sub1 eq "MapView") {} else { print "<body style=\"background:#F3E2B4 url('/Images/parchback15.png') repeat-y center;\">\n"; } # print "<div id=\"wrapper\"><IMG Width=100% HEIGHT=100% SRC=\"/Images/$BGPic\">\n"; print "<div id=\"wrapper\">\n"; # <IMG Width=100% HEIGHT=100% SRC=\"/Images/GoldBack15.png\"> ### Place the Header Image Div and the BODY Background image Overlay print " <div id=\"headerback\" style=\"background-color: $HeadBG\"><IMG SRC=\"/Images/HeadBack.png\" HEIGHT=100% WIDTH=100% ALT=\"Danville Real Estate Open House Robin Brooks\"></div>\n"; print " <div id=\"header\" style=\"background-color: $HeadBG\"><IMG SRC=\"/Images/$TopHeadPic\" HEIGHT=80px ALT=\"Danville Blackhawk Dublin San Ramon ALamao Pleasanton Walnut Creek Area and the Tri-valley CA California Number One SOurce for Buyers and Sellers of Real Estate\"></div>\n"; ## Construction # print " <div id=\"construction\" style=\"background-color: $HeadBG\"><IMG SRC=\"/Images/construction.png\" HEIGHT=100% WIDTH=100%></div>\n"; ## End special overlays print " <div id=\"hor_menu\">\n"; print " <SPAN class=\"topmenu\" onmouseover=\"document.TM1.src='/Images/TM01a.png'\" onmouseout =\"document.TM1.src='/Images/TM01.png'\"><A HREF=\"http://www.agentrobin.com/Default.htm\"><IMG NAME=\"TM1\" height=100% Width=100PX SRC=\"/Images/TM01.png\" ALT=\"Robin Brooks AgentRobin Yourfamilysdreamhome keller williams danville Homepage\"></A></SPAN>\n"; print " <SPAN class=\"topmenu\" onmouseover=\"document.TM2.src='/Images/TM02a.png'\" onmouseout =\"document.TM2.src='/Images/TM02.png'\"><A HREF=\"http://www.agentrobin.com/main.pl?Seller\"><IMG NAME=\"TM2\" height=100% Width=100PX SRC=\"/Images/TM02.png\" ALT=\"Danville Blackhawk Dublin San Ramon ALamao Pleasanton Walnut Creek Area and the Tri-valley CA California Property Search mapview map google map\"></A></SPAN>\n"; print " <SPAN class=\"topmenu\" onmouseover=\"document.TM3.src='/Images/TM03a.png'\" onmouseout =\"document.TM3.src='/Images/TM03.png'\"><A HREF=\"http://www.agentrobin.com/main.pl?Buyer\"><IMG NAME=\"TM3\" height=100% Width=100PX SRC=\"/Images/TM03.png\" ALT=\"Community Search and Information for Danville Blackhawk Dublin San Ramon ALamao Pleasanton Walnut Creek Area and the Tri-valley CA California \"></A></SPAN>\n"; print " <SPAN class=\"topmenu\" onmouseover=\"document.TM4.src='/Images/TM04a.png'\" onmouseout =\"document.TM4.src='/Images/TM04.png'\"><A HREF=\"http://www.agentrobin.com/main.pl?SS\"><IMG NAME=\"TM4\" height=100% Width=130PX SRC=\"/Images/TM04.png\" ALT=\"Real Estate Tools Calculators Mortgage Affordability Amortization\"></A></SPAN>\n"; print " <SPAN class=\"topmenu\" onmouseover=\"document.TM5.src='/Images/TM05a.png'\" onmouseout =\"document.TM5.src='/Images/TM05.png'\"><A HREF=\"http://www.agentrobin.com/main.pl?Blog\"><IMG NAME=\"TM5\" height=100% Width=100PX SRC=\"/Images/TM05.png\" ALT=\"Real Estate News and Blogs\"></A></SPAN>\n"; print " <SPAN class=\"topmenu\" onmouseover=\"document.TM6.src='/Images/TM06a.png'\" onmouseout =\"document.TM6.src='/Images/TM06.png'\"><A HREF=\"http://www.agentrobin.com/About.htm\"><IMG NAME=\"TM6\" height=100% Width=100PX SRC=\"/Images/TM06.png\" ALT=\"Information on Real Estate Agent Robin Brooks Keller Williams\"></A></SPAN>\n"; print " </div>\n"; ######################################################## Create the Left SideBar Menu Structure ### Create the Left Side Container print " <div id=\"leftcol\">\n"; ### Create the Left Side Vertical Menu Structure if ( $Direct eq "vert") { print " <SPAN onmouseover=\"document.menu1.src='/Images/MN01a.png'\" onmouseout =\"document.menu1.src='/Images/MN01.png'\"><A HREF=\"http://www.agentrobin.com/Default.htm\"><IMG BORDER=0 NAME=\"menu1\" SRC=\"/Images/MN01.png\" ALT=\"Robin Brooks AgentRobin Yourfamilysdreamhome keller williams danville Homepage\"></A></SPAN>\n"; print " <SPAN onmouseover=\"document.menu2.src='/Images/MN02a.png'\" onmouseout =\"document.menu2.src='/Images/MN02.png'\"><A HREF=\"http://www.agentrobin.com/main.pl?Property\"><IMG NAME=\"menu2\" BORDER=0 SRC=\"/Images/MN02.png\" ALT=\"Danville Blackhawk Dublin San Ramon ALamao Pleasanton Walnut Creek Area and the Tri-valley CA California Number One SOurce for Buyers and Sellers of Real Estate Homepage Foreclosures 680 580 short sales resources selling and buying real estate robin brooks agentrobin property communities neighborhood\"></A></SPAN>\n"; print " <SPAN onmouseover=\"document.menu3.src='/Images/MN03a.png'\" onmouseout =\"document.menu3.src='/Images/MN03.png'\"><A HREF=\"http://www.agentrobin.com/Community.htm\"><IMG BORDER=0 NAME=\"menu3\" SRC=\"/Images/MN03.png\" ALT=\"Community Search and Information for Danville Blackhawk Dublin San Ramon ALamo Pleasanton Walnut Creek Area and the Tri-valley CA California \"></A></SPAN>\n"; print " <SPAN onmouseover=\"document.menu4.src='/Images/MN04a.png'\" onmouseout =\"document.menu4.src='/Images/MN04.png'\"><A HREF=\"http://www.agentrobin.com/main.pl?Tools\"><IMG NAME=\"menu4\" BORDER=0 SRC=\"/Images/MN04.png\" ALT=\"Real Estate Tools Calculators Mortgage Affordability Amortization\"></A></SPAN>\n"; print " <SPAN onmouseover=\"document.menu5.src='/Images/MN05a.png'\" onmouseout =\"document.menu5.src='/Images/MN05.png'\"><A HREF=\"http://www.agentrobin.com/main.pl?Blog\"><IMG NAME=\"menu5\" BORDER=0 SRC=\"/Images/MN05.png\" ALT=\"Real Estate News and Blogs\"></A></SPAN>\n"; print " <SPAN onmouseover=\"document.menu6.src='/Images/MN06a.png'\" onmouseout =\"document.menu6.src='/Images/MN06.png'\"><A HREF=\"http://www.agentrobin.com/About.htm\"><IMG NAME=\"menu6\" BORDER=0 SRC=\"/Images/MN06.png\" ALT=\"Information on Real Estate Agent Robin Brooks Keller Williams\"></A></SPAN>\n"; } ### Create the Left Side Agent and Broker COntact Overlay print " <SPAN style=\"color: white; text-align:left;\"><IMG SRC=\"/Images/$LSBroker\" ALT=\"Keller Williams Danville Robin Brooks Agentrobin yourfamilysdreamhome\"></SPAN>\n"; print " <SPAN style=\"color: white; text-align:left;\"><IMG SRC=\"/Images/$LSAgent\" ALT=\"Keller Williams Danville Robin Brooks Agentrobin yourfamilysdreamhome\"></SPAN>\n"; print " <SPAN style=\"color: white; text-align:left;\"><IMG SRC=\"/Images/$LSBrokerAdd\" ALT=\"Keller Williams Danville Robin Brooks Agentrobin yourfamilysdreamhome\"></SPAN>\n"; print " <SPAN style=\"color: white; text-align:left;\"><IMG SRC=\"/Images/$LSAgentPhone\" ALT=\"Keller Williams Danville Robin Brooks Agentrobin yourfamilysdreamhome\"></SPAN><br><br>\n"; ### Create the social networking links print "<SPAN style=\"color: white; text-align:center;\">\n"; if ($twit eq "y") { print " <A HREF=\"$twiturl\"><IMG SRC=\"/Images/$twitpic\"></A>\n"; } if ($face eq "y") { print " <A HREF=\"$faceurl\"><IMG SRC=\"/Images/$facepic\"></A>\n"; } if ($link eq "y") { print " <A HREF=\"$linkurl\"><IMG SRC=\"/Images/$linkpic\"></A>\n"; } if ($tube eq "y") { print " <A HREF=\"$tubeurl\"><IMG SRC=\"/Images/$tubepic\"></A>\n"; } print "</SPAN>\n"; print " </div>\n"; #################### End Side Menu Options ############################################## ### Place the Map Search Navigation Button (Based on Theme Visibility and Style) if ($EnableMV eq "y") { print " <div id=\"MVLarge\"><A HREF=\"http://agentrobin.com/Main.pl?MapView\"><IMG SRC=\"/Images/MVLarge.png\" ALT=\"MapView Search of San Ramon Valley Properties\"></A></div>\n"; } ###### Disclaimer Text print " <div style=\"position: absolute;top: 730px;left: 10px;width: 164px;height:30px;z-index: 30000; border: 0px red solid;\"><SPAN style=\"font-family: Arial; font-size: .6em; color: #D1D4DB;\">All information on this site deemed reliable but not guaranteed.</SPAN></DIV>\n"; print "\n"; print "\n"; ### Call out SUB to create the Page specific information if ($pageno eq "Main") { HitCounter(1000); mainpagespecific(); } if ($pageno eq "signup") { signupform(); } if ($pageno eq "Property") { HitCounter(1101); $CITYSEARCH=$sub2; $NEIGHBORSEARCH=uc(substr($sub3, 0 ,7)); if ($CITYSEARCH eq "" || $NEIGHBORSEARCH eq "") { propertypagespecific(); } else { HitCounter(11); propertypagespecificneighbor(); } } if ($pageno eq "PropSearch") { HitCounter(1100); # putMarketline($HLS01a); PSearch_WIDGET("252px","184px","260px","310px","6353", "0px black solid", "$HLS01a", "$HLS02a", "$HLS03a", "$HLS04a", "$HLS05a", "$HLS06a", "$HLS07a"); # PSearch_WIDGET("252px","186px","260px","310px","6353", "0px black solid", "$HLS01a", "$HLS02a", "$HLS03a", "$HLS04a", "$HLS05a", "$HLS06a", "$HLS07a"); featuredprop("252px","452px","$FPID"); buildALLProperty($PropSQL,"1", "590"); marketstatus($HLS01a); } if ($pageno eq "Community") { HitCounter(1004); communitypagespecific(); } if ($pageno eq "Neighborhood") { HitCounter(1006); $Town = $sub2; $OPTable="Neighborhoods"; neighborhoodpagespecific(); } if ($pageno eq "Buyer") { HitCounter(1002); buyermainpage(); } if ($pageno eq "Seller") { HitCounter(1003); sellerbanner(); content_gen("Seller"); } if ($pageno eq "Sellerwhy") { HitCounter(1007); sellerbanner(); iFRMCOL3("http://agentrobin.com/docs/tenpoints.htm",269,184,800,830,"#C89027","#ECDCCD", 1); } if ($pageno eq "schools") { print "HERE HERE\n"; HitCounter(52); content_school($SCity); } if ($pageno eq "MapView") { HitCounter(1105); GMAP_DIV(); } if ($pageno eq "Buyer1") { HitCounter(1002); content_gen("Buyer"); } if ($pageno eq "Finance") { HitCounter(31); content_gen("Mortgage"); } if ($pageno eq "Buyer3") { HitCounter(9); print "GOING THRU\n"; $burl = "$Baseweb" . "docs/HousingStimulus.htm"; iFRM($burl); } if ($pageno eq "Buyer31") { HitCounter(9); print "GOING THRU\n"; $burl = "$Baseweb" . "docs/HBTips31.htm"; iFRM($burl); } if ($pageno eq "Tools" || $pageno eq "Tools>Calculate") { HitCounter(1005); print "GOING THRU\n"; $burl = "$Baseweb" . "calcs.pl?"; iFRMTools($burl); } if ($pageno eq "MSExample") { HitCounter(104); $burl = "$Baseweb" . "Images/msnap2.png"; iFRM($burl); } if ($pageno eq "Seller2") { HitCounter(9); print "GOING THRU\n"; $burl = "http://realestateabc.com/homeselling"; iFRM($burl); } if (substr($pageno,0,14) eq "CommunityStats") { HitCounter(1008); $City= $CityInfo; $burl = "http://www.rdesk.com/communityinfo/CommunityReports.aspx?allowprint=1&showreportheader=1&showtoolbar=1&appname=Paragon-MAXEBRDI&LoadedInRdesk=0&AllowSave=0&allowcompare=1&allowchangelocation=1&ReportName=HomeValues2&DisableCrimeStats=1&sid=3bce6762e9294a51ac740a31b4e705aa&city=" . $City ."&statecode=CA"; iFRMcomm($burl); } if ($pageno eq "Blog") { HitCounter(1200); print "GOING THRU\n"; $burl = "http://agentrobin.blogspot.com"; iFRM($burl); } if ($pageno eq "SS") { HitCounter(1009); print "GOING THRU\n"; $burl = "http://agentrobin.com/docs/SS/SS1.htm"; iFRMSS($burl); } if ($pageno eq "VP1") { HitCounter(1110); $burl = "http://agentrobin.com/pinfo.pl?$MLSID"; iFRM($burl); } if ($pageno eq "whyme") { HitCounter(1007); $burl = "http://agentrobin.com/docs/tenpoints.htm"; iFRM($burl); } if ($pageno eq "benefits") { HitCounter(1010); $burl = "http://agentrobin.com/docs/benefits.htm"; iFRM($burl); } if ($pageno eq "findhome") { HitCounter(1300); findhome(165,184,530,700); } if ($pageno eq "homevalue") { HitCounter(1301); homevalue(165,184,530,700); leftbanner1(165,730,270,700); } if ($pageno eq "homevalue1") { HitCounter(1301); sellerbanner(); homevalue(269,184,530,700); leftbanner1(269,730,270,700); } if ($pageno eq "processsell") { HitCounter(1310); processsell(165,384,330,150); } if ($pageno eq "processfind") { HitCounter(1311); processfind(165,384,330,150); } if ($pageno eq "about") { HitCounter(1001); aboutme(); } print "</div>\n"; } ############################################################################## ## MAIN PAge SUBROUTINES - Used the generate the Main Page Options ## ############################################################################## sub mainpagespecific { ### This subroutine sets up the visual elements for the main page ### First Overlay the background picture and base DIV structure # print " <div id=\"bimage\"><IMG NAME=\"pic1\" WIDTH=100% HEIGHT=100% SRC=\"/Images/$secimage\">\n"; print " <div id=\"bimage\"></div>\n"; ### Build the right side of the display print " <div NAME=\"DIV to hold all of the Main Page Elements\" style=\"position: absolute;top: 136px;left: 185px;width: 820px;height:586px;z-index: 395; border: 0px black solid;\">\n"; ########## The is the Market Status Report Box of the Right Side print " <div id=\"main1\"><A HREF=\"http://www.agentrobin.com/main.pl?homevalue\">\n"; ## <IMG NAME=\"main1img\" style=\"opacity: 1;filter:alpha(opacity=100)\" WIDTH=100% HEIGHT=100% SRC=\"/Images/marketreportbig.png\" Alt=\"Free Local Real Estate Market Analysis and Snapshot.\"></A>\n"; print " <DIV style=\"position: absolute;top: 5px;left: 5px;width: 255px;height:28px; border: 0px black solid; text-align: center;\"><SPAN style=\"font-family: arial; font-size: 1.1em;\">MARKET STATUS REPORTS</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 33px;left: 5px;width: 255px;height:15px; border: 0px black solid; text-align: center;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\">What's Your Home Worth!</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 40px;left: 5px;width: 255px;height:s5px; border: 0px black solid; text-align: center;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\">______________________________</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 70px;left: 78px;width: 182px;height:70px; border: 0px black solid; text-align: center;\"><SPAN style=\"font-family: helvetica; font-size: .7em;\">When your ready to sell get the \"real\" value of your house by using these comprehensive market analysis reports.</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 70px;left: 5px;width: 70px;height:70px; border: 1px black solid; text-align: center;\"><IMG SRC=\"/Images/graph.jpg\" WIDTH=100% HEIGHT=100% ALT=\"Marker Analysis Graph\"></DIV>\n"; print " </A></div>\n"; ########## The is the Search All Tri-Valley Properties print " <div id=\"main2\"><A HREF=\"http://www.agentrobin.com/main.pl?Property\">\n"; print " <DIV style=\"position: absolute;top: 5px;left: 95px;width: 150px;height:70px; border: 0px black solid; text-align: center;\"><SPAN style=\"font-family: arial; font-size: 1.1em;\">Search ALL Tri-Valley Real Estate</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 5px;left: 5px;width: 70px;height:70px; border: 1px black solid; text-align: center;\"><IMG SRC=\"/Images/searchicon.png\" WIDTH=100% HEIGHT=100% ALT=\"Marker Analysis Graph\"></DIV>\n"; print " </A></div>\n"; ### BUild the Left Side of the display news and blogs DIV. We use a base DIV to hold the news updates print " <div id=\"main4\">\n"; intro(0,0,530,390); ########## The is the Link for teh customize house for sale report print " <div id=\"main5img\"><A HREF=\"/Main.pl?findhome\">\n"; print " <DIV style=\"position: absolute;top: 5px;left: 90px;width: 170px;height:20px; border: 0px black solid; text-align: center;\"><SPAN style=\"font-family: arial; font-size: 1.1em; text-decoration: bolditalic;\">ON THE GO!!</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 28px;left: 85px;width: 180px;height:15px; border: 0px black solid; text-align: center;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\">Let the Search Come to You</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 55px;left: 85px;width: 170px;height:15px; border: 0px black solid; text-align: center;\"><SPAN style=\"font-family: helvetica; font-size: .6em;\">Receive Customized Reports matching your search needs directly to your inbox! Sign Up Now.</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 15px;left: 5px;width: 70px;height:70px; border: 1px black solid; text-align: center;\"><IMG SRC=\"/Images/news.png\" WIDTH=100% HEIGHT=100% ALT=\"Comparative Market Analysis \"></DIV>\n"; print " </A></div>\n"; ########## This is teh Open House Banner print " <div style=\"position: absolute; top: 380px; left: 545px; Width: 269px; Height: 70px; ; border: 2px solid #C09E4E; background: #D9C8AA;\"><a href=\"http://www.homesopentoday.com/profile/realtor/159516392BE\">\n"; print " <DIV style=\"position: absolute;top: 5px;left: 75px;width: 190px;height:20px; border: 0px black solid; text-align: center;\"><SPAN style=\"font-family: arial; font-size: .9em;\"><B>Looking for those OPEN houses!</B></SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 2px;left: 5px;width: 70px;height:65px; border: 0px black solid; text-align: center;\"><IMG SRC=\"/Images/openhouse.png\" WIDTH=100% HEIGHT=100% ALT=\"Tri-Valley List of Open Houses \"></DIV>\n"; print " </A></div>\n"; ### END THE DIV SECTION print " </div>\n"; BuildQSelectForm("6px","400px","400px","40px","439","0px black solid", "#F3E2B4"); GOOGLEV("530px","545px","250px","75px","6001","0px black solid"); print " </DIV>\n"; } sub aboutme() { ### This subroutine sets up the visual elements for the about and ontact page # print " <div id=\"bimage\"></div>\n"; ### Build the right side of the display print " <div style=\"position: absolute;top: 136px;left: 185px;width: 820px;height:586px;z-index: 395; border: 0px black solid;\">\n"; ### BUild the Left Side to hold aboutme text print " <div style=\"position: absolute;top: 0px;left: 5px;width: 535px;height:800px; border: 1px black solid; text-align: center;\">\n"; intro1(0,0,530,390); ### END THE DIV SECTION print " </div>\n"; createrightbanner1(); BuildQSelectForm("6px","400px","400px","40px","439","0px black solid", "#F3E2B4"); # GOOGLEV("530px","545px","250px","75px","6001","0px black solid"); print " </DIV>\n"; } sub createrightbanner1() { ########## This is the Ready to Sell Your Home Box print "<FORM Name=Listwith Action=\"http://agentrobin.com/\" Method=POST\n"; print " <div style=\"position: absolute;top: 35px;left: 548px;width: 275px;height:230px; border: 1px black solid; text-align: center; background: #D1D4DB;\">\n"; print " <DIV style=\"position: absolute;top: 0px;left: 0px;width: 275px;height:28px; border: 0px black solid; text-align: center; background: #004276;\"><SPAN style=\"font-family: arial; font-size: .9em; color: #FFFFFF\">Ready To Sell Your House</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 33px;left: 5px;width: 255px;height:15px; border: 0px black solid; text-align: center;\"><SPAN style=\"font-family: helvetica; font-size: 1em;\">Call Me at 925-212-2446</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 56px;left: -1px;width: 275px;height:22px; border: 1px black solid; text-align: center; background: #A6ACBA;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\">Start with a Analysis of your homes value !! </SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 85px;left: 5px;width: 70px;height:15px; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\">Name</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 110px;left: 5px;width: 70px;height:15px; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\">E-Mail </SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 135px;left: 5px;width: 70px;height:15px; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\">Address</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 160px;left: 5px;width: 70px;height:15px; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\">City</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 83px;left: 85px;width: 180px;height:15px; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\"><INPUT Type=TEXT Name=CName Size=25></SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 108px;left: 85px;width: 180px;height:15px; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\"><INPUT Type=TEXT Name=EMail Size=25></SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 133px;left: 85px;width: 180px;height:15px; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\"><INPUT Type=TEXT Name=Address Size=25></SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 158px;left: 85px;width: 180px;height:15px; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\">$SSTR</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 193px;left: 0px;width: 275px;height:28px; border: 0px black solid; text-align: center; \"><SPAN style=\"font-family: arial; font-size: .9em; color: #FFFFFF\"><INPUT TYPE=SUBMIT VALUE=SUBMIT></SPAN></DIV>\n"; print " </div>\n"; print "</FORM>\n"; ########## This is the Ready to Sell Your Home Box print " <div style=\"position: absolute;top: 280px;left: 548px;width: 275px;height:150px; border: 1px black solid; text-align: center; background: #D1D4DB;\">\n"; print " <DIV style=\"position: absolute;top: 0px;left: 0px;width: 275px;height:28px; border: 0px black solid; text-align: center; background: #004276;\"><SPAN style=\"font-family: arial; font-size: .9em; color: #FFFFFF\">Looking to Buy Your Dream Home</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 33px;left: 5px;width: 255px;height:15px; border: 0px black solid; text-align: center;\"><SPAN style=\"font-family: helvetica; font-size: 1em;\">Call Me at 925-212-2446</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 66px;left: -1px;width: 275px;height:42px; border: 1px black solid; text-align: center; background: #A6ACBA;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\"><A HREF=\"http://www.agentrobin.com/main.pl?findhome\">Start with an Analysis of the Area you Want to Live !!</A></SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 115px;left: -1px;width: 275px;height:42px; border: 0px black solid; text-align: center; \"><SPAN style=\"font-family: helvetica; font-size: 1em;\"><A HREF=\"http://www.agentrobin.com/main.pl?findhome\"><BUTTON Type=Button>Start Now</Button></A></SPAN></DIV>\n"; print " </div>\n"; print " <DIV style=\"position: absolute;top: 440px;left: 548px;width: 275px;height:20px; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\"><A HREF=\"http://www.agentrobin.com/main.pl?whyme\">Why choose me to sell you home.</A></SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 460px;left: 548px;width: 275px;height:20px; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\"><A HREF=\"http://www.agentrobin.com/main.pl?benefits\">Benfits of my approach!</A></SPAN></DIV>\n"; } ############################################################################## ## community SUBROUTINES - Used the generate the Neighborhoods Tables ## ############################################################################## sub communitypagespecific { ### This subroutine sets up the visual elements for the community page print "<div id=\"bimage\">\n"; ### DIV Container ALignment print "<div style=\"position: absolute;top: 0px;left: 0px;width: 829px;height:586px;z-index: 300; border: 0px black solid;\">\n"; ### Community Name Overlay print "<div style=\"position: absolute;top: 35px;left: 0px;width: 828px;height:28px;z-index: 13302; border: 0px black solid; text-align: center; background: #B98927 url('/Images/goldtile1.png');\"><IMG NAME=\"blks3\" style=\"opacity:1.00;filter:alpha(opacity=70)\" SRC=\"/Images/Cities/commpic1.png\"></div>\n"; print "<div style=\"position: absolute;top: 63px;left: 0px;width: 828px;height:2px;z-index: 13303; border: 0px black solid; text-align: center; background: #383838;\"></div>\n"; ### Goto SUb to create Community Image Overlays BuildQSelectForm("6px","380px","450px","35px","435", "0px black solid", "#F3E2B4"); getcommunities(); print "</div>\n"; print "\n"; print "\n"; } sub getcommunities { $rows= "1000"; $SQL ="SELECT * FROM $OPTable ORDER BY RadialIndex"; # fetch and display data, ensure user has requested some rows $db=new Win32::ODBC($DSN); #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); } buildcommunities(); $db->Close(); } ############ SUB TO GET THE DB ELEMENTS AND PLACE ON THE PAGE ################### sub buildcommunities() { $count=0; $LeftCol=120; $TopLine=85; $ZIndex = 307; buildcommunitytag(1,0,60000, Danville); buildcommunitytag(2,0,60100, Blackhawk); buildcommunitytag(3,0,60200, 'San Ramon'); buildcommunitytag(4,0,60300, Alamo); buildcommunitytag(1,1,60400, Dublin); buildcommunitytag(2,1,60500, Pleasanton); buildcommunitytag(3,1,60600, 'Walnut Creek'); buildcommunitytag(4,1,60700, Lafayette); goto LOUT; LOUT: } ############################################################################## ## NEIGHBORHOOD SUBROUTINES - Used the generate the Neighborhoods Tables ## ############################################################################## sub neighborhoodpagespecific { print "<div id=\"bimage\"><IMG NAME=\"pic1\" WIDTH=100% HEIGHT=100% SRC=\"/Images/parchment1.png\"></div>\n"; print "<div style=\"position: absolute;top: 136px;left: 185px;width: 829px;height:586px;z-index: 300; border: 1px black solid;\"><IMG NAME=\"blks2\" style=\"opacity:0.0;filter:alpha(opacity=70)\" WIDTH=100% HEIGHT=100% SRC=\"/Images/parchment1.png\">\n"; print "<div style=\"position: absolute;top: 10px;left: 0px;width: 825px;height:50px;z-index: 302; border: 0px black solid; text-align: center;\"><SPAN style=\"font-family: book antigua helvetica; font-style: italic; font-size: 2em; color: black; font-weight: bold;\">$Town Area Neighborhoods</SPAN></div>\n"; getneighborhoods(); print "</div>\n"; print "\n"; print "\n"; } sub getneighborhoods { $rows= "1000"; $SQL ="SELECT * FROM Neighborhoods WHERE City='$Town' ORDER BY NNAME"; # 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); } buildneighborhoods(); $db->Close(); } 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.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.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"; } ############################################################################## ################### Property Specific Page ################### ############################################################################## sub propertypagespecific { ### This subroutine sets up the visual elements for the main page ### First Overlay the background picture and base DIV structure print "<div id=\"propimagemain\">\n"; pageidentifier("#B98927", "goldtile1.png", "L", "Tri-Valley Property Search HERE"); BuildQSelectForm("6px","380px","450px","35px","435", "0px black solid", "#F3E2B4"); citymarketstatus(); featuredprop("112px","272px","$FPID"); PSearch_WIDGET("112px","10px","260px","312px","6353", "0px black solid"); print "</div>\n"; ### Build the display of the rest of the properties... } ############################################################################## ################### Property Specific Page ENtered from the Neighborhood Pages ############################################################################## sub propertypagespecificneighbor { ### This subroutine sets up the visual elements for the main page ### First Overlay the background picture and base DIV structure print "<DIV style=\"position: absolute;top: 190px;left: 205px;width: 75px;height:15px;z-index: 799; border: 0px black solid;\"><FORM><INPUT TYPE=\"button\" VALUE=\"Back to Neighborhoods\" onClick=\"history.go(-1);return true;\"> </FORM></DIV>\n"; ### Display Featured Property featuredprop("240px","470px","$FPID"); ### Build the display of the rest of the properties... buildPropertyListings(); } sub featuredprop() { $lft1 = @_[1] + "px"; $tp1= @_[0] + "px"; $mlsid = @_[2]; ##################### $SQLMLS="SELECT * FROM PropMLS WHERE MLSID='$mlsid'"; # 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($SQLMLS); $position = 1; $rcount=0; $dbs->FetchRow(); @data=$dbs->Data(); $dbs->Close(); ##################### $cimg01 = "/Images/contactme.png"; $img01 = "/Images/MLS/" . $mlsid . "/" . $mlsid . "-1.jpg"; $img02 = "/Images/MLS/" . $mlsid . "/" . $mlsid . "-2.jpg"; $img03 = "/Images/MLS/" . $mlsid . "/" . $mlsid . "-3.jpg"; $img04 = "/Images/MLS/" . $mlsid . "/" . $mlsid . "-4.jpg"; $sqft = "$data[13]"; $bedsr="$data[11]"; $baths="$data[12]"; $levels="$data[0]"; $garage="$data[35]"; $yearbuilt="$data[33]"; $lotsqft="$data[34]"; $add1=""; $fprice = "\$ " . $data[4] . ".00"; print "<div style=\"position: absolute;top: $tp1;left: $lft1;width: 560px;height:314px;z-index: 3456; border: 0px black solid;\"><A HREF=\"http://agentrobin.com/main.pl?HLFunction=VP&MID=$mlsid\"><IMG NAME=\"featured\" WIDTH=100% HEIGHT=100% SRC=\"/Images/featured.png\">\n"; ########## Place the pics ###### print " <DIV style=\"position: absolute;top: 5px;left: 5px;width: 310px;height:214px;z-index: 5800; border: 1px silver solid; text-align: center;\"><SPAN style=\"font-family: arial; font-size: 1em; color: white; font-weight: bold;\"><IMG WIDTH=100% HEIGHT=100% NAME=MainFeatured SRC=\"$img01\"></SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 223px;left: 5px;width: 100px;height:80px;z-index: 5801; border: 1px silver solid; text-align: center;\"><SPAN style=\"font-family: arial; font-size: 1em; color: white; font-weight: bold;\"><IMG WIDTH=100% HEIGHT=100% SRC=\"$img02\" onmouseover=\"MainFeatured.src='$img02'\" onmouseout=\"MainFeatured.src='$img01'\"></SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 223px;left: 110px;width: 100px;height:80px;z-index: 5802; border: 1px silver solid; text-align: center;\"><SPAN style=\"font-family: arial; font-size: 1em; color: white; font-weight: bold;\"><IMG WIDTH=100% HEIGHT=100% SRC=\"$img03\" onmouseover=\"MainFeatured.src='$img03'\" onmouseout=\"MainFeatured.src='$img01'\"></SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 223px;left: 215px;width: 100px;height:80px;z-index: 5805; border: 1px silver solid; text-align: center;\"><SPAN style=\"font-family: arial; font-size: 1em; color: white; font-weight: bold;\"><IMG WIDTH=100% HEIGHT=100% SRC=\"$img04\" onmouseover=\"MainFeatured.src='$img04'\" onmouseout=\"MainFeatured.src='$img01'\"></SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 223px;left: 330px;width: 200px;height:80px;z-index: 5815; border: 1px silver solid; text-align: center;\"><SPAN style=\"font-family: arial; font-size: 1em; color: white; font-weight: bold;\"><IMG WIDTH=100% HEIGHT=100% SRC=\"$cimg01\" onmouseover=\"MainFeatured.src='$img01'\" onmouseout=\"MainFeatured.src='$img01'\"></SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 6px;left: 6px;width: 308px;height:20px;z-index: 5850; border: 1px black solid; text-align: center; background: #000074\"><SPAN style=\"font-family: arial; font-size: .9em; color: #D1D4DB; font-weight: normal;\">FEATURED PROPERTY</SPAN></DIV>\n"; ########## DOne with Pics print " <DIV style=\"position: absolute;top: 8px;left: 360px;width: 170px;height:20px;z-index: 15929; border: 0px black solid; text-align: center;\"><SPAN style=\"font-family: arial; font-size: .9em; color: black; font-weight: bold;\">$data[5]</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 29px;left: 360px;width: 170px;height:20px;z-index: 15939; border: 0px black solid; text-align: center;\"><SPAN style=\"font-family: arial; font-size: .9em; color: black; font-weight: bold;\">$data[6]</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 51px;left: 360px;width: 170px;height:20px;z-index: 15949; border: 0px black solid; text-align: center; valign: middle;\"><SPAN style=\"font-family: arial; font-size: .8em; color: darkgreen; font-weight: bold;\">$fprice</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 70px;left: 10px;width: 300px;height:20px;z-index: 5999; border: 0px black solid; text-align: center;\"><SPAN style=\"font-family: arial; font-size: 1em; color: white; font-weight: bold;\">$add1</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 75px;left: 360px;width: 150px;height:15px;z-index: 6000; border: 0px black solid; text-align: left;\"><SPAN style=\"float: left; font-family: arial; font-size: .80em;\">Square Ft: </SPAN><SPAN style=\"float: right; font-family: helvetica; font-size: .75em;\">$sqft</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 95px;left: 360px;width: 150px;height:15px;z-index: 6001; border: 0px black solid; text-align: left;\"><SPAN style=\"float: left; font-family: arial; font-size: .80em;\">Bedrooms : </SPAN><SPAN style=\"float: right; font-family: helvetica; font-size: .75em;\">$bedsr</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 115px;left: 360px;width: 150px;height:15px;z-index: 6002; border: 0px black solid; text-align: left;\"><SPAN style=\"float: left; font-family: arial; font-size: .80em;\">Bathrooms: </SPAN><SPAN style=\"float: right; font-family: helvetica; font-size: .75em;\">$baths</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 135px;left: 360px;width: 150px;height:15px;z-index: 6003; border: 0px black solid; text-align: left;\"><SPAN style=\"float: left; font-family: arial; font-size: .8em;\">Levels...: </SPAN><SPAN style=\"float: right; font-family: helvetica; font-size: .75em;\">N/A</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 155px;left: 360px;width: 150px;height:15px;z-index: 6004; border: 0px black solid; text-align: left;\"><SPAN style=\"float: left; font-family: arial; font-size: .80em;\">Garage(s)</SPAN><SPAN style=\"float: right; font-family: helvetica; font-size: .75em;\">$garage</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 175px;left: 360px;width: 150px;height:15px;z-index: 6005; border: 0px black solid; text-align: left;\"><SPAN style=\"float: left; font-family: arial; font-size: .80em;\">Year Built </SPAN><SPAN style=\"float: right; font-family: helvetica; font-size: .75em;\">$yearbuilt</SPAN></DIV>\n"; print " <DIV style=\"position: absolute;top: 195px;left: 360px;width: 150px;height:15px;z-index: 6006; border: 0px black solid; text-align: left;\"><SPAN style=\"float: left; font-family: arial; font-size: .80em;\">Lot SqFt </SPAN><SPAN style=\"float: right; font-family: helvetica; font-size: .75em;\">$lotsqft</SPAN></DIV>\n"; print "</A></DIV>\n"; } sub buildPropertyListings() { $SQL = @_[0]; $table = "PropMLS"; $PStatus="ACTV"; $feature="y"; @Headlines =""; $HCount = 0; $rows= "10"; if ($NEIGHBORSEARCH eq "") { $SQL ="SELECT * FROM $table WHERE Area='$CITYSEARCH' AND Status='$PStatus'"; } else { $SQL ="SELECT * FROM $table WHERE Area='$CITYSEARCH' AND Status='$PStatus' AND Neighborhood like '$NEIGHBORSEARCH\%'"; } # 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 $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); } $PTop=240; $PZI=610; $DCount=0; $Col1Left="200"; $HouseLeft=115; while ($db->FetchRow()){ @data=$db->Data(); $Style="position: absolute;top: " . $PTop . "px;left: " . $Col1Left . "px;width: 270px;height:110px;z-index: " . $PZI . "; border: 0px black solid;"; if ($data[11] eq "5") { print "<DIV style=\"$Style\"><IMG SRC=\"Images/propback1.png\" WIDTH=100% HEIGHT=100%>\n"; } else { print "<DIV style=\"$Style\"><IMG SRC=\"Images/propback.png\" WIDTH=100% HEIGHT=100%>\n"; } ## Build the string to get MLS PICTURE $MLSID = $data[0]; $MLS1 = substr($MLSID, 0, 1); $MLS2 = substr($MLSID, 1, 1); $MLS3 = substr($MLSID, 2, 1); $MLS4 = substr($MLSID, 3, 1); $MLS5 = substr($MLSID, 4, 1); $MLS6 = substr($MLSID, 5, 1); $MLS7 = substr($MLSID, 6, 1); $MLS8 = substr($MLSID, 7, 1); $FSize = ".70em"; $IMGURL = "http://ca-ccar.photos.mlsfinder.com/thumbs/" . $MLS1 . "/" . $MLS2 . "/" . $MLS3 . "/" . $MLS4 . "/" . $MLS5 . "/" . $MLS6 . "/" . $MLS7 . "/" . $MLS8 . "/" . $MLSID . "-1.jpg"; $AHREFURL = "http://www.mlsfinder.com/ca-ccar/" . $Agent1 ."/index.cfm?action=listing_detail&property_id=" . $MLSID; ## This is the house image $PZI1 = $PZI+1; print "<DIV style=\"position: absolute;top: 2px;left: 2px;width: 100px;height:90px;z-index: $PZI1; border: 1px black solid;\"><A HREF=\"$AHREFURL\"><IMG SRC=\"$IMGURL\" HEIGHT=100% WIDTH=100%></A></DIV>\n"; ## This is the Address and City $PZI2 = $PZI1+1; print "<DIV style=\"position: absolute;top: 1px;left: 115px;width: 150px;height:15px;z-index: $PZI3; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: $FSize;\">$data[5]</SPAN></DIV>\n"; $PZI3 = $PZI2+1; print "<DIV style=\"position: absolute;top: 19px;left: 115px;width: 200px;height:15px;z-index: $PZI3; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: $FSize;\">$data[6]</SPAN></DIV>\n"; $PZI4 = $PZI3+1; print "<DIV style=\"position: absolute;top: 37px;left: 115px;width: 200px;height:15px;z-index: $PZI4; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: $FSize;\">Beds: $data[11] Baths: $data[12]</SPAN></DIV>\n"; $PZI5 = $PZI4+1; print "<DIV style=\"position: absolute;top: 55px;left: 115px;width: 200px;height:30px;z-index: $PZI5; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: $FSize;\">SqFt: $data[13]</SPAN></DIV>\n"; $PZI6 = $PZI5+1; print "<DIV style=\"position: absolute;top: 77px;left: 115px;width: 200px;height:30px;z-index: $PZI6; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .9em;\">\$$data[4].00</SPAN></DIV>\n"; print "</DIV>\n"; $DCount=$DCount+1; if ($DCount==1 && $feature eq "n") { $Col1Left = $Col1Left+270; } if ($DCount==2 && $feature eq "n") { $Col1Left = $Col1Left+270; } if ($DCount==3) { $feature="n"; $DCount=0; $Col1Left=200; $PTop=$PTop + 110; } if ($feature eq "y") { $PTop=$PTop + 110; } $PZI = $PZI+10; } $db->Close(); # if ($DCount > 5) { # print "<div id=\"propimage\"><IMG NAME=\"pic1\" WIDTH=100% HEIGHT=100% SRC=\"/Images/parchment3.png\"></div>\n"; # } else { # print "<div id=\"propimage1\"><IMG NAME=\"pic1\" WIDTH=100% HEIGHT=100% SRC=\"/Images/parchment1.png\"></div>\n"; # } } ############################################################################## ################### GENERIC PAGE SETUP HEADING AND METADATA ################### ############################################################################## sub printheader { $title = "AgentRobin.com - Real Estate Source for Danville, San Ramon, Alamo, Pleasanton, Dublin and Walnut Creek"; $description = "AgentRobin Tri-valley Real Estate"; print "<!DOCTYPE html '-//W3C//DTD XHTML 1.0 Strict//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd'>"; print "Content-type: text/html\n\n"; print "<HTML xmlns='http://www.w3.org/1999/xhtml'>\n"; print "<HEAD>\n"; 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"; # getmetadata(); print "<meta name=\"description\" content=\"$DefaultMetaDescription\">\n"; print "<meta name=\"keywords\" content=\"$DefaultMetaKeywords\">\n"; print "<meta name=\"google-site-verification\" content=\"83oxOEfA77QGbvHBMuileU1zkUzfW5L3O2jAqYCmAqk\" />\n"; print "<meta name=\"google-site-verification\" content=\"jMQcqm4fvV9Kk8vYUwUtKX6c27ls4AzpKLy_if_WTQo\" />\n"; if (substr($pageno,0,14) eq "CommunityStats") { print "<link type=\"text/css\" href=\"/css/MainPage.css\" rel=\"stylesheet\"/>\n"; } else { if ($pageno eq "about") { print "<link type=\"text/css\" href=\"/css/ContactPage.css\" rel=\"stylesheet\"/>\n"; } else { print "<link type=\"text/css\" href=\"/css/MainPage.css\" rel=\"stylesheet\"/>\n"; } } printscript(); print "</head>\n"; } ############################################################################## ################### GENERIC PAGE SETUP HEADING AND METADATA ################### ############################################################################## sub printmapheader { print "<!DOCTYPE html '-//W3C//DTD XHTML 1.0 Strict//EN' 'http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd'>"; print "Content-type: text/html\n\n"; print "<HTML xmlns='http://www.w3.org/1999/xhtml'>\n"; print "<HEAD>\n"; print "<TITLE>AgentRobin.com - Finding Your Familys Dream Home $Host</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=\"Tri-valley Real Estate \">\n"; print "<meta name=\"keywords\" content=\", danville, san ramon, alamo, dublin, pleasanton, walnut creek, real estate pivot, real estate data, home, homes, homes for sale, real estate, real estate for sale, property, properties, listings, property listings, realtor, agent, Danville Real Estate, San Ramon Real Estate, CA, Condo, Bay Area, East Bay Real Estate, Land, Buyers, Sellers , Contra Costa County, Alameda County,townhouse,California, Keller Williams, Keller Williams Danville\">\n"; print "<meta name=\"google-site-verification\" content=\"83oxOEfA77QGbvHBMuileU1zkUzfW5L3O2jAqYCmAqk\" />\n"; print "<meta name=\"google-site-verification\" content=\"jMQcqm4fvV9Kk8vYUwUtKX6c27ls4AzpKLy_if_WTQo\" />\n"; print "<link type=\"text/css\" href=\"/css/MainPage.css\" rel=\"stylesheet\"/>\n"; # print "$BREAK\n"; if ($MAPSQL eq "") { $RSQL= "SELECT * from PropMLS WHERE (Status='ACTV' OR Status='NEW' OR Status='BOMK' OR Status='PCH' OR Status='AC' OR Status='PSB') AND Area='Danville'"; $bed2="1"; $bed3="1"; $bed4="1"; $bed5="1"; $area="Danville"; } else { $RSQL=$MAPSQL; } GMAP_SCRIPT($RSQL); } ################### GENERIC PAGE SETUP ENDING ################### sub printending { print "</body>\n"; print "</html>\n"; } sub printscript { print "<script>\n"; print "function QSChange()\n"; print " {\n"; # print " document.location.href = document.QSForm.value;\n"; print " }\n"; print "function RemoveAll()\n"; print " {\n"; print " document.getElementById('mlssearch').style.visibility = 'hidden';\n"; print " }\n"; print "function getStyle()\n"; print " {\n"; print " var temp = document.getElementById('mlssearch').style.visibility;\n"; print " return temp;\n"; print " }\n"; print " function switchMLS()\n"; print " {\n"; print " var current = getStyle();\n"; print " if( current == 'visible' )\n"; print " {\n"; print " document.getElementById('mlssearch').style.visibility = 'hidden';\n"; print " }\n"; print " else\n"; print " {\n"; print " document.getElementById('mlssearch').style.visibility = 'visible';\n"; print " }\n"; print " }\n"; print "</script>\n"; } ############ SUB TO GET THE VARIOUS THEME ELEMENTS ################### sub initTheme() { $rows= "1000"; $SQL ="SELECT * FROM $ThemeTable WHERE ThemeID='$Theme'"; # 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 $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 "$SQL\n"; print "Error $rc getting INFO from table THEMES in First Iteration"; exit(0); } while ($db->FetchRow()){ @data=$db->Data(); if ($data[2] eq "vert") { $Direct="vert"; } else { $Direct="horz"; } if ($data[3] eq "") { $BGColor = ""; } else { $BGColor="$data[3]"; } if ($data[4] eq "") { $BGPic = ""; } else { $BGPic="$data[4]"; } @secvals = split(/:/, $data[5]); if ($secvals[0] eq "") { $secimage = ""; } else { $secimage="$secvals[0]"; } if ($secvals[1] eq "") { $secimage2 = ""; } else { $secimage2="$secvals[1]"; } if ($secvals[2] eq "") { $secimage3 = ""; } else { $secimage3="$secvals[2]"; } if ($secvals[3] eq "") { $secimage4 = ""; } else { $secimage4="$secvals[3]"; } if ($secvals[4] eq "") { $secimage5 = ""; } else { $secimage5="$secvals[4]"; } $SideBGColor = ""; if ($data[6] eq "") { $SideBGPic = ""; } else { @Sides = split(/:/, $data[6]); $SideBGPic="$Sides[0]"; $SideTrans=$Sides[1];} if ($SideTrans eq "") { $SideTrans=100; } if ($data[8] eq "") { $ContactPic = ""; } else { $ContactPic="$data[8]"; } #### Social Networking Feed Links if ($data[13] eq "y") { $twit = "y"; $twiturl = $data[14]; } else { $twit="n"; } if ($data[15] eq "y") { $face = "y"; $faceurl = $data[16]; } else { $face="n"; } if ($data[17] eq "y") { $link = "y"; $linkurl = $data[18]; } else { $link="n"; } if ($data[19] eq "y") { $tube = "y"; $tubeurl = $data[20]; } else { $tube="n"; } if ($data[21] eq "y") { $EnableMV = "y"; } else { $EnableMV ="n"; } if ($data[22] eq "") { $HeadBG = ""; } else { $HeadBG ="$data[22]"; } if ($data[23] eq "") { $TopHeadPic = "DefaultHeadPic.png"; } else { $TopHeadPic ="$data[23]"; } if ($data[26] eq "") { $PagePic = "NOne"; } else { $PagePic ="$data[26]"; } } $db->Close(); } ############ SUB TO GET THE VARIOUS THEME ELEMENTS ################### sub getnews() { $Newstable = "News"; @Headlines =""; $HCount = 0; $rows= "10"; $SQL ="SELECT * FROM $Newstable"; # 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 $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); } while ($db->FetchRow()){ @data=$db->Data(); $Val = "$data[1]\^$data[2]\^$data[3]"; push(@Headlines,$Val); $HCount++; } $db->Close(); } sub BuildQSelectFormBack() { $CCount= @Communities; $TP = @_[0]; $LF = @_[1]; $WD = @_[2]; $HT = @_[3]; $ZZ = @_[4]; $BD = @_[5]; $BC = @_[6]; $style = "position: absolute; top: " . $TP . "; left: " . $LF . "; Width: " . $WD . "; Height: ". $HT . "; z-index: " . $ZZ . "; border: " . $BD . ";"; $SearchURL = $BaseSearch . "city=Danville&state=CA&npp=32"; $HOTSearch = "http://www.homesopentoday.com/search/results?cities[]="; print " <div NAME=\"DIV to Hold all the Uick Select Items\" id=\"mainQSBar\" style=\"background: $BC;\">\n"; print " <div NAME=\"DIV for Quick Select TExt\" style=\"position: absolute;top: 6px;left: 20px;width: 360px;height:20px;z-index: 456; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: 1em; font-decoration: underline;\">Quick Property Sales and Market Reports \>\>\></SPAN></DIV>\n"; print " <div NAME=\"DIV for QUICK SELECT BOX\" style=\"$style\">\n"; print " <FORM name=\"QSForm\" action=\"../\">\n"; print " <SELECT style=\"background-color: #C3A35D\" NAME=\"QSOption\" onchange=\"location=this.options[selectedIndex].value\;\">\n"; print " <OPTION value=\"#\">--------------------------------- Quick Links --------------------------------</OPTION>\n"; print " <OPTGROUP LABEL=\"Tri-Valley Properties for Sell\">\n"; for ($X=0; $x<=$CCount; $x++) { $QSSearchStr = $BaseSearch . "city=" . $Communities[$x] . "&state=CA&npp=32"; print " <OPTION value=\"$QSSearchStr\">$Communities[$x] Properties for Sale</OPTION>\n"; } print " </OPTGROUP>\n"; print " <OPTGROUP LABEL=\"Property Foreclosures\">\n"; for ($y=0; $y<=$CCount; $y++) { $QSSearchStr = $BaseSearch . "city=" . $Communities[$y] . "&state=CA&npp=32&foreclosure=y"; print " <OPTION value=\"$QSSearchStr\">$Communities[$y] Foreclosures</OPTION>\n"; } print " </OPTGROUP>\n"; print " <OPTGROUP LABEL=\"Current Open Houses\">\n"; for ($a=0; $a<=$CCount; $a++) { $HOTSearchStr = $HOTSearch . $Communities[$a]; print " <OPTION value=\"$HOTSearchStr\">$Communities[$a] Open Houses</OPTION>\n"; } print " </OPTGROUP>\n"; print " </SELECT>\n"; print " </FORM>\n"; print " </div>\n"; # $style2="top: " . $TP . "; left: " . $LF . "; Width: " . $WD . "; Height: ". $HT . "; z-index: " . $ZZ . "; border: " . $BD . ";"; print " </div>\n"; } sub BuildLoginForm() { print "<div id=\"LoginForm\">\n"; print " <div style=\"position: absolute;top: 2px;left: 10px;width: 350px;height:20px;z-index: 500; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .90em; font-decoration: underline; font-weight: bold;\">You are currently using GUEST ACCESS</SPAN></DIV>\n"; print " <FORM name=\"LForm\" action=\"hhtp://agentrobin.com/Main.pl?Main\">\n"; print " <SPAN style=\"position: absolute;top: 25px;left: 10px;width: 75px;height:30px;z-index: 505; border: 0px black solid; font-family: helvetica; font-size: .75em; vertical-align: middle;\">USERNAME: </SPAN>"; print " <INPUT style=\"position: absolute;top: 23px;left: 90px;width: 100px;height:20px;z-index: 510; border: 1px black solid;\" Type=Text Width=200 Name=LoginID>"; print " <SPAN style=\"position: absolute;top: 25px;left: 200px;width: 75px;height:20px;z-index: 520; border: 0px black solid; font-family: helvetica; font-size: .75em;\">PASSWORD: </SPAN>\n"; print " <INPUT style=\"position: absolute;top: 23px;left: 280px;width: 100px;height:20px;z-index: 530; border: 1px black solid;\" Type=Password Width=200 Name=PassID>\n"; print " <INPUT style=\"position: absolute;top: 47px;left: 280px;width: 100px;height:20px;z-index: 540; border: 1px black solid;\" Type=Submit Name=\"Login\" Value=\"Login !!\" Width=200>\n"; print " </FORM>\n"; print " <div style=\"position: absolute;top: 50px;left: 10px;width: 350px;height:20px;z-index: 500; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-decoration: underline; font-weight: bold; color: Red\">Sign up for Customized Views !!</SPAN></DIV>\n"; print "</div>\n"; } sub GOOGLEV() { $TP = @_[0]; $LF = @_[1]; $WD = @_[2]; $HT = @_[3]; $ZZ = @_[4]; $BD = @_[5]; $style = "position: absolute; top: " . $TP . "; left: " . $LF . "; Width: " . $WD . "; Height: ". $HT . "; z-index: " . $ZZ . "; border: " . $BD . ";"; print "<div style=\"$style\"><object type=\"application/x-shockwave-flash\" data=\"https://clients4.google.com/voice/embed/webCallButton\" width=\"250\" height=\"100\"><param name=\"movie\" value=\"https://clients4.google.com/voice/embed/webCallButton\" /><param name=\"wmode\" value=\"transparent\" /><param name=\"FlashVars\" value=\"id=0f8b3af5d252572258bd7f9e72fe7086bebf1834&style=0\" /></object></div>\n"; } ################################################################################################## #### Property Search WIdget - This SUb place the Property SEarch Box accrodsing to the DIV #### coordinated sent to the SUb. ################################################################################################## sub PSearch_WIDGET() { $TP = @_[0]; $LF = @_[1]; $WD = @_[2]; $HT = @_[3]; $ZZ = @_[4]; $BD = @_[5]; $style = "position: absolute; top: " . $TP . "; left: " . $LF . "; Width: " . $WD . "; Height: ". $HT . "; z-index: " . $ZZ . "; border: " . $BD . ";"; $offset = $WD-8; print "<FORM NAME=\"PropSearch\" Method=GET Action=Main.pl?PropertySearch:>\n"; print "<INPUT TYPE=Hidden Value=PropertySearch Name=HLFunction>\n"; print "<div style=\"$style\"><img src=\"/Images/Psearch.png\" width=\"$WD\" height=\"$HT\">\n"; print "<div style=\"position: absolute;top: 0px;left: 0px; width: " . $offset . ";height:30px;text-align: left; z-index: $ZI01; border: 1px black solid; text-align: center; background: #919CD9;\"><SPAN style=\"font-family: helvetica; font-size: 1.2em; font-color: #F8C900;\">Home Search</SPAN></div>\n"; $ZI01=4300; print "<div style=\"position: absolute;top: 42px;left: 10px;width: 100px;height:20px;text-align: left; z-index: $ZI01; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: darkblue;\">City</SPAN></div>\n"; $ZI01=4301; print "<div style=\"position: absolute;top: 42px;left: 100px;width: 50px;height:20px;text-align: left; z-index: $ZI01; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: darkblue;\">\n"; print "<SELECT Name=City style=\"width: 38mm;\">\n"; for ($a=0; $a<=8; $a++) { if (@_[6] eq "$Cities[$a]") { print "<Option Value=\"$Cities[$a]\" Selected>$Cities[$a]</OPTION>\n"; } else { print "<Option Value=\"$Cities[$a]\">$Cities[$a]</OPTION>\n"; } } print "</SELECT>\n"; print "</SPAN></div>\n"; print "<div style=\"position: absolute;top: 66px;left: 105px;width: 50px;height:20px;text-align: left; z-index: $ZI01; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: darkblue;\">Min</SPAN></div>\n"; print "<div style=\"position: absolute;top: 66px;left: 175px;width: 50px;height:20px;text-align: left; z-index: $ZI01; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: darkblue;\">Max</SPAN></div>\n"; $ZI01=4310; print "<div style=\"position: absolute;top: 92px;left: 10px;width: 50px;height:20px;text-align: left; z-index: $ZI01; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: darkblue;\">Bedrooms</SPAN></div>\n"; ################# Minimum Bedrooms ################# $ZI01=4311; print "<div style=\"position: absolute;top: 89px;left: 100px;width: 50px;height:20px;text-align: left; z-index: $ZI01; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: darkblue;\">\n"; print "<SELECT Name=MinBed>\n"; print "<Option Value=Any>Any</OPTION>\n"; for ($a=1; $a<=6; $a++) { if (@_[7] eq "$a") { print "<Option Value=$a Selected>$a</OPTION>\n"; } else { print "<Option Value=$a>$a</OPTION>\n"; } } print "</SELECT>\n"; print "</SPAN></div>\n"; ################# Maximum Bedrooms ################# $ZI01=4312; print "<div style=\"position: absolute;top: 89px;left: 170px;width: 50px;height:20px;text-align: left; z-index: $ZI01; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: darkblue;\">\n"; print "<SELECT Name=MaxBed>\n"; print "<Option Value=Any>Any</OPTION>\n"; for ($a=1; $a<=6; $a++) { if (@_[8] eq "$a") { print "<Option Value=$a Selected>$a</OPTION>\n"; } else { print "<Option Value=$a>$a</OPTION>\n"; } } print "</SELECT>\n"; print "</SPAN></div>\n"; ################# Minimum Bathrooms ################# $ZI01=4320; print "<div style=\"position: absolute;top: 120px;left: 10px;width: 80px;height:20px;text-align: left; z-index: $ZI01; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: darkblue;\">Baths ...........</SPAN></div>\n"; $ZI01=4321; print "<div style=\"position: absolute;top: 120px;left: 100px;width: 50px;height:20px;text-align: left; z-index: $ZI01; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: darkblue;\">\n"; print "<SELECT Name=MinBath>\n"; print "<Option Value=Any>Any</OPTION>\n"; for ($a=1; $a<=6; $a++) { if (@_[9] eq "$a") { print "<Option Value=$a Selected>$a</OPTION>\n"; } else { print "<Option Value=$a>$a</OPTION>\n"; } } print "</SELECT>\n"; print "</SPAN></div>\n"; ################# Maximum Bedrooms ################# $ZI01=4322; print "<div style=\"position: absolute;top: 120px;left: 170px;width: 50px;height:20px;text-align: left; z-index: $ZI01; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: darkblue;\">\n"; print "<SELECT Name=MaxBath>\n"; print "<Option Value=Any>Any</OPTION>\n"; for ($a=1; $a<=6; $a++) { if (@_[10] eq "$a") { print "<Option Value=$a Selected>$a</OPTION>\n"; } else { print "<Option Value=$a>$a</OPTION>\n"; } } print "</SELECT>\n"; print "</SPAN></div>\n"; $ZI01=4330; print "<div style=\"position: absolute;top: 164px;left: 10px;width: 90px;height:20px;text-align: left; z-index: $ZI01; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: darkblue;\">Min Price .....</SPAN></div>\n"; $ZI01=4331; print "<div style=\"position: absolute;top: 189px;left: 10px;width: 90px;height:20px;text-align: left; z-index: $ZI01; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: darkblue;\">Max Price ..... </div>\n"; ################# Minimum PRice ################# $ZI01=4334; print "<div style=\"float: right; position: absolute;top: 160px;left: 100px;width: 150px;height:20px;text-align: left; z-index: $ZI01; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: darkblue;\">\n"; print "<SELECT Name=MinValue1 STYLE=\"Width: 35mm;\">\n"; $sval=200000; for ($a=1; $a<=18; $a++) { if (@_[11] eq "$sval") { print "<Option Value=$sval Selected>$sval</OPTION>\n"; } else { print "<Option Value=$sval>$sval</OPTION>\n"; } $sval= $sval+50000; } print "</SELECT>\n"; print "</SPAN></div>\n"; ################# Maximum PRice ################# $ZI01=4338; print "<div style=\"float: right; position: absolute;top: 185px;left: 100px;width: 150px;height:20px;text-align: left; z-index: $ZI01; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: darkblue;\">\n"; print "<SELECT Name=MaxValue1 STYLE=\"Width: 35mm;\">\n"; $sval=250000; for ($a=1; $a<=16; $a++) { if (@_[12] eq "$sval") { print "<Option Value=$sval Selected>$sval</OPTION>\n"; } else { print "<Option Value=$sval>$sval</OPTION>\n"; } $sval= $sval+50000; } $sval=1100000; for ($a=1; $a<=16; $a++) { if (@_[12] eq "$sval") { print "<Option Value=$sval Selected>$sval</OPTION>\n"; } else { print "<Option Value=$sval>$sval</OPTION>\n"; } $sval= $sval+150000; } # print "<OPTION value=1000000+>1000000+</OPTION>\n"; print "</SELECT>\n"; print "</SPAN></div>\n"; $ZI01=4342; print "<div style=\"position: absolute;top: 215px;left: 50px;width: 60px;height:20px;text-align: left; z-index: $ZI01; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: darkblue;\"><INPUT SIZE=15 type=\"SUBMIT\" value=SEARCH></SPAN></div>\n"; $ZI01=4346; print "<div style=\"position: absolute;top: 215px;left: 130px;width: 60px;height:20px;text-align: left; z-index: $ZI01; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: darkblue;\"><INPUT SIZE=15 type=\"RESET\" value=RESET></SPAN></div>\n"; $ZI01=4356; print "<div style=\"position: absolute;top: 250px;left: 80px;width: 160px;height:20px;text-align: left; z-index: $ZI01; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .9em; font-color: darkblue;\">Display Photos <INPUT Name=Photos type=\"CHECKBOX\" value=Y checked></SPAN></div>\n"; $ZI01=4366; print "<div style=\"position: absolute;top: 280px;left: 72px;width: 160px;height:20px;text-align: left; z-index: $ZI01; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .9em; font-color: darkblue;\"><A HREF=\"http://www.agentrobin.com/Main.pl?MapView\">(Switch to Map View)</A></SPAN></div>\n"; print "</div>\n"; print "</FORM>\n"; } sub initAgentContact () { $LSBroker = "LSBrokerOverlay.png"; $LSAgent = "LSAGentOverlay.png"; $LSBrokerAdd = "LSBrokerAddOverlay.png"; $LSAgentPhone = "LSAgentPhoneOverlay.png"; $twitpic = "twitter.png"; $facepic = "facebook.png"; $linkpic = "linkedin.png"; $tubepic = "youtube.png"; $secimageC="cparchment1.png"; $Agent="robinbrooks?action=newsearchsession&"; $Agent1 = "robinbrooks"; $BaseSearch="http://www.mlsfinder.com/ca_ebrd/" . $Agent; @Communities=("Danville","San Ramon","Blackhawk","Alamo","Walnut Creek","Dublin","Pleasanton"); } sub signupform() { ### This subroutine sets up the form to fill out for mailing list. ### First Overlay the background picture and base DIV structure print " <div id=\"bimage\"><IMG NAME=\"pic1\" WIDTH=100% HEIGHT=100% SRC=\"/Images/$secimage\"></div>\n"; print " <div NAME=\"DIV to hold all of the Sign up form Elements\" style=\"position: absolute;top: 138px;left: 185px;width: 825px;height:586px;z-index: 395; border: 0px black solid;\">\n"; ### Make the Form on the right side #### print " <FORM NAME=\"signup\" ACTION=\"#\" METHOD=POST>\n"; print " <div NAME=\"DIV to hold all Form ELements\" style=\"position: absolute;top: 20px;left: 400px;width: 420px;height:500px;z-index: 2001; border: 0px black solid;\"><IMG NAME=\"signpic\" WIDTH=100% HEIGHT=100% SRC=\"/Images/signup.png\">\n"; print " <div style=\"position: absolute;top: 45px;left: 16px;width: 360px;height:80px;z-index: 2010; border: 1px black solid;\">\n"; print " <div style=\"position: absolute;top: 5px;left: 20px;width: 100px;height:25px;z-index: 2012; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\">NAME</SPAN></DIV>\n"; print " <div style=\"position: absolute;top: 5px;left: 122px;width: 200px;height:25px;z-index: 2013; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\"><INPUT TYPE=TEXT NAME=CNAME SIZE=\"30\"></SPAN></DIV>\n"; print " <div style=\"position: absolute;top: 32px;left: 20px;width: 100px;height:25px;z-index: 2016; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\">E-MAIL</SPAN></DIV>\n"; print " <div style=\"position: absolute;top: 32px;left: 122px;width: 200px;height:25px;z-index: 2017; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\"><INPUT TYPE=TEXT NAME=CEMAIL SIZE=\"30\"></SPAN></DIV>\n"; print " </div>\n"; print " </div>\n"; print " </FORM>\n"; print " </div>\n"; } sub initPerson() { $PArea="Danville"; } sub putMarketline() { $MCity = @_[0]; print " <div style=\"position: absolute;top: 170px;left: 222px;width: 50px;height:55px;z-index: 2017; border: 0px black solid; text-align: left;\"><IMG SRC=\"/Images/marketpic.png\"> </DIV>\n"; print " <div style=\"position: absolute;top: 173px;left: 302px;width: 600px;height:48px;z-index: 2017; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: 2em; valign: middle;\">$MCity Market Status Report </SPAN></DIV\n"; } ######################################################################## ### Sub buildALLProperty is the main property display sub routine ######################################################################## sub buildALLProperty() { BuildQSelectFormUnformat("6px","380px","450px","35px","435", "0px black solid", "#F3E2B4"); $SQL = @_[0]; $TStyle = @_[1]; $FTop = @_[2]; $DSN="YFDH"; $table = "PropMLS"; $PStatus="ACTV"; $feature="y"; @Headlines =""; $HCount = 0; $rows= "10"; # 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); } $PTop=$FTop; $PZI=610; $DCount=0; if ($TStyle eq "1") { $DCount=0; $feature='n'; $PTop=$FTop; } $Col1Left="200"; $HouseLeft=115; while ($db->FetchRow()){ @data=$db->Data(); $Style="position: absolute;top: " . $PTop . "px;left: " . $Col1Left . "px;width: 270px;height:110px;z-index: " . $PZI . "; border: 0px black solid;"; $kw = "n"; $type7="9"; if (lc($data[2]) eq "condo" || lc($data[2]) eq "townhouse" || lc($data[2]) eq "duet" || lc($data[2]) eq "patio home") { $type7="1";} if (lc($data[2]) eq "detached") { $type7="2";} if ($type7 eq "1") { $kwstr = lc($data[26]); $kwstr = substr($kwstr,0,15); if ($kwstr eq "keller williams") { print "<DIV style=\"$Style\"><IMG SRC=\"Images/keller.png\" WIDTH=100% HEIGHT=100%>\n"; } else { print "<DIV style=\"$Style\"><IMG SRC=\"Images/propback1.png\" WIDTH=100% HEIGHT=100%>\n"; } } if ($type7 eq "2") { $kwstr = lc($data[26]); $kwstr = substr($kwstr,0,15); if ($kwstr eq "keller williams") { print "<DIV style=\"$Style\"><IMG SRC=\"Images/keller.png\" WIDTH=100% HEIGHT=100%>\n"; } else { print "<DIV style=\"$Style\"><IMG SRC=\"Images/propback01.png\" WIDTH=100% HEIGHT=100%>\n"; } } if ($type7 eq "9") { print "<DIV style=\"$Style\"><IMG SRC=\"Images/propback01.png\" WIDTH=100% HEIGHT=100%>\n"; } $Style="position: absolute;top: " . $PTop . "px;left: " . $Col1Left . "px;width: 270px;height:110px;z-index: " . $PZI . "; border: 0px black solid;"; # if ($data[11] eq "5") { # print "<DIV style=\"$Style\"><IMG SRC=\"Images/propback1.png\" WIDTH=100% HEIGHT=100%>\n"; # } else { # print "<DIV style=\"$Style\"><IMG SRC=\"Images/propback01.png\" WIDTH=100% HEIGHT=100%>\n"; # } ## Build the string to get MLS PICTURE $MLSID = $data[0]; $MLS1 = substr($MLSID, 0, 1); $MLS2 = substr($MLSID, 1, 1); $MLS3 = substr($MLSID, 2, 1); $MLS4 = substr($MLSID, 3, 1); $MLS5 = substr($MLSID, 4, 1); $MLS6 = substr($MLSID, 5, 1); $MLS7 = substr($MLSID, 6, 1); $MLS8 = substr($MLSID, 7, 1); $FSize = ".70em"; $IMGURL = "http://ca-ccar.photos.mlsfinder.com/thumbs/" . $MLS1 . "/" . $MLS2 . "/" . $MLS3 . "/" . $MLS4 . "/" . $MLS5 . "/" . $MLS6 . "/" . $MLS7 . "/" . $MLS8 . "/" . $MLSID . "-1.jpg"; # $AHREFURL = "http://www.mlsfinder.com/ca-ebrd/" . $Agent1 ."/index.cfm?action=listing_detail&property_id=" . $MLSID . "&searchkey=bc751eb0-f46a-3de6-50ac-f8496693893d&npp=8&sr=1"; $AHREFURL = "http://agentrobin.com/?HLFunction=VP&MID=$MLSID"; ## This is the house image $PZI1 = $PZI+1; print "<DIV style=\"position: absolute;top: 2px;left: 2px;width: 100px;height:90px;z-index: $PZI1; border: 1px black solid;\"><A HREF=\"$AHREFURL\"><IMG TITLE=\"Courtesy of $data[25] - $data[26] MLS ID $data[0]\" SRC=\"$IMGURL\" HEIGHT=100% WIDTH=100%></A></DIV>\n"; ## This is the Address and City $PZI2 = $PZI1+1; print "<DIV style=\"position: absolute;top: 1px;left: 115px;width: 150px;height:15px;z-index: $PZI3; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: $FSize;\">$data[5]</SPAN></DIV>\n"; $PZI3 = $PZI2+1; print "<DIV style=\"position: absolute;top: 19px;left: 115px;width: 200px;height:15px;z-index: $PZI3; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: $FSize;\">$data[6] - $data[2]</SPAN></DIV>\n"; $PZI4 = $PZI3+1; print "<DIV style=\"position: absolute;top: 37px;left: 115px;width: 200px;height:15px;z-index: $PZI4; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: $FSize;\">Beds: $data[11] Baths: $data[12]</SPAN></DIV>\n"; $PZI5 = $PZI4+1; print "<DIV style=\"position: absolute;top: 55px;left: 115px;width: 200px;height:30px;z-index: $PZI5; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: $FSize;\">SqFt: $data[13]</SPAN></DIV>\n"; $PZI6 = $PZI5+1; $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;top: 77px;left: 115px;width: 200px;height:30px;z-index: $PZI6; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .9em;\">$rprice</SPAN></DIV>\n"; $PZI7 = $PZI5+1; if ($data[23] eq "REO") { print "<DIV style=\"position: absolute;top: 31px;left: 47px;width: 57px;height:62px;z-index: $PZI7; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .9em;\"><A HREF=\"$AHREFURL\"><IMG TITLE=\"Courtesy of $data[25] - $data[26]\" SRC=\"/Images/foreclosure_banner.gif\" HEIGHT=100% WIDTH=100%></A></SPAN></DIV>\n"; } if (lc($data[23]) eq lc("POTENTIAL SHORT SALE")) { print "<DIV style=\"position: absolute;top: 31px;left: 47px;width: 57px;height:62px;z-index: $PZI7; border: 0px black solid; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .9em;\"><A HREF=\"$AHREFURL\"><IMG TITLE=\"Courtesy of $data[25] - $data[26]\" SRC=\"/Images/shortsale_banner.gif\" HEIGHT=100% WIDTH=100%></A></SPAN></DIV>\n"; } print "</DIV>\n"; $DCount=$DCount+1; if ($DCount==1 && $feature eq "n") { $Col1Left = $Col1Left+270; } if ($DCount==2 && $feature eq "n") { $Col1Left = $Col1Left+270; } if ($DCount==3) { $feature="n"; $DCount=0; $Col1Left=200; $PTop=$PTop + 110; } if ($feature eq "y") { $PTop=$PTop + 110; } $PZI = $PZI+10; } $db->Close(); } sub HitCounter() { $RHost = $ENV{$REMOTE_HOST}; $RAddr = $ENV{$REMOTE_ADDR}; $HitPage = @_[0]; ### FIrst Read the record $SQLFIRST = "SELECT * FROM HitTable WHERE HITID='$HitPage'"; # fetch and display data, ensure user has requested some rows $dbh=new Win32::ODBC("DSN=YFDH;UID=aglogin;PWD=J0shKr1s"); #New instance if (! $dbh){ print "Error opening data source $db"; exit(0); } # Use $rc to check if we could query the database and $db to hold the SQL results $rch=$dbh->Sql($SQLFIRST); $dbh->FetchRow(); @data=$dbh->Data(); $rcount = $data[2] + 1; $SQLHIT="UPDATE HitTable SET CID='$rcount' WHERE HITID='$HitPage'"; # print "HERE $SQLHIT\n"; $rch=$dbh->Sql($SQLHIT); $dbh->Close(); } ####### BUYER MAIN PAGE #################################################################################################### sub buyermainpage() { ### This subroutine sets up the visual elements for the community page print "<div id=\"bimage\">\n"; # <IMG NAME=\"pic1\" WIDTH=100% HEIGHT=100% SRC=\"/Images/$secimageC\"> ### DIV Container ALignment print "<div style=\"position: absolute;top: 0px;left: 0px;width: 829px;height:586px;z-index: 300; border: 0px black solid;\">\n"; BuildQSelectForm("6px","400px","400px","40px","439","0px black solid", "#F3E2B4"); ### Buyer Resources Label print "<div style=\"position: absolute;top: 35px;left: 0px;width: 830px;height:28px;z-index: 3302; border: 0px black solid; text-align: center; background: #DEAE44\"><IMG NAME=\"blks3\" style=\"opacity:1.00;filter:alpha(opacity=70)\" SRC=\"/Images/buyer.png\"></div>\n"; print "<div style=\"position: absolute;top: 61px;left: 0px;width: 828px;height:2px;z-index: 13303; border: 0px black solid; text-align: center; background: #383838;\"></div>\n"; ### Buyers FAQ #### $bhref = $Baseweb . "/Main.pl?HLFunction=Buyer1"; print "<div style=\"position: absolute;top: 100px;left: 40px;width: 730px;height:88px;z-index: 3310; border: 1px black solid; background: #F3E2B4;\">\n"; print "<div style=\"position: absolute;top: 1px;left: 1px;width: 73px;height:73px;z-index: 3315; border: 0px black solid;\"><IMG SRC=\"/Images/placeholder.png\" WIDTH=100% HEIGHT=100%></div>\n"; print "<div style=\"position: absolute;top: 1px;left: 85px;width: 500px;height:20px;z-index: 3316; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\"><A HREF=\"$bhref\">Home Buyers FAQ</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 32px;left: 85px;width: 600px;height:50px;z-index: 3317; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">Frequently Asked Questions about home buying, financing, qualifying including information on buying foreclosures and short sales.</SPAN></div>\n"; print "</div>\n"; ### Home Mortgage and Finance #### print "<div style=\"position: absolute;top: 200px;left: 40px;width: 730px;height:88px;z-index: 3320; border: 1px black solid; background: #F3E2B4;\">\n"; print " <div style=\"position: absolute;top: 1px;left: 1px;width: 73px;height:73px;z-index: 3325; border: 0px black solid;\"><IMG SRC=\"/Images/placeholder.png\" WIDTH=100% HEIGHT=100%></div>\n"; print " <div style=\"position: absolute;top: 1px;left: 85px;width: 500px;height:20px;z-index: 3326; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\"><A HREF=\"http://agentrobin.com/Main.pl?Finance\">Home Mortgage and Finance</A></SPAN></div>\n"; print " <div style=\"position: absolute;top: 26px;left: 85px;width: 600px;height:50px;z-index: 3327; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">Frequently Asked Questions about home buying, financing, qualifying including information on buying foreclosures and short sales. <A HREF=\"http://agentrobin.com/Main.pl?Buyer3\">2009 Stimulus laws<A/></SPAN></div>\n"; print "<div style=\"position: absolute;top: 65px;left: 85px;width: 600px;height:22px;z-index: 3337; border: 0px black solid; text-align:left;\">"; print " <SPAN style=\"font-family: helvetica; font-size: .90em; font-color: red;\">"; print " <A HREF=\"\">Glossary, </A>"; print " <A HREF=\"\">Loan Types, </A>"; print " <A HREF=\"\">Mortgage Rates, </A>"; print " <A HREF=\"\">Credit Score, </A>"; print " <A HREF=\"\">Mortgage Calculator, </A>"; print " <A HREF=\"\">Home Affordability</A></SPAN>"; print "</div>\n"; print "</div>\n"; ### School Information #### print "<div style=\"position: absolute;top: 300px;left: 40px;width: 730px;height:88px;z-index: 3330; border: 1px black solid; background: #F3E2B4;\">\n"; print "<div style=\"position: absolute;top: 1px;left: 1px;width: 73px;height:73px;z-index: 3335; border: 0px black solid;\"><IMG SRC=\"/Images/placeholder.png\" WIDTH=100% HEIGHT=100%></div>\n"; print "<div style=\"position: absolute;top: 1px;left: 85px;width: 500px;height:20px;z-index: 3336; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\">School Information</SPAN></div>\n"; print "<div style=\"position: absolute;top: 32px;left: 85px;width: 600px;height:50px;z-index: 3337; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">Comprehensive information on local area schools, neighborhoods and scores.</SPAN></div>\n"; ### HREF's for the Section print "<div style=\"position: absolute;top: 65px;left: 85px;width: 600px;height:22px;z-index: 3337; border: 0px black solid; text-align:left;\">"; print " <SPAN style=\"font-family: helvetica; font-size: .90em; font-color: red;\"><A HREF=\"\">Danville, </A>"; print " <A HREF=\"\">San Ramon, </A>"; print " <A HREF=\"\">BlackHawk, </A>"; print " <A HREF=\"\">Alamo, </A>"; print " <A HREF=\"\">Dublin, </A>"; print " <A HREF=\"\">Walnut Creek, </A>"; print " <A HREF=\"\">Pleasanton </A></SPAN>"; print "</div>\n"; print "</div>\n"; ### Moving Checklist #### print "<div style=\"position: absolute;top: 400px;left: 40px;width: 730px;height:88px;z-index: 3340; border: 1px black solid; background: #F3E2B4;\">\n"; print "<div style=\"position: absolute;top: 1px;left: 1px;width: 73px;height:73px;z-index: 3345; border: 0px black solid;\"><IMG SRC=\"/Images/placeholder.png\" WIDTH=100% HEIGHT=100%></div>\n"; print "<div style=\"position: absolute;top: 1px;left: 85px;width: 500px;height:20px;z-index: 3346; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\">Home Warranty</SPAN></div>\n"; print "<div style=\"position: absolute;top: 32px;left: 85px;width: 600px;height:50px;z-index: 3347; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">Frequently Asked Questions about home buying, financing, qualifying including information on buying foreclosures and short sales.</SPAN></div>\n"; print "</div>\n"; ### Title Services #### print "<div style=\"position: absolute;top: 500px;left: 40px;width: 730px;height:88px;z-index: 3350; border: 1px black solid; background: #F3E2B4;\">\n"; print "<div style=\"position: absolute;top: 1px;left: 1px;width: 73px;height:73px;z-index: 3355; border: 0px black solid;\"><IMG SRC=\"/Images/placeholder.png\" WIDTH=100% HEIGHT=100%></div>\n"; print "<div style=\"position: absolute;top: 1px;left: 85px;width: 500px;height:20px;z-index: 3356; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\">Moving Checklist</SPAN></div>\n"; print "<div style=\"position: absolute;top: 32px;left: 85px;width: 600px;height:50px;z-index: 3357; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">Frequently Asked Questions about home buying, financing, qualifying including information on buying foreclosures and short sales.</SPAN></div>\n"; print "</div>\n"; ### Find My Dream Home #### print "<div style=\"position: absolute;top: 600px;left: 40px;width: 730px;height:88px;z-index: 3360; border: 1px black solid; background: #F3E2B4;\">\n"; print "<div style=\"position: absolute;top: 1px;left: 1px;width: 73px;height:73px;z-index: 3365; border: 0px black solid;\"><IMG SRC=\"/Images/placeholder.png\" WIDTH=100% HEIGHT=100%></div>\n"; print "<div style=\"position: absolute;top: 1px;left: 85px;width: 500px;height:20px;z-index: 3366; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\">Help Me Relocate</SPAN></div>\n"; print "<div style=\"position: absolute;top: 32px;left: 85px;width: 600px;height:50px;z-index: 3367; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">As a seasoned veteran and SF Bay Area native my unique knowledge will ensure you relocation experience is productive and no hassel.</SPAN></div>\n"; print "</div>\n"; ### Help Me Relocate #### print "<div style=\"position: absolute;top: 700px;left: 40px;width: 730px;height:88px;z-index: 3370; border: 1px black solid; background: #F3E2B4;\">\n"; print "<div style=\"position: absolute;top: 1px;left: 1px;width: 73px;height:73px;z-index: 3375; border: 0px black solid;\"><IMG SRC=\"/Images/placeholder.png\" WIDTH=100% HEIGHT=100%></div>\n"; print "<div style=\"position: absolute;top: 1px;left: 85px;width: 500px;height:20px;z-index: 3376; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\"><A HREF=\"http://www.agentrobin.com/main.pl?Property\">Find My Dream Home</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 32px;left: 85px;width: 600px;height:50px;z-index: 3377; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">Frequently Asked Questions about home buying, financing, qualifying including information on buying foreclosures and short sales.</SPAN></div>\n"; print "</div>\n"; print "</div>\n"; print "\n"; } ####### SELLER MAIN PAGE #################################################################################################### sub sellermainpage() { ### This subroutine sets up the visual elements for the community page print "<div id=\"bimage\">\n"; ### DIV Container ALignment print "<div style=\"position: absolute;top: 0px;left: 0px;width: 829px;height:586px;z-index: 300; border: 0px black solid;\">\n"; BuildQSelectForm("6px","400px","400px","40px","439","0px black solid", "#F3E2B4"); ### Community Name Overlay print "<div style=\"position: absolute;top: 35px;left: 0px;width: 830px;height:28px;z-index: 3302; border: 0px black solid; text-align: center; background: #DEAE44\"><IMG NAME=\"blks3\" style=\"opacity:1.00;filter:alpha(opacity=70)\" SRC=\"/Images/seller.png\"></div>\n"; print "<div style=\"position: absolute;top: 61px;left: 0px;width: 828px;height:2px;z-index: 13303; border: 0px black solid; text-align: center; background: #383838;\"></div>\n"; ### CMA Option #### print "<div style=\"position: absolute;top: 100px;left: 40px;width: 730px;height:88px;z-index: 3310; border: 1px black solid; background: #F3E2B4;\">\n"; print "<div style=\"position: absolute;top: 1px;left: 1px;width: 73px;height:73px;z-index: 3315; border: 0px black solid;\"><IMG SRC=\"/Images/placeholder.png\" WIDTH=100% HEIGHT=100%></div>\n"; print "<div style=\"position: absolute;top: 1px;left: 85px;width: 500px;height:20px;z-index: 3316; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\">Current Market Analysis (CMA) Report</SPAN></div>\n"; print "<div style=\"position: absolute;top: 32px;left: 85px;width: 600px;height:50px;z-index: 3317; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">If your planning to sell your home or just curious what your home's current value is this Market Analysis Report will give you some insight. A comprehensive Analysis of the market conditions in and around your area which are affecting real estate prices. Click here for your free report!</SPAN></div>\n"; print "</div>\n"; ### Home Sellers FAQ #### $burl = $Baseweb . "/Main.pl?HLFunction=Seller2"; print "<div style=\"position: absolute;top: 200px;left: 40px;width: 730px;height:88px;z-index: 3320; border: 1px black solid; background: #F3E2B4;\">\n"; print "<div style=\"position: absolute;top: 1px;left: 1px;width: 73px;height:73px;z-index: 3325; border: 0px black solid;\"><IMG SRC=\"/Images/placeholder.png\" WIDTH=100% HEIGHT=100%></div>\n"; print "<div style=\"position: absolute;top: 1px;left: 85px;width: 500px;height:20px;z-index: 3326; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\"><A HREF=\"$burl\">Home Sellers FAQ</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 32px;left: 85px;width: 600px;height:50px;z-index: 3327; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">Frequently Asked Questions about home buying, financing, qualifying including information on buying foreclosures and short sales.</SPAN></div>\n"; print "</div>\n"; ### Home Sellers Tips #### print "<div style=\"position: absolute;top: 300px;left: 40px;width: 730px;height:88px;z-index: 3330; border: 1px black solid; background: #F3E2B4;\">\n"; print "<div style=\"position: absolute;top: 1px;left: 1px;width: 73px;height:73px;z-index: 3335; border: 0px black solid;\"><IMG SRC=\"/Images/placeholder.png\" WIDTH=100% HEIGHT=100%></div>\n"; print "<div style=\"position: absolute;top: 1px;left: 85px;width: 500px;height:20px;z-index: 3336; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\">Home Sellers Tips</SPAN></div>\n"; print "<div style=\"position: absolute;top: 32px;left: 85px;width: 600px;height:50px;z-index: 3337; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">Frequently Asked Questions about home buying, financing, qualifying including information on buying foreclosures and short sales.</SPAN></div>\n"; print "</div>\n"; ### Moving Checklist #### print "<div style=\"position: absolute;top: 400px;left: 40px;width: 730px;height:88px;z-index: 3340; border: 1px black solid; background: #F3E2B4;\">\n"; print "<div style=\"position: absolute;top: 1px;left: 1px;width: 73px;height:73px;z-index: 3345; border: 0px black solid;\"><IMG SRC=\"/Images/placeholder.png\" WIDTH=100% HEIGHT=100%></div>\n"; print "<div style=\"position: absolute;top: 1px;left: 85px;width: 500px;height:20px;z-index: 3346; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\">Moving Checklist</SPAN></div>\n"; print "<div style=\"position: absolute;top: 32px;left: 85px;width: 600px;height:50px;z-index: 3347; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">Frequently Asked Questions about home buying, financing, qualifying including information on buying foreclosures and short sales.</SPAN></div>\n"; print "</div>\n"; ### Title Services #### # print "<div style=\"position: absolute;top: 500px;left: 40px;width: 730px;height:88px;z-index: 3350; border: 1px black solid; background: #F3E2B4;\">\n"; # print "<div style=\"position: absolute;top: 1px;left: 1px;width: 73px;height:73px;z-index: 3355; border: 0px black solid;\"><IMG SRC=\"/Images/placeholder.png\" WIDTH=100% HEIGHT=100%></div>\n"; # print "<div style=\"position: absolute;top: 1px;left: 85px;width: 500px;height:20px;z-index: 3356; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\">Moving Checklist</SPAN></div>\n"; # print "<div style=\"position: absolute;top: 32px;left: 85px;width: 600px;height:50px;z-index: 3357; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">Frequently Asked Questions about home buying, financing, qualifying including information on buying foreclosures and short sales.</SPAN></div>\n"; # # print "</div>\n"; ### Find My Dream Home #### # print "<div style=\"position: absolute;top: 600px;left: 40px;width: 730px;height:88px;z-index: 3360; border: 1px black solid; background: #F3E2B4;\">\n"; # print "<div style=\"position: absolute;top: 1px;left: 1px;width: 73px;height:73px;z-index: 3365; border: 0px black solid;\"><IMG SRC=\"/Images/placeholder.png\" WIDTH=100% HEIGHT=100%></div>\n"; # print "<div style=\"position: absolute;top: 1px;left: 85px;width: 500px;height:20px;z-index: 3366; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\">Help Me Relocate</SPAN></div>\n"; # print "<div style=\"position: absolute;top: 32px;left: 85px;width: 600px;height:50px;z-index: 3367; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">As a seasoned veteran and SF Bay Area native my unique knowledge will ensure you relocation experience is productive and no hassel.</SPAN></div>\n"; # # print "</div>\n"; ### Help Me Relocate #### # print "<div style=\"position: absolute;top: 700px;left: 40px;width: 730px;height:88px;z-index: 3370; border: 1px black solid; background: #F3E2B4;\">\n"; # print "<div style=\"position: absolute;top: 1px;left: 1px;width: 73px;height:73px;z-index: 3375; border: 0px black solid;\"><IMG SRC=\"/Images/placeholder.png\" WIDTH=100% HEIGHT=100%></div>\n"; # print "<div style=\"position: absolute;top: 1px;left: 85px;width: 500px;height:20px;z-index: 3376; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\"><A HREF=\"http://www.agentrobin.com/main.pl?Property\">Find My Dream Home</A></SPAN></div>\n"; # print "<div style=\"position: absolute;top: 32px;left: 85px;width: 600px;height:50px;z-index: 3377; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">Frequently Asked Questions about home buying, financing, qualifying including information on buying foreclosures and short sales.</SPAN></div>\n"; # # print "</div>\n"; print "</div>\n"; print "\n"; } ################################################################################################################################### ####### TOOLS MAIN PAGE #################################################################################################### sub toolsmainpage() { ### This subroutine sets up the visual elements for the community page print "<div id=\"bimage\">\n"; ### DIV Container ALignment print "<div style=\"position: absolute;top: 0px;left: 0px;width: 829px;height:586px;z-index: 300; border: 0px black solid;\">\n"; ### Quick Select Form BuildQSelectForm("6px","400px","400px","40px","439","0px black solid", "#F3E2B4"); ### Community Name Overlay print "<div style=\"position: absolute;top: 33px;left: 0px;width: 828px;height:28px;z-index: 13302; border: 0px black solid; text-align: center; background: #B98927;\"><IMG NAME=\"blks3\" style=\"opacity:1.00;filter:alpha(opacity=70)\" SRC=\"/Images/tools.png\"></div>\n"; print "<div style=\"position: absolute;top: 61px;left: 0px;width: 828px;height:2px;z-index: 13303; border: 0px black solid; text-align: center; background: #383838;\"></div>\n"; ### Buyers FAQ #### print "<div style=\"position: absolute;top: 75px;left: 40px;width: 730px;height:160px;z-index: 3310; border: 1px black solid; background: #F3E2B4;\">\n"; print "<div style=\"position: absolute;top: 1px;left: 1px;width: 115px;height:160px;z-index: 3315; border: 0px black solid;\"><IMG SRC=\"/Images/loancalc.png\" WIDTH=100% HEIGHT=100%></div>\n"; print "<div style=\"position: absolute;top: 1px;left: 135px;width: 500px;height:20px;z-index: 3316; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\">Loan Calculator</SPAN></div>\n"; print "<div style=\"position: absolute;top: 32px;left: 135px;width: 600px;height:50px;z-index: 3317; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">Frequently Asked Questions about home buying, financing, qualifying including information on buying foreclosures and short sales.</SPAN></div>\n"; print "</div>\n"; ### Home Inspection #### print "<div style=\"position: absolute;top: 300px;left: 40px;width: 730px;height:88px;z-index: 3330; border: 1px black solid; background: #F3E2B4;\">\n"; print "<div style=\"position: absolute;top: 1px;left: 1px;width: 73px;height:73px;z-index: 3335; border: 0px black solid;\"><IMG SRC=\"/Images/placeholder.png\" WIDTH=100% HEIGHT=100%></div>\n"; print "<div style=\"position: absolute;top: 1px;left: 85px;width: 500px;height:20px;z-index: 3336; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\">Home Sellers Tips</SPAN></div>\n"; print "<div style=\"position: absolute;top: 32px;left: 85px;width: 600px;height:50px;z-index: 3337; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">Frequently Asked Questions about home buying, financing, qualifying including information on buying foreclosures and short sales.</SPAN></div>\n"; print "</div>\n"; ### Moving Checklist #### print "<div style=\"position: absolute;top: 400px;left: 40px;width: 730px;height:88px;z-index: 3340; border: 1px black solid; background: #F3E2B4;\">\n"; print "<div style=\"position: absolute;top: 1px;left: 1px;width: 73px;height:73px;z-index: 3345; border: 0px black solid;\"><IMG SRC=\"/Images/placeholder.png\" WIDTH=100% HEIGHT=100%></div>\n"; print "<div style=\"position: absolute;top: 1px;left: 85px;width: 500px;height:20px;z-index: 3346; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\">Moving Checlist</SPAN></div>\n"; print "<div style=\"position: absolute;top: 32px;left: 85px;width: 600px;height:50px;z-index: 3347; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">Frequently Asked Questions about home buying, financing, qualifying including information on buying foreclosures and short sales.</SPAN></div>\n"; print "</div>\n"; ### Title Services #### # print "<div style=\"position: absolute;top: 500px;left: 40px;width: 730px;height:88px;z-index: 3350; border: 1px black solid; background: #F3E2B4;\">\n"; # print "<div style=\"position: absolute;top: 1px;left: 1px;width: 73px;height:73px;z-index: 3355; border: 0px black solid;\"><IMG SRC=\"/Images/placeholder.png\" WIDTH=100% HEIGHT=100%></div>\n"; # print "<div style=\"position: absolute;top: 1px;left: 85px;width: 500px;height:20px;z-index: 3356; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\">Moving Checklist</SPAN></div>\n"; # print "<div style=\"position: absolute;top: 32px;left: 85px;width: 600px;height:50px;z-index: 3357; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">Frequently Asked Questions about home buying, financing, qualifying including information on buying foreclosures and short sales.</SPAN></div>\n"; # # print "</div>\n"; ### Find My Dream Home #### # print "<div style=\"position: absolute;top: 600px;left: 40px;width: 730px;height:88px;z-index: 3360; border: 1px black solid; background: #F3E2B4;\">\n"; # print "<div style=\"position: absolute;top: 1px;left: 1px;width: 73px;height:73px;z-index: 3365; border: 0px black solid;\"><IMG SRC=\"/Images/placeholder.png\" WIDTH=100% HEIGHT=100%></div>\n"; # print "<div style=\"position: absolute;top: 1px;left: 85px;width: 500px;height:20px;z-index: 3366; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\">Help Me Relocate</SPAN></div>\n"; # print "<div style=\"position: absolute;top: 32px;left: 85px;width: 600px;height:50px;z-index: 3367; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">As a seasoned veteran and SF Bay Area native my unique knowledge will ensure you relocation experience is productive and no hassel.</SPAN></div>\n"; # # print "</div>\n"; ### Help Me Relocate #### # print "<div style=\"position: absolute;top: 700px;left: 40px;width: 730px;height:88px;z-index: 3370; border: 1px black solid; background: #F3E2B4;\">\n"; # print "<div style=\"position: absolute;top: 1px;left: 1px;width: 73px;height:73px;z-index: 3375; border: 0px black solid;\"><IMG SRC=\"/Images/placeholder.png\" WIDTH=100% HEIGHT=100%></div>\n"; # print "<div style=\"position: absolute;top: 1px;left: 85px;width: 500px;height:20px;z-index: 3376; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: 1.3em; font-color:black;\"><A HREF=\"http://www.agentrobin.com/main.pl?Property\">Find My Dream Home</A></SPAN></div>\n"; # print "<div style=\"position: absolute;top: 32px;left: 85px;width: 600px;height:50px;z-index: 3377; border: 0px black solid; text-align:left;\"><SPAN style=\"font-family: helvetica; font-size: .80em; font-color:black;\">Frequently Asked Questions about home buying, financing, qualifying including information on buying foreclosures and short sales.</SPAN></div>\n"; # # print "</div>\n"; print "</div>\n"; print "\n"; } ################################################################################################################################### sub BuildQSelectForm() { $CCount= @Communities; $TP = @_[0]; $LF = @_[1]; $WD = @_[2]; $HT = @_[3]; $ZZ = @_[4]; $BD = @_[5]; $BC = @_[6]; $style = "position: absolute; top: " . $TP . "; left: " . $LF . "; Width: " . $WD . "; Height: ". $HT . "; z-index: " . $ZZ . "; border: " . $BD . ";"; $BSearch1="http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City="; $BSearch2="&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y&FC=N"; $SearchURL = $BaseSearch . "city=Danville&state=CA&npp=32"; $HOTSearch = "http://www.homesopentoday.com/search/results?cities[]="; print "<div style=\"position: absolute;top: 0px;left: 0px;width: 828px;height:3px;z-index: 13307; border: 0px black solid; text-align: center; background: #383838;\"></div>\n"; print "<div style=\"position: absolute;top: 32px;left: 0px;width: 828px;height:2px;z-index: 13320; border: 0px black solid; text-align: center; background: #383838;\"></div>\n"; print " <div NAME=\"DIV to Hold all the Uick Select Items\" id=\"mainQSBar\" style=\"background: $BC;\">\n"; print " <div NAME=\"DIV for Quick Select TExt\" style=\"position: absolute;top: 6px;left: 20px;width: 360px;height:20px;z-index: 456; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: .7em;\">QUICK LINKS TO PROPERTY SEARCH AND MARKET DATA \>\>\></SPAN></DIV>\n"; print " <div NAME=\"DIV for QUICK SELECT BOX\" style=\"$style\">\n"; print " <FORM name=\"QSForm\" action=\"../\">\n"; print " <SELECT style=\"background-color: #C3A35D\" NAME=\"QSOption\" onchange=\"location=this.options[selectedIndex].value\;\">\n"; print " <OPTION value=\"#\">--------------------------------- Quick Links --------------------------------</OPTION>\n"; print " <OPTGROUP LABEL=\"Tri-Valley Properties for Sell\">\n"; for ($X=0; $x<=$CCount-1; $x++) { $BSearch1="http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City="; $BSearch2="&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y&FC=N"; # $QSSearchStr = $BaseSearch . "city=" . $Communities[$x] . "&state=CA&npp=32"; $QSSearchStr = $BSearch1 . $Communities[$x] . $BSearch2; print " <OPTION value=\"$QSSearchStr\">$Communities[$x] Properties for Sale</OPTION>\n"; } print " </OPTGROUP>\n"; print " <OPTGROUP LABEL=\"Property Foreclosures\">\n"; for ($y=0; $y<=$CCount-1; $y++) { $BSearch1="http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City="; $BSearch2="&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y&FC=Y"; # $QSSearchStr = $BaseSearch . "city=" . $Communities[$y] . "&state=CA&npp=32&foreclosure=y"; $QSSearchStr = $BSearch1 . $Communities[$y] . $BSearch2; print " <OPTION value=\"$QSSearchStr\">$Communities[$y] Foreclosures</OPTION>\n"; } print " </OPTGROUP>\n"; print " <OPTGROUP LABEL=\"Current Open Houses\">\n"; for ($a=0; $a<=$CCount-1; $a++) { $HOTSearchStr = $HOTSearch . $Communities[$a]; print " <OPTION value=\"$HOTSearchStr\">$Communities[$a] Open Houses</OPTION>\n"; } print " </OPTGROUP>\n"; print " </SELECT>\n"; print " </FORM>\n"; print " </div>\n"; # $style2="top: " . $TP . "; left: " . $LF . "; Width: " . $WD . "; Height: ". $HT . "; z-index: " . $ZZ . "; border: " . $BD . ";"; print " </div>\n"; } ################################################################################################################################### sub BuildQSelectFormUnformat() { $CCount= @Communities; $TP = @_[0]; $LF = @_[1]; $WD = @_[2]; $HT = @_[3]; $ZZ = @_[4]; $BD = @_[5]; $BC = @_[6]; $style = "position: absolute; top: " . $TP . "; left: " . $LF . "; Width: " . $WD . "; Height: ". $HT . "; z-index: " . $ZZ . "; border: " . $BD . ";"; $BSearch1="http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City="; $BSearch2="&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#"; $SearchURL = $BaseSearch . "city=Danville&state=CA&npp=32"; $HOTSearch = "http://www.homesopentoday.com/search/results?cities[]="; print "<div style=\"position: absolute;top: 136px;left: 184px;width: 830px;height:2px;z-index: 13307; border: 0px black solid; text-align: center; background: #383838;\"></div>\n"; print "<div style=\"position: absolute;top: 168px;left: 184px;width: 830px;height:2px;z-index: 13307; border: 0px black solid; text-align: center; background: #383838;\"></div>\n"; print " <div NAME=\"DIV to Hold all the Uick Select Items\" id=\"mainQSBarUn\" style=\"background: $BC;\">\n"; print " <div NAME=\"DIV for Quick Select TExt\" style=\"position: absolute;top: 6px;left: 20px;width: 360px;height:20px;z-index: 456; border: 0px black solid;\"><SPAN style=\"font-family: helvetica; font-size: 1em; font-decoration: underline; font-weight: bold;\">Quick Property Sales and Market Reports \>\>\></SPAN></DIV>\n"; print " <div NAME=\"DIV for QUICK SELECT BOX\" style=\"$style\">\n"; print " <FORM name=\"QSForm\" action=\"../\">\n"; print " <SELECT style=\"background-color: #C3A35D\" NAME=\"QSOption\" onchange=\"location=this.options[selectedIndex].value\;\">\n"; print " <OPTION value=\"#\">--------------------------------- Quick Links --------------------------------</OPTION>\n"; print " <OPTGROUP LABEL=\"Tri-Valley Properties for Sell\">\n"; for ($X=0; $x<=$CCount-1; $x++) { $BSearch1="http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City="; $BSearch2="&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y&FC=N"; # $QSSearchStr = $BaseSearch . "city=" . $Communities[$x] . "&state=CA&npp=32"; $QSSearchStr = $BSearch1 . $Communities[$x] . $BSearch2; print " <OPTION value=\"$QSSearchStr\">$Communities[$x] Properties for Sale</OPTION>\n"; } print " </OPTGROUP>\n"; print " <OPTGROUP LABEL=\"Property Foreclosures\">\n"; for ($y=0; $y<=$CCount-1; $y++) { $BSearch1="http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City="; $BSearch2="&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y&FC=Y"; # $QSSearchStr = $BaseSearch . "city=" . $Communities[$y] . "&state=CA&npp=32&foreclosure=y"; $QSSearchStr = $BSearch1 . $Communities[$y] . $BSearch2; print " <OPTION value=\"$QSSearchStr\">$Communities[$y] Foreclosures</OPTION>\n"; } print " </OPTGROUP>\n"; print " <OPTGROUP LABEL=\"Current Open Houses\">\n"; for ($a=0; $a<=$CCount-1; $a++) { $HOTSearchStr = $HOTSearch . $Communities[$a]; print " <OPTION value=\"$HOTSearchStr\">$Communities[$a] Open Houses</OPTION>\n"; } print " </OPTGROUP>\n"; print " </SELECT>\n"; print " </FORM>\n"; print " </div>\n"; # $style2="top: " . $TP . "; left: " . $LF . "; Width: " . $WD . "; Height: ". $HT . "; z-index: " . $ZZ . "; border: " . $BD . ";"; print " </div>\n"; } sub citymarketstatus(){ $SQLSUM="SELECT * FROM PropMLS WHERE (Status = 'ACTV' OR Status = 'NEW' OR Status = 'PCH' OR Status = 'BOMK') AND Price > 15000"; # 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($SQLSUM); $position = 1; $dancount=0; $blacount=0; $alacount=0; $walcount=0; $sancount=0; $dubcount=0; $plecount=0; $dancount1=0; $blacount1=0; $alacount1=0; $walcount1=0; $sancount1=0; $dubcount1=0; $plecount1=0; while ($dbs->FetchRow()){ @data=$dbs->Data(); if (lc($data[3]) eq "danville") { if ($data[23] eq "REO" || lc($data[23]) eq lc("POTENTIAL SHORT SALE")) { $dancount1++; $dancount++; } else { $dancount++; } } if (lc($data[3]) eq "blackhawk") { if ($data[23] eq "REO" || lc($data[23]) eq lc("POTENTIAL SHORT SALE")) { $blacount1++; $blacount++; } else {$blacount++; } } if (lc($data[3]) eq "alamo") { if ($data[23] eq "REO" || lc($data[23]) eq lc("POTENTIAL SHORT SALE")) { $alacount1++; $alacount++; } else {$alacount++;} } if (lc($data[3]) eq "san ramon") { if ($data[23] eq "REO" || lc($data[23]) eq lc("POTENTIAL SHORT SALE")) { $sancount1++; $sancount++; } else {$sancount++;} } if (lc($data[3]) eq "pleasanton") { if ($data[23] eq "REO" || lc($data[23]) eq lc("POTENTIAL SHORT SALE")) { $plecount1++; $plecount++; } else {$plecount++;} } if (lc($data[3]) eq "walnut creek") { if ($data[23] eq "REO" || lc($data[23]) eq lc("POTENTIAL SHORT SALE")) { $walcount1++; $walcount++; } else {$walcount++;} } if (lc($data[3]) eq "dublin") { if ($data[23] eq "REO" || lc($data[23]) eq lc("POTENTIAL SHORT SALE")) { $dubcount1++; $dubcount++; } else {$dubcount++;} } if ($position =~ "1") { $low = $data[4]; $high = $data[4]; $position =2; print "POSITION=1\n"; } else { if ($data[4] < $low) { $low=$data[4]; } if ($data[4] > $high) { $high=$data[4]; } } $rcount++; } print "<div style=\"position: absolute;top: 33px;left: 0px;width: 130px;height:70px;z-index: 43302; border: 1px #000074 solid; text-align: center; background: #D9C8AA url('/Images/.". $BGBack . "');\">\n"; print "<div style=\"position: absolute;top: 1px;left: 1px;width: 128px;height:20px;z-index: 43302; border: 0px black solid; text-align: center; \"><SPAN style=\"font-family: helvetica; font-size: 1em;\">Market Snapshot</SPAN></div>\n"; print "<div style=\"position: absolute;top: 24px;left: 1px;width: 128px;height:20px;z-index: 43302; border: 0px black solid; text-align: center;\"><SPAN style=\"font-family: helvetica; font-size: 1em;\">by City</SPAN></div>\n"; print "<div style=\"position: absolute;top: 24px;left: 95px;width: 40px;height:20px;z-index: 43306; border: 0px black solid; text-align: center;\"><SPAN style=\"font-family: helvetica; font-size: 1em;\"><IMG SRC=\"http://agentrobin.com//Images/arrowright.png\"></SPAN></div>\n"; print "<div style=\"position: absolute;top: 47px;left: 1px;width: 128px;height:20px;z-index: 43309; border: 0px black solid; text-align: center;\"><A HREF=\"http://agentrobin.com/main.pl?homevalue\"><SPAN style=\"font-family: helvetica; font-size: .8em;\">(Full Report)</SPAN></A></div>\n"; print "</div>\n"; $BGColor = "#FFFACD"; print "<div style=\"position: absolute;top: 33px;left: 131px;width: 696px;height:70px;z-index: 43302; border: 1px #000074 solid; text-align: center; background: #D9C8AA;\">\n"; print "<div style=\"position: absolute;top: 25px;left: 6px;width: 50px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: #919cD9 ; \"><SPAN style=\"font-family: helvetica; font-size: .7em; font-color: red;\" title=\"See All Homes for Sale in the specific area.\">For Sale</SPAN></div>\n"; print "<div style=\"position: absolute;top: 45px;left: 6px;width: 50px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: #919cD9 ; \"><SPAN style=\"font-family: helvetica; font-size: .7em; font-color: red;\" title=\"See Foreclosures and Short Sale Opportunities\">REO</SPAN></div>\n"; #### Danville print "<div style=\"position: absolute;top: 5px;left: 60px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: #919cD9 ;\"><SPAN style=\"font-family: helvetica; font-size: .8em; color: white;\" title=\"See All Homes for Sale in the Danville Area!.\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=Danville&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#\">Danville</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 25px;left: 60px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: red;\" title=\"See All Homes for Sale in the Danville Area!.\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=Danville&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#\">$dancount</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 45px;left: 60px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: red;\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=Danville&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y&FC=Y&REO=Y\">$dancount1</A></SPAN></div>\n"; #### Blackhawk print "<div style=\"position: absolute;top: 5px;left: 150px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: #919cD9 url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em;\" title=\"See All Homes for Sale in the Blackhawk Area!.\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=Blackhawk&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#\">BlackHawk</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 25px;left: 150px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: red;\" title=\"See All Homes for Sale in the Blackhawk Area!.\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=Blackhawk&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#\">$blacount</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 45px;left: 150px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: red;\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=Blackhawk&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y&FC=Y&REO=Y\">$blacount1</A></SPAN></div>\n"; #### Alamo print "<div style=\"position: absolute;top: 5px;left: 240px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: #919cD9 url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em;\" title=\"See All Homes for Sale in the Alamo Area!.\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=Alamo&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#\">Alamo</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 25px;left: 240px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: red;\" title=\"See All Homes for Sale in the Alamo Area!.\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=Alamo&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#\">$alacount</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 45px;left: 240px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: red;\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=Alamo&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y&FC=Y&REO=Y\">$alacount1</A></SPAN></div>\n"; #### San Ramon print "<div style=\"position: absolute;top: 5px;left: 330px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: #919cD9 url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em;\" title=\"See All Homes for Sale in the San Ramon Area!.\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=San Ramon&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#\">San Ramon</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 25px;left: 330px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: red;\" title=\"See All Homes for Sale in the San Ramon Area!.\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=San Ramon&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#\">$sancount</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 45px;left: 330px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: red;\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=San Ramon&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y&FC=Y&REO=Y\">$sancount1</A></SPAN></div>\n"; #### Dublin print "<div style=\"position: absolute;top: 5px;left: 420px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: #919cD9 url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em;\" title=\"See All Homes for Sale in the Dublin Area!.\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=Dublin&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#\">Dublin</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 25px;left: 420px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: red;\" title=\"See All Homes for Sale in the Dublin Area!.\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=Dublin&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#\">$dubcount</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 45px;left: 420px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: red;\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=Dublin&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y&FC=Y&REO=Y\">$dubcount1</A></SPAN></div>\n"; #### Pleasanton print "<div style=\"position: absolute;top: 5px;left: 510px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: #919cD9 url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em;\" title=\"See All Homes for Sale in the Pleasanton Area!.\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=Pleasanton&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#\">Pleasanton</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 25px;left: 510px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: red;\" title=\"See All Homes for Sale in the Pleasanton Area!.\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=Pleasanton&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#\">$plecount</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 45px;left: 510px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: red;\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=Pleasanton&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y&FC=Y&REO=Y\">$plecount1</A></SPAN></div>\n"; #### Walnut print "<div style=\"position: absolute;top: 5px;left: 600px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: #919cD9 url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em;\" title=\"See All Homes for Sale in the Walnut Creek Area!.\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=Walnut Creek&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#\">Walnut Creek</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 25px;left: 600px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: red;\" title=\"See All Homes for Sale in the Walnut Creek Area!.\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=Walnut Creek&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#\">$walcount</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 45px;left: 600px;width: 90px;height:16px;z-index: 43302; border: 1px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em; font-color: red;\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=Walnut Creek&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y&FC=Y&REO=Y\">$walcount1</A></SPAN></div>\n"; print "</div>\n"; # print "$low\n"; # print "$high\n"; # print "Total for sale: $rcount\n"; # print "2 Bedrooms : $bcount1\n"; # print "3 Bedrooms : $bcount2\n"; # print "4 Bedrooms : $bcount3\n"; # print "5+ Bedrooms : $bcount4\n"; $dbs->Close(); } sub marketstatus(){ $City = @_[0]; $SQLSUM="SELECT * FROM PropMLS WHERE Area='$City' AND (Status = 'ACTV' OR Status = 'NEW' OR Status = 'PCH') AND Price > 15000"; # 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($SQLSUM); $position = 1; $rcount=0; while ($dbs->FetchRow()){ @data=$dbs->Data(); if ($data[0] eq "40500047") { print "FOUND IT\n"; } if ($position =~ "1") { $low = $data[4]; $high = $data[4]; $position =2; print "POSITION=1\n"; } else { if ($data[4] < $low) { $low=$data[4]; } if ($data[4] > $high) { $high=$data[4]; } } $rcount++; } $bcount1=0; $SQLS1 ="SELECT * FROM PropMLS WHERE Area='$City' AND (Status = 'ACTV' OR Status = 'NEW' OR Status = 'PCH' OR Status = 'BOMK') AND Price > 15000 AND Bed=2"; $rcs=$dbs->Sql($SQLS1); while ($dbs->FetchRow()){ $bcount1++; } $bcount2=0; $SQLS2 ="SELECT * FROM PropMLS WHERE Area='$City' AND (Status = 'ACTV' OR Status = 'NEW' OR Status = 'PCH' OR Status = 'BOMK') AND Price > 15000 AND Bed=3"; $rcs=$dbs->Sql($SQLS2); while ($dbs->FetchRow()){ $bcount2++; } $bcount3=0; $SQLS3 ="SELECT * FROM PropMLS WHERE Area='$City' AND (Status = 'ACTV' OR Status = 'NEW' OR Status = 'PCH' OR Status = 'BOMK') AND Price > 15000 AND Bed=4"; $rcs=$dbs->Sql($SQLS3); while ($dbs->FetchRow()){ $bcount3++; } $bcount4=0; $SQLS4 ="SELECT * FROM PropMLS WHERE Area='$City' AND (Status = 'ACTV' OR Status = 'NEW' OR Status = 'PCH' OR Status = 'BOMK') AND Price > 15000 AND Bed>=5"; $rcs=$dbs->Sql($SQLS4); while ($dbs->FetchRow()){ $bcount4++; } print "<div style=\"position: absolute;top: 175px;left: 184px;width: 150px;height:70px;z-index: 43302; border: 1px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\">\n"; print "<div style=\"position: absolute;top: 1px;left: 1px;width: 146px;height:20px;z-index: 43302; border: 0px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: 1em;\">$City</SPAN></div>\n"; print "<div style=\"position: absolute;top: 24px;left: 1px;width: 146px;height:20px;z-index: 43302; border: 0px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: 1em;\">Market Snapshot</SPAN></div>\n"; print "<div style=\"position: absolute;top: 47px;left: 1px;width: 146px;height:20px;z-index: 43302; border: 0px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .8em;\"><A HREF=\"http://agentrobin.com/main.pl?homevalue\">(Full Report)</A></SPAN></div>\n"; print "</div>\n"; print "<div style=\"position: absolute;top: 175px;left: 334px;width: 272px;height:70px;z-index: 43302; border: 1px black solid; text-align: center; background: $BGColor url('/Images/Marketback.png');\">\n"; print "<div style=\"position: absolute;top: 13px;left: 10px;width: 90px;height:20px;z-index: 43302; border: 1px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: 1em;\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=$City&MinBed=1&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#\">FOR SALE</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 32px;left: 10px;width: 90px;height:20px;z-index: 43302; border: 1px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: 1em; font-color: red;\">$rcount</SPAN></div>\n"; print "<div style=\"position: absolute;top: 0px;left: 120px;width: 90px;height:20px;z-index: 43302; border: 0px black solid; text-align: left; background: $BGColor1 url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=$City&MinBed=2&MaxBed=2&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#\">2 Bedrooms</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 17px;left: 120px;width: 90px;height:20px;z-index: 43302; border: 0px black solid; text-align: left; background: $BGColor1 url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=$City&MinBed=3&MaxBed=3&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#\">3 Bedrooms</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 33px;left: 120px;width: 90px;height:20px;z-index: 43302; border: 0px black solid; text-align: left; background: $BGColor1 url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=$City&MinBed=4&MaxBed=4&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#\">4 Bedrooms</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 49px;left: 120px;width: 90px;height:20px;z-index: 43302; border: 0px black solid; text-align: left; background: $BGColor1 url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=PropertySearch&City=$City&MinBed=5&MaxBed=9&MinBath=1&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y#\">5+ Bedrooms</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 0px;left: 220px;width: 20px;height:20px;z-index: 43302; border: 0px black solid; text-align: left; background: $BGColor1 url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\">$bcount1</SPAN></div>\n"; print "<div style=\"position: absolute;top: 17px;left: 220px;width: 20px;height:20px;z-index: 43302; border: 0px black solid; text-align: left; background: $BGColor1 url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\">$bcount2</SPAN></div>\n"; print "<div style=\"position: absolute;top: 33px;left: 220px;width: 20px;height:20px;z-index: 43302; border: 0px black solid; text-align: left; background: $BGColor1 url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\">$bcount3</A></SPAN></div>\n"; print "<div style=\"position: absolute;top: 49px;left: 220px;width: 20px;height:20px;z-index: 43302; border: 0px black solid; text-align: left; background: $BGColor1 url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\">$bcount4</A></SPAN></div>\n"; print "</div>\n"; # print "$low\n"; # print "$high\n"; # print "Total for sale: $rcount\n"; # print "2 Bedrooms : $bcount1\n"; # print "3 Bedrooms : $bcount2\n"; # print "4 Bedrooms : $bcount3\n"; # print "5+ Bedrooms : $bcount4\n"; $dbs->Close(); } sub pageidentifier(){ $BGColor = @_[0]; $BGBack = @_[1]; $DType = @_[2]; $Label10 = @_[3]; if ($Label10 eq "P") { print "<div style=\"position: absolute;top: 35px;left: 0px;width: 828px;height:28px;z-index: 13302; border: 0px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><IMG NAME=\"blks3\" style=\"opacity:1.00;filter:alpha(opacity=70)\" SRC=\"/Images/$Label10\"></div>\n"; } else { print "<div style=\"position: absolute;top: 35px;left: 0px;width: 828px;height:28px;z-index: 13302; border: 0px black solid; text-align: center; background: $BGColor url('/Images/.". $BGBack . "');\"><SPAN style=\"font-family: helvetica; font-size: 1.5em; font-weight: bold; font-decoration: italic;\">$Label10</SPAN></div>\n"; } print "<div style=\"position: absolute;top: 63px;left: 0px;width: 828px;height:2px;z-index: 13303; border: 0px black solid; text-align: center; background: #383838;\"></div>\n"; } sub zillowaddon1() { ### Zillow Test print "<div style=\"position: absolute; z-index: 50000; top: 136px; left:184px; width:830px;height:830px;border:1px solid #adcfff;padding:0;overflow:hidden;text-align:center;font-family:verdana,arial,sans-serif;font-size:8pt;line-height:13px;background-color:#eff3ff;letter-spacing:0;text-transform:none; border: 1px solid black;\">\n"; print " <div style=\"width:830px;padding:6px 0;text-align:center;height:14px;font-weight:bold;font-size:12px;overflow:hidden;color:#36b;\"> Homes For Sale in the Tri-Valley Area </div>\n"; print " <div style=\"width:830px;height:830px;text-align:center;font-family:verdana,arial,sans-serif;font-size:10px;background:white;\"> \n"; print " <iframe frameborder=\"0\" height=\"800\" scrolling=\"no\" width=\"830\" src=\"http://www.zillow.com/widgets/RegionWidgetMap.htm?h=830&rid=38134&w=830\"></iframe>\n"; print " </div> \n"; print " <div style=\"height:42px;width:598px;\"> <div style=\"display:table;overflow:hidden;width:598px;height:28px;color:#36b;\">\n"; print " <div style=\"display:table-cell;vertical-align:middle;\">See these <a href=\"http://www.zillow.com/homes/for_sale/Danville-CA/#{scid=gen-wid-regmap}\" target=\"_blank\" style=\"color:#36b;display:inline-block;margin:0 auto;font-size:8pt;text-decoration:underline;\"> <span class='region'>Danville</span> Real Estate</a> on Zillow</div></div> <div><a href=\"http://www.zillow.com/webtools/widgets/map-widget.htm#{scid=gen-wid-regmap}\" target=\"_blank\" style=\"color:#36b;font-size:7pt;font-style:normal;font-weight:normal;text-decoration:none;\">Get this widget</a></div>\n"; print " </div> </div>\n"; } sub GMAP_DIV() { ### Zillow Test print "<div style=\"position:absolute; width: 830px; height: 98px; left:184px; top:136px; border: 1px solid black; background: #BD88AA url('/Images/marketback.png');\">\n"; print " <FORM Name=MapSearchForm Method=GET Action='http://agentrobin.com/Main.pl?MapView'>\n"; print "<INPUT TYPE='Hidden' NAME=HLFunction Value=MapView>\n"; print " <div style=\"position:absolute; top : 2px; left: 2px; width: 350px; height: 15px; border: 1px solid black; background: #BD88AA; text-align: center;\"><SPAN style=\"font-family: helvetica; font-size: .7em;\">PROPERTY SEARCH UPDATE</SPAN></div>\n"; print " <div style=\"position:absolute; top : 18px; left: 2px; width: 350px; height: 76px; border: 1px solid black; background: #BD88AA url('/Images/marketback.png');\">\n"; print " <div style=\"position:absolute; top : 3px; left: 15px; width: 72px; height: 15px; border: 0px solid black; background: #BD88AA url('/Images/marketback.png'); text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em;\">BEDROOMS</SPAN></div>\n"; print " <div style=\"position:absolute; top : 3px; left: 93px; width: 15px; height: 15px; border: 0px solid black; background: #BD88AA url('/Images/marketback.png');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\">2</SPAN></div>\n"; print " <div style=\"position:absolute; top : 3px; left: 130px; width: 15px; height: 15px; border: 0px solid black; background: #BD88AA url('/Images/marketback.png');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\">3</SPAN></div>\n"; print " <div style=\"position:absolute; top : 3px; left: 170px; width: 15px; height: 15px; border: 0px solid black; background: #BD88AA url('/Images/marketback.png');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\">4</SPAN></div>\n"; print " <div style=\"position:absolute; top : 3px; left: 210px; width: 15px; height: 15px; border: 0px solid black; background: #BD88AA url('/Images/marketback.png');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\">5+</SPAN></div>\n"; if ($bed2 eq "Bed='0'") { print " <div style=\"position:absolute; top : 1px; left: 105px; width: 25px; height: 15px; border: 0px solid black; background: #BD88AA url('/Images/marketback.png');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\"><INPUT TYPE=CHECKBOX NAME=TWOBED></SPAN></div>\n"; } else { print " <div style=\"position:absolute; top : 1px; left: 105px; width: 25px; height: 15px; border: 0px solid black; background: #BD88AA url('/Images/marketback.png');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\"><INPUT TYPE=CHECKBOX NAME=TWOBED CHECKED></SPAN></div>\n"; } if ($bed3 eq "Bed='0'") { print " <div style=\"position:absolute; top : 1px; left: 145px; width: 25px; height: 15px; border: 0px solid black; background: #BD88AA url('/Images/marketback.png');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\"><INPUT TYPE=CHECKBOX NAME=THREEBED></SPAN></div>\n"; } else { print " <div style=\"position:absolute; top : 1px; left: 145px; width: 25px; height: 15px; border: 0px solid black; background: #BD88AA url('/Images/marketback.png');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\"><INPUT TYPE=CHECKBOX NAME=THREEBED CHECKED></SPAN></div>\n"; } if ($bed4 eq "Bed='0'") { print " <div style=\"position:absolute; top : 1px; left: 185px; width: 25px; height: 15px; border: 0px solid black; background: #BD88AA url('/Images/marketback.png');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\"><INPUT TYPE=CHECKBOX NAME=FOURBED></SPAN></div>\n"; } else { print " <div style=\"position:absolute; top : 1px; left: 185px; width: 25px; height: 15px; border: 0px solid black; background: #BD88AA url('/Images/marketback.png');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\"><INPUT TYPE=CHECKBOX NAME=FOURBED CHECKED></SPAN></div>\n"; } if ($bed5 eq "Bed='0'") { print " <div style=\"position:absolute; top : 1px; left: 225px; width: 25px; height: 15px; border: 0px solid black; background: #BD88AA url('/Images/marketback.png');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\"><INPUT TYPE=CHECKBOX NAME=FIVEBED></SPAN></div>\n"; } else { print " <div style=\"position:absolute; top : 1px; left: 225px; width: 25px; height: 15px; border: 0px solid black; background: #BD88AA url('/Images/marketback.png');\"><SPAN style=\"font-family: helvetica; font-size: .7em;\"><INPUT TYPE=CHECKBOX NAME=FIVEBED CHECKED></SPAN></div>\n"; } print " <div style=\"position:absolute; top : 25px; left: 15px; width: 72px; height: 15px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em;\">PRICE</SPAN></div>\n"; print " <div style=\"position:absolute; top : 25px; left: 88px; width: 25px; height: 15px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em;\">Min:</SPAN></div>\n"; print " <div style=\"position:absolute; top : 25px; left: 220px; width: 25px; height: 15px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em;\">Max:</SPAN></div>\n"; print " <div style=\"position:absolute; top : 22px; left: 115px; width: 80px; height: 15px; border: 0px solid black; background: #BD88AA url('/Images/marketback.png'); text-align: left;\">\n"; print " <SELECT NAME=MinPrice>\n"; $pval=100000; print " <OPTION>Any</OPTION>\n"; for ($a=0; $a <= 20; $a++) { if ($minprice eq $pval) { print " <OPTION SELECTED>$pval</OPTION>\n"; } else { print " <OPTION>$pval</OPTION>\n"; } $pval = $pval+50000; } print " </SELECT>\n"; print " </DIV>\n"; print " <div style=\"position:absolute; top : 22px; left: 250px; width: 80px; height: 15px; border: 0px solid black; background: #BD88AA url('/Images/marketback.png'); text-align: left;\">\n"; print " <SELECT NAME=MaxPrice>\n"; $pval=200000; print " <OPTION>Any</OPTION>\n"; for ($a=0; $a <= 20; $a++) { if ($maxprice eq $pval) { print " <OPTION SELECTED>$pval</OPTION>\n"; } else { print " <OPTION>$pval</OPTION>\n"; } $pval = $pval+50000; } print " </SELECT>\n"; print " </DIV>\n"; print " <div style=\"position:absolute; top : 50px; left: 15px; width: 80px; height: 15px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em;\">CITY</SPAN></div>\n"; #### This is the CIty Select Box print " <div style=\"position:absolute; top : 48px; left: 115px; width: 200px; height: 15px; border: 0px solid black; text-align: left;\">\n"; print " <SELECT NAME=City>\n"; $cnum= @Cities; print " <OPTION>Any</OPTION>\n"; for ($a=0; $a <= $cnum-1; $a++) { if ($arean eq $Cities[$a]) { print " <OPTION SELECTED>$Cities[$a]</OPTION>\n"; } else { print " <OPTION>$Cities[$a]</OPTION>\n"; } } print " </SELECT>\n"; print " </DIV>\n"; #### This is the Submit Button print " <div style=\"position:absolute; top : 48px; left: 250px; width: 240px; height: 15px; border: 0px solid black; text-align: left;\"><INPUT TYPE=SUBMIT VALUE=Search></DIV>\n"; ################ print " </DIV>\n"; print " </FORM>\n"; ######### This is the Total Number print " <div id='tnumber' style='position:absolute; width: 100px; height: 92px; left:360px; top:2px; border: 1px solid black;'></div>\n"; # print " </div>\n"; print " </div>\n"; ######### This is the DIV for the map print " <div id='map_canvas' style='position:absolute; width: 830px; height: 601px; left:184px; top:236px;'></div>\n"; print " </div>\n"; } sub GMAP_SCRIPT() { $MSQL = @_[0]; initMapMarker($MSQL); print " <script language='javascript' type='text/javascript'>\n"; print " var map;\n"; print " var HTMLString=[$HTAG];\n"; print " var gmarkers = [];\n"; print " var mPosition;\n"; print "\n"; print " function initialize() {\n"; print " map = new GMap2(document.getElementById('map_canvas'));\n"; if ($arean eq "Danville") { print " map.setCenter(new GLatLng(37.81873440, -121.99699401), 13);\n";} if ($arean eq "Pleasanton") { print " map.setCenter(new GLatLng(37.67050562, -121.88266754), 14);\n";} if ($arean eq "San Ramon") { print " map.setCenter(new GLatLng(37.77112181, -121.95528030), 14);\n";} if ($arean eq "Dublin") { print " map.setCenter(new GLatLng(37.70799806, -121.92798014), 14);\n";} if ($arean eq "Blackhawk") { print " map.setCenter(new GLatLng(37.80557957, -121.906013488), 14);\n";} if ($arean eq "Alamo") { print " map.setCenter(new GLatLng(37.844291462, -122.03038215), 14);\n";} if ($arean eq "Walnut Creek") { print " map.setCenter(new GLatLng(37.90411590, -122.04351425), 14);\n";} if ($arean eq "Any" | $arean eq "") { print " map.setCenter(new GLatLng(37.81873440, -121.99699401), 13);\n";} print " map.setMapType(G_NORMAL_MAP);\n"; print " map.setUIToDefault();\n"; # print " map.addControl(new GMapTypeControl());\n"; # print " map.addControl(new GLargeMapControl());\n"; # print " map.addControl(new GOverviewMapControl());\n"; # print " map.enableDoubleClickZoom();\n"; # print " var houseIcon = new GIcon(G_DEFAULT_ICON);\n"; print "\n\n\n\n"; print " function createMarker(point, number) {\n"; print " var houseIcon = new GIcon(G_DEFAULT_ICON);\n"; print " houseIcon.image = \"http://agentrobin.com/Images/houseicon2.png\";\n"; print " markerOptions = { icon:houseIcon };\n"; print " var marker = new GMarker(point, markerOptions);\n"; print " marker.value = number;\n"; print " GEvent.addListener(marker, \"click\", function() {\n"; print " var myHtml = HTMLString[number];\n"; print " map.openInfoWindowHtml(point, myHtml);\n"; print " });\n"; print " gmarkers[number] = marker;\n"; print " return marker;\n"; print " }\n"; print " function createMarker2(point, number) {\n"; print " var houseIcon1 = new GIcon(G_DEFAULT_ICON);\n"; print " houseIcon1.image = \"http://agentrobin.com/Images/houseicon4.png\";\n"; print " markerOptions = { icon:houseIcon1 };\n"; print " var marker = new GMarker(point, markerOptions);\n"; print " marker.value = number;\n"; print " GEvent.addListener(marker, \"click\", function() {\n"; print " var myHtml = HTMLString[number];\n"; print " map.openInfoWindowHtml(point, myHtml);\n"; print " });\n"; print " gmarkers[number] = marker;\n"; print " return marker;\n"; print " }\n"; print " function createMarker3(point, number) {\n"; print " var houseIcon5 = new GIcon(G_DEFAULT_ICON);\n"; print " houseIcon5.image = \"http://agentrobin.com/Images/houseicon5.png\";\n"; print " markerOptions = { icon:houseIcon5 };\n"; print " var marker = new GMarker(point, markerOptions);\n"; print " marker.value = number;\n"; print " GEvent.addListener(marker, \"click\", function() {\n"; print " var myHtml = HTMLString[number];\n"; print " map.openInfoWindowHtml(point, myHtml);\n"; print " });\n"; print " gmarkers[number] = marker;\n"; print " return marker;\n"; print " }\n"; print "\n\n\n\n"; GmapPoints($MSQL); print " }\n"; print "</script>\n"; print "</HEAD>\n"; print " <body onload='initialize()' onunload='GUnload()' style=\"background:#F3E2B4 url('/Images/parchback15.png') repeat-y center;\">\n"; } sub GmapPoints(){ @HSTR=""; $SQL=@_[0]; # print " var point = new GLatLng(37.804240,-121.987059);\n"; # print " map.addOverlay(createMarker(point, 1));\n"; #goto DOIT; $DSN="YFDH"; # $SQL= "SELECT * from PropMLS WHERE (Status='ACTV' OR Status='NEW' OR Status='BOMK' OR Status='PCH') AND Area='Danville'"; # fetch and display data, ensure user has requested some rows $dbq=new Win32::ODBC("DSN=YFDH;UID=aglogin;PWD=J0shKr1s"); #New instance if (! $dbq){ 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 $rc2=$dbq->Sql($SQL); #execute SQL query if ($rc2){ print "Error $rc getting $SQL from PropMLS"; } $count=0; while ($dbq->FetchRow()){ @data=$dbq->Data(); if ($data[31] eq "" || $data[32] eq "") { goto SKIPGPS; } $xpos = @data[31]; $ypos = @data[32]; $xurl = "MARKER $count"; ##### New stuff if (lc($data[2]) eq "detached" ) { if ($data[9] eq "ACTV" || $data[9] eq "BOMK" || $data[9] eq "PCH" || $data[9] eq "NEW" ) { print " var point = new GLatLng($xpos,$ypos);\n"; print " map.addOverlay(createMarker(point, $count));\n"; print " <!-- $data[5] $data[2] $data[9]-->\n"; } else { print " var point = new GLatLng($xpos,$ypos);\n"; print " map.addOverlay(createMarker3(point, $count));\n"; print " <!-- $data[5] $data[2] $data[9] -->\n"; } } else { if ($data[9] eq "ACTV" || $data[9] eq "BOMK" || $data[9] eq "PCH" || $data[9] eq "NEW" ) { print " var point = new GLatLng($xpos,$ypos);\n"; print " map.addOverlay(createMarker2(point, $count));\n"; print " <!-- $data[5] $data[2] $data[9] -->\n"; } else { print " var point = new GLatLng($xpos,$ypos);\n"; print " map.addOverlay(createMarker3(point, $count));\n"; print " <!-- $data[5] $data[2] $data[9] -->\n"; } } #### End New STuff # # if (lc($data[2]) eq "detached" && ($data[9] eq "ACTV" || $data[9] eq "BOMK" || $data[9] eq "PCH" || $data[9] eq "NEW" )) { # print " var point = new GLatLng($xpos,$ypos);\n"; # print " map.addOverlay(createMarker(point, $count));\n"; # print " <!-- $data[5] -->\n"; # } # # # if (lc($data[2]) eq "detached" && ($data[9] eq "AC" || $data[9] eq "PSB")) { # print " var point = new GLatLng($xpos,$ypos);\n"; # print " map.addOverlay(createMarker3(point, $count));\n"; # print " <!-- $data[5] -->\n"; # } # # if ((lc($data[2]) eq "condo") || (lc($data[2]) eq "townhouse") || (lc($data[2]) eq "patio home") || (lc($data[2]) eq "duet")) { # print " var point = new GLatLng($xpos,$ypos);\n"; # print " map.addOverlay(createMarker2(point, $count));\n"; # print " <!-- $data[5] -->\n"; # } $count++; SKIPGPS: } $tcount=$count; # print "<!-- I counted $tcount Records in the Point Positioning Routine -->\n"; print "\n"; $dbq->Close(); #DOIT: } sub initMapMarker(){ @HSTR=""; $SQL=@_[0]; # fetch and display data, ensure user has requested some rows $dbf=new Win32::ODBC("DSN=YFDH;UID=aglogin;PWD=J0shKr1s"); #New instance if (! $dbf){ print "Error opening data source $DSN $dbf"; } # Use $rc to check if we could query the database and $db to hold the SQL results $rc3=$dbf->Sql($SQL); #execute SQL query if ($rc3){ print "Error $rc getting $SQL from PropMLS"; } $count=0; $HTAG = ""; while ($dbf->FetchRow()){ @data=$dbf->Data(); if ($data[31] eq "" || $data[32] eq "") { goto SKIPGPS1; } $MLSID = $data[0]; $MLS1 = substr($MLSID, 0, 1); $MLS2 = substr($MLSID, 1, 1); $MLS3 = substr($MLSID, 2, 1); $MLS4 = substr($MLSID, 3, 1); $MLS5 = substr($MLSID, 4, 1); $MLS6 = substr($MLSID, 5, 1); $MLS7 = substr($MLSID, 6, 1); $MLS8 = substr($MLSID, 7, 1); $FSize = ".70em"; $IMGURL = "http://ca-ccar.photos.mlsfinder.com/thumbs/" . $MLS1 . "/" . $MLS2 . "/" . $MLS3 . "/" . $MLS4 . "/" . $MLS5 . "/" . $MLS6 . "/" . $MLS7 . "/" . $MLS8 . "/" . $MLSID . "-1.jpg"; $HTMLLine = "\"<br><br><br><br><br><div style='position:absolute; width: 80px; height: 60px; left:0px; top:-11px; border: 1px solid black;'><IMG SRC='$IMGURL' HEIGHT=100% WIDTH=100%></div>"; $price = $data[4]; $pricel = length($price); if ($pricel == 6) { $ff = substr($price,0,3); $ll=substr($price,3,3); $pvar = "\$ " . $ff . "," . $ll; } if ($pricel == 7) { $mm = substr($price,0,1); $ff = substr($price,1,3); $ll=substr($price,4,3); $pvar = "\$ " . $mm . "," . $ff . "," . $ll; } $LL = "<div style='position:absolute; width: 180px; height: 15px; left:90px; top:-11px; border: 0px solid black; text-align:left;'><SPAN style='font-family: helvetica; font-size: .8em; text-decoration: underline;'><B>$pvar</B></SPAN></DIV>"; $HTMLLine = $HTMLLine . $LL; $LL = "<div style='position:absolute; width: 180px; height: 15px; left:90px; top:12px; border: 0px solid black; text-align:left;'><SPAN style='font-family: helvetica; font-size: .6em;'><B>$data[5]</B></SPAN></DIV>"; $HTMLLine = $HTMLLine . $LL; $LL = "<div style='position:absolute; width: 180px; height: 15px; left:90px; top:25px; border: 0px solid black; text-align:left;'><SPAN style='font-family: helvetica; font-size: .6em;'><B>$data[6]</B></SPAN></DIV>"; $HTMLLine = $HTMLLine . $LL; $LL = "<div style='position:absolute; width: 180px; height: 15px; left:90px; top:38px; border: 0px solid black; text-align:left;'><SPAN style='font-family: helvetica; font-size: .6em;'><B>Bedrooms: $data[11] Bathrooms: $data[12]</B></SPAN></DIV>"; $HTMLLine = $HTMLLine . $LL; $LL = "<div style='position:absolute; width: 180px; height: 15px; left:90px; top:51px; border: 0px solid black; text-align:left;'><SPAN style='font-family: helvetica; font-size: .6em;'><B>Type: $data[2]</B></SPAN></DIV>"; $HTMLLine = $HTMLLine . $LL; $LL = "<div style='position:absolute; width: 80px; height: 15px; left:18px; top:52px; border: 0px solid black; text-align:left;'><SPAN style='font-family: helvetica; font-size: .6em;'><B>SqFt: $data[13] </B></SPAN></DIV>"; $HTMLLine = $HTMLLine . $LL; $LL = "<div style='position:absolute; width: 236px; height: 2px; left:-10px; top:66px; border: 0px solid black; text-align:left; background: black;'><SPAN style='font-family: helvetica; font-size: .6em;'></SPAN></DIV>"; $HTMLLine = $HTMLLine . $LL; #### These are the bottom HREFImages $AHREFURL = "http://agentrobin.com/?HLFunction=VP&MID=$MLSID"; $LL = "<div style='position:absolute; width: 80px; height: 25px; left:-10px; top:67px; border: 0px solid black; text-align:left;'><A HREF='$AHREFURL'><IMG SRC='http://agentrobin.com/Images/moreinfo.png'></A></DIV>"; $HTMLLine = $HTMLLine . $LL; $LL = "<div style='position:absolute; width: 157px; height: 25px; left:71px; top:67px; border: 0px solid black; text-align:left;'><IMG SRC='http://agentrobin.com/Images/callrobin.png'></DIV>"; $HTMLLine = $HTMLLine . $LL; $HTMLLine = $HTMLLine . "\""; if ($count > 0) { $HTAG = $HTAG . "," . "$HTMLLine"; } else { $HTAG = $HTMLLine; } $count++; SKIPGPS1: } $dbf->Close(); # print "<!-- I counted $count Records in the Point Positioning Routine -->\n"; } sub iFRMTools() { $url = @_[0]; print "<iframe name=mapframe1 src=\"$url\" style=\"position:absolute; width: 830px; height: 513px; left:184px; top:164px; border: 0px solid black; text-align:left; background: #FFFFFF; overflow: hidden;\">\n"; print "</iframe>\n"; } sub iFRM() { $url = @_[0]; print "<iframe name=mapframe1 src=\"$url\" style=\"position:absolute; width: 830px; height: 1036px; left:184px; top:164px; border: 0px solid black; text-align:left; background: #FFFFFF; overflow: hidden;\">\n"; print "</iframe>\n"; } sub iFRMSS() { $url = @_[0]; print "<iframe name=mapframe1 src=\"$url\" style=\"position:absolute; width: 830px; height: 1036px; left:184px; top:164px; border: 0px solid black; text-align:left; background: #FFFFFF; overflow: auto;\">\n"; print "</iframe>\n"; } sub iFRMcomm() { $url = @_[0]; print "<DIV style=\"position:absolute; width: 827px; height: 28px; left:185px; top:136px; border: 1px solid black; background: #000000 url('/Images/maroon.png');text-align: left; \"><A HREF=\"http://agentrobin.com/main.pl?Community\"><IMG SRC=\"http://agentrobin.com/Images/backcomm.png\"></A></DIV>\n"; print "<iframe name=mapframe1 src=\"$url\" style=\"position:absolute; width: 830px; height: 2048px; left:184px; top:164px; border: 0px solid black; text-align:left; background: #FFFFFF; overflow: auto;\">\n"; print "</iframe>\n"; } sub iFRMCOL1() { $url = @_[0]; print "<iframe name=IFRm1 src=\"$url\" style=\"position:absolute; width: 230px; height: 800px; left:184px; top:164px; border: 1px solid black; text-align:left; background: #FFFFFF;\">\n"; print "</iframe>\n"; $url = @_[1]; print "<iframe name=IFRm2 src=\"$url\" style=\"position:absolute; width: 600px; height: 800px; left:424px; top:164px; border: 1px solid black; text-align:left; background: #FFFFFF;\">\n"; print "</iframe>\n"; } sub content_gen() { $Content1=@_[0]; $Format=@_[1]; if ($Format eq "" || $Format eq "1") { print "<DIV name=ContentMenu style=\"position:absolute; width: 230px; height: 800px; left:184px; top:269px; border: 1px solid black; text-align:left; background: #FFFFFF;\">\n"; $SQL = "SELECT * FROM ContentMaster WHERE Category='$Content1' ORDER BY SUB1, SUB2 ASC"; $dbc=new Win32::ODBC("DSN=YFDH;UID=aglogin;PWD=J0shKr1s"); #New instance if (! $dbc){ 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 $rcc=$dbc->Sql($SQL); #execute SQL query if ($rcc){ $dbc->Close(); print "Error $rc getting INFO from table THEMES in First Iteration"; exit(0); } $CLVL="1"; while ($dbc->FetchRow()){ @data=$dbc->Data(); if ($data[3] eq "0") { print "<SPAN style='font-family: helvetica; font-size: 1em; font-color: black; text-align: center; text-decoration: underline;'><B>$data[5]</B></SPAN><br><br>\n"; } else { if ($data[4] eq "0") { if (length($data[5]) > 35) { $title = substr($data[5],0,35) . ".."; } else { $title=$data[5]; } print "<IMG SRC='/Images/Space1.png'><SPAN style='font-family: helvetica; font-size: .75em; font-color: black;'><B>$title</B></SPAN><br>\n"; print "<IMG SRC='/Images/Space3.png'><br>\n"; } else { if (length($data[5]) > 35) { $title = substr($data[5],0,35) . ".."; } else { $title=$data[5]; } print "<IMG SRC='/Images/Space2.png'><SPAN onclick='IFRM2.location.href=\"/docs/$data[6]\"' style='font-family: helvetica; font-size: .70em; font-color: black;'><A HREF=\"#\">$title</A></SPAN><br>\n"; } } } print "</DIV>"; iFRMCOL2(); } } sub content_school() { $Content1=@_[0]; $Content1 =~ tr/+/ /; $Content1 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; print "<DIV style=\"position:absolute; width: 830px; height: 25px; left:184px; top:136px; border: 1px solid black; text-align:left; background: #FFFFFF url('Images/maroon.png');\"><A HREF=\<IMG SRC=\"/IMages/Back.png\"><SPAN style=\"font-family: helvetica; font-size: 1em; color: gold;\"><B>$Content1 Area School Information</B></SPAN></DIV>\n"; print "<DIV name=ContentMenu style=\"position:absolute; width: 230px; height: 800px; left:184px; top:164px; border: 1px solid black; text-align:left; background: #FFFFFF;\">\n"; if ($Content1 eq "") { $csrch = ""; } else { $csrch = "WHERE City='$Content1'"; } $SQL = "SELECT * FROM Schools $csrch ORDER BY Typeno,Name ASC"; $dbc=new Win32::ODBC("DSN=YFDH;UID=aglogin;PWD=J0shKr1s"); #New instance if (! $dbc){ 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 $rcc=$dbc->Sql($SQL); #execute SQL query if ($rcc){ $dbc->Close(); print "Error $rc getting INFO from table THEMES in First Iteration"; exit(0); } $CLVL="1"; $level=1; $toprint="y"; while ($dbc->FetchRow()){ @data=$dbc->Data(); if ($data[13] ne $level) { $toprint = "y"; $level++; } if ($data[13] eq $level && $toprint eq "n") { print "<IMG SRC='/Images/Space2.png'><SPAN onclick='IFRM2.location.href=\"$data[4]\"' style='font-family: helvetica; font-size: .70em; font-color: black;'><A HREF=\"$data[4]\"</A>$data[1]</SPAN><br>\n"; } else { if ($toprint eq "y") { if ($level eq "1") { print "<IMG SRC='/Images/Space1.png'><SPAN style='font-family: helvetica; font-size: 1em; font-color: black;'><B>Elementary Schools</B></SPAN><br>\n"; $toprint="n"; } if ($level eq "2") { print "<IMG SRC='/Images/Space1.png'><SPAN style='font-family: helvetica; font-size: .75em; font-color: black;'><B>Middle Schools</B></SPAN><br>\n"; $toprint="n"; } if ($level eq "3") { print "<IMG SRC='/Images/Space1.png'><SPAN style='font-family: helvetica; font-size: .75em; font-color: black;'><B>High Schools</B></SPAN><br>\n"; $toprint="n"; } if ($level eq "4") { print "<IMG SRC='/Images/Space1.png'><SPAN style='font-family: helvetica; font-size: .75em; font-color: black;'><B>Child Care Centers</B></SPAN><br>\n"; $toprint="n"; } if ($level eq "6") { print "<IMG SRC='/Images/Space1.png'><SPAN style='font-family: helvetica; font-size: .75em; font-color: black;'><B>Private Schools</B></SPAN><br>\n"; $toprint="n"; } } print "<IMG SRC='/Images/Space2.png'><SPAN onclick='IFRM2.location.href=\"$data[4]\"' style='font-family: helvetica; font-size: .70em; font-color: black;'><A HREF=\"#\">$data[1]</A></SPAN><br>\n"; } } print "</DIV>"; iFRMCOL2(); } sub iFRMCOL2() { $url = @_[1]; if (@_[2] eq "") { $top = "269px"; } else { $top = @_[2] . "px"; } if (@_[3] eq "") { $left = "424px"; } else { $left = @_[2] . "px"; } if (@_[4] eq "") { $height = "800px"; } else { $height = @_[2] . "px"; } if (@_[5] eq "") { $width = "590px"; } else { $width = @_[2] . "px"; } if (@_[6] eq "") { $bcolor = "#000000"; } else { $bcolor = @_[2] . "px"; } if (@_[7] eq "") { $tcolor = "#FFFFFF"; } else { $tcolor = @_[2] . "px"; } print "<iframe name=IFRM2 src=\"$url\" style=\"position:absolute; top: $top; left: $left; height: $height; width: $width; border: 1px solid $bcolor; text-align:left; background: $tcolor;\">\n"; print "</iframe>\n"; } sub iFRMCOL3() { $url = @_[0]; if (@_[1] eq "") { $top = "269px"; } else { $top = @_[1] . "px"; } if (@_[2] eq "") { $left = "424px"; } else { $left = @_[2] . "px"; } if (@_[3] eq "") { $height = "800px"; } else { $height = @_[3] . "px"; } if (@_[4] eq "") { $width = "590px"; } else { $width = @_[4] . "px"; } if (@_[5] eq "") { $bcolor = "#000000"; } else { $bcolor = @_[5]; } if (@_[6] eq "") { $tcolor = "#FFFFFF"; } else { $tcolor = @_[6]; } if (@_[7] eq "") { $border = "0px"; } else { $border = @_[7] . "px"; } print "<iframe name=IFRM2 src=\"$url\" style=\"position:absolute; top: $top; left: $left; height: $height; width: $width; border: $border solid $bcolor; text-align:left; background: $tcolor;\">\n"; print "</iframe>\n"; } sub propinfo() { $url = @_[1]; print "<iframe name=IFRM2 src=\"$url\" style=\"position:absolute; width: 590px; height: 800px; left:424px; top:164px; border: 1px solid black; text-align:left; background: #FFFFFF;\">\n"; print "</iframe>\n"; } sub buildcommunitytag() { $Position=@_[0]; $row = @_[1]; $zindex1 = @_[2]; $City= @_[3]; $startx = 5; $starty = 70; $xpos = $startx +($Position * 206) - 206; $xpos = $xpos . "px"; $ypos = $starty +($row *300); $ypos = $ypos . "px"; $NCity = $City; $NCity =~ tr/ /+/; $commstyle = "style=\"position:absolute; top: $ypos; left: $xpos; width: 200px; height: 250px; border: 1px solid black; text-align: left; background: #D4CACA; z-index: $zindex1\""; $forsale = "http://www.agentrobin.com/Main.pl?HLFunction=PropertySearch&City=" . $City . "&MinBed=Any&MaxBed=Any&MinBath=Any&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y"; $opentoday="http://www.homesopentoday.com/search/results?cities[]=" . $City . "&min_price=None&max_price=None&bedrooms=1%2B&bathrooms=1%2B&from_when=Saturday+01%2F15%2F11&to_when=Sunday+01%2F23%2F11&commit="; $nurl = "http://www.agentrobin.com/main.pl?Neighborhood:" . $City . ":"; print "\n<DIV $commstyle>\n"; print "<DIV style=\"position:absolute; top: 0; left: 0; width: 199px; height: 25px; border: 1px solid black; text-align: left; background: #700015; z-index: $zindex1+1;\"><SPAN style=\"font-family: helvetica; font-size: 1em; color: white;\"><B>$City, CA</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 40; left: 0; width: 199px; height: 20px; border: 0px solid black; text-align: left; background: transparent; z-index: $zindex1+5;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><A HREF=\"$forsale\"><IMG SRC=\"/Images/space2.png\">Properties For Sale</A></SPAN><SPAN style=\"font-family: helvetica; font-size: .6em; color: black;\"><A HREF=\"http://agentrobin.com/Main.pl?HLFunction=MapView&TWOBED=on&THREEBED=on&FOURBED=on&FIVEBED=on&MinPrice=Any&MaxPrice=Any&City=$NCity\"> (map View)</A></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 60; left: 0; width: 199px; height: 20px; border: 0px solid black; text-align: left; background: transparent; z-index: $zindex1+15;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><A HREF=\"$opentoday\"><IMG SRC=\"/Images/space2.png\">Open Houses</A></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 80; left: 0; width: 199px; height: 20px; border: 0px solid black; text-align: left; background: transparent; z-index: $zindex1+20;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><A HREF=\"$nurl\"><IMG SRC=\"/Images/space2.png\">Neighborhood Information</A></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 100; left: 0; width: 199px; height: 20px; border: 0px solid black; text-align: left; background: transparent; z-index: $zindex1+25;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><IMG SRC=\"/Images/space2.png\"><A HREF=\"/?CommunityStats:$City\">Community Statistics</A></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 120; left: 0; width: 199px; height: 20px; border: 0px solid black; text-align: left; background: transparent; z-index: $zindex1+30;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><IMG SRC=\"/Images/space2.png\"><A HREF=\"?Schools:$City\">School Information</A></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 140; left: 0; width: 199px; height: 20px; border: 0px solid black; text-align: left; background: transparent; z-index: $zindex1+30;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><IMG SRC=\"/Images/space2.png\">Events and Happenings</SPAN></DIV>"; print "</DIV>\n"; } sub findhome() { $top = @_[0] . "px"; $left = @_[1] . "px"; $width = @_[2] . "px"; $height = @_[3] . "px"; $mselect = "<OPTION>100000</OPTION><OPTION>150000</OPTION><OPTION>200000</OPTION><OPTION>250000</OPTION><OPTION>300000</OPTION><OPTION>3500000</OPTION><OPTION>400000</OPTION><OPTION>450000</OPTION><OPTION>500000</OPTION><OPTION>550000</OPTION><OPTION>600000</OPTION><OPTION>650000</OPTION><OPTION>700000</OPTION><OPTION>750000</OPTION><OPTION>800000</OPTION><OPTION>850000</OPTION><OPTION>900000</OPTION><OPTION>950000</OPTION><OPTION>1000000</OPTION><OPTION>1100000</OPTION><OPTION>1200000</OPTION><OPTION>1300000</OPTION><OPTION>1500000</OPTION><OPTION>2000000</OPTION><OPTION>2500000</OPTION><OPTION>3000000</OPTION><OPTION>4000000</OPTION>"; $mbeds = "<OPTION>Any</OPTION><OPTION>1</OPTION><OPTION>2</OPTION><OPTION>3</OPTION><OPTION>4</OPTION><OPTION>5</OPTION><OPTION>6+</OPTION>"; $Fmessage = "Using the form below is the best way to find properties you are interested in. Please fill out the following form and press \"Send\" button. I will send you a customized report containing homes which met your needs. Thank you."; $space3 = "<IMG SRC=\"/Images/space3.png\">"; $commstyle = "style=\"position:absolute; top: $top; left: $left; width: $width; height: $height; border: 1px solid black; text-align: left; background: #F4DFB4;\""; $forsale = "http://www.agentrobin.com/Main.pl?HLFunction=PropertySearch&City=" . $City . "&MinBed=Any&MaxBed=Any&MinBath=Any&MaxBath=Any&MinValue1=100000&MaxValue1=10000000&Photos=Y"; $msqft = "<OPTION>500</OPTION><OPTION>800</OPTION><OPTION>1100</OPTION><OPTION>1500</OPTION><OPTION>2000</OPTION><OPTION>2500</OPTION><OPTION>3000</OPTION><OPTION>3500</OPTION><OPTION>4000</OPTION><OPTION>5000</OPTION><OPTION>6000</OPTION>"; $opentoday="http://www.homesopentoday.com/search/results?cities[]=" . $City . "&min_price=None&max_price=None&bedrooms=1%2B&bathrooms=1%2B&from_when=Saturday+01%2F15%2F11&to_when=Sunday+01%2F23%2F11&commit="; $nurl = "http://www.agentrobin.com/main.pl?Neighborhood:" . $City . ":"; print "<FORM Action=\"Main.pl\" METHOD=GET>\n"; print "\n<DIV $commstyle>\n"; print "<INPUT TYPE=Hidden Name=HLFunction Value=processfind>\n"; print "<DIV style=\"position:absolute; top: 10px; left: 15px; width: 500px; height: 25px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: 1.2em; color: black;\"><B>Find My Dream Home!</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 55px; left: 15px; width: 500px; height: 40px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .6em; color: black;\"><B>$Fmessage</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 110px; left: 15px; width: 200px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>*First Name</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 128px; left: 15px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><INPUT TYPE=TEXT LENGTH=100 NAME=firstname></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 160px; left: 15px; width: 200px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>*Last Name</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 178px; left: 15px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><INPUT TYPE=TEXT LENGTH=100 NAME=lastname></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 210px; left: 15px; width: 200px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>*Email Address</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 228px; left: 15px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><INPUT TYPE=TEXT LENGTH=100 NAME=email1></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 260px; left: 15px; width: 200px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>*Email Address Confirmation</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 278px; left: 15px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><INPUT TYPE=TEXT LENGTH=100 NAME=email2></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 310px; left: 15px; width: 200px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>Phone</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 328px; left: 15px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><INPUT TYPE=TEXT LENGTH=80 NAME=phone></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 110px; left: 250px; width: 200px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>Property Type</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 128px; left: 255px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><INPUT TYPE=CHECKBOX LENGTH=100 NAME=detached> Single Family Home</SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 146px; left: 255px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><INPUT TYPE=CHECKBOX LENGTH=100 NAME=condo> Condominium / Townhome</SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 164px; left: 255px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><INPUT TYPE=CHECKBOX LENGTH=100 NAME=income> Income Property</SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 194px; left: 250px; width: 200px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>Approximate Price Range</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 212px; left: 255px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><SELECT Name=minprice>$mselect</SELECT></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 212px; left: 340px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .8em; color: black;\">to</SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 212px; left: 360px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><SELECT Name=maxprice>$mselect</SELECT></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 250px; left: 250px; width: 200px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>Min. Bedrooms: $space3 $space3<SELECT Name=minbed Value=minbed>$mbeds</SELECT></B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 280px; left: 250px; width: 200px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>Min Bathrooms: $space3 $space3<SELECT Name=minbath Value=minbath>$mbeds</SELECT></B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 310px; left: 250px; width: 200px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>Min. SquareFt : $space3 $space3 <SELECT Name=sqft Value=sqft>$msqft</SELECT></B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 350px; left: 15px; width: 200px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>Additional COmments</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 368px; left: 15px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><TEXTAREA LENGTH=100 NAME=addcomments cols=\"54\" rows=\"5\">Enter your comments (if any) here.</TEXTAREA></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 480px; left: 15px; width: 430px; height: 20px; border: 0px solid black; text-align: center;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><INPUT TYPE=SUBMIT VALUE=SEND></SPAN></DIV>"; print "</DIV>\n"; print "</FORM>\n"; print "<DIV style=\"position:absolute; top: 165px; left: 730px; width: 274px; height: 400px; border: 1px solid black; text-align: left; background: #EAEAEA\"><SPAN style=\"font-family: helvetica; font-size: .9em; color: black;\">\n"; print "<DIV style=\"position:absolute; top: 0px; left: 0px; width: 272px; height: 120px; border: 0px solid black; text-align: left; background: #EAEAEA;\"><IMG SRC=\"/Images/maze.png\" WIDTH=100% HEIGHT=100%></DIV>\n"; print "<DIV style=\"position:absolute; top: 100px; left: 10px; width: 250px; height: 100px; border: 0px solid black; text-align: left;\">Trying to find that special home can be a daunting task. With so many options and pitfuls, like foreclosures and short sales, it's more important than ever to have an experienced Agent at your side. I can help ease the search hassle by sending you customized reports on all the homes which meet your criteria. I will also hihglight any potential pitfuls along the way and make your journey to the perfect Dream Home as smooth as possible.<br><br> Sign up now to start receiving your customized report!</DIV>\n"; print "<DIV style=\"position:absolute; top: 420px; left: 2px; width: 250px; height: 30px; border: 0px solid black; text-align: center+;\">See A Sample Report <A HREF=\"#\">HERE</A></DIV>\n"; print "</SPAN></DIV>\n"; } sub homevalue() { $top = @_[0] . "px"; $left = @_[1] . "px"; $width = @_[2] . "px"; $height = @_[3] . "px"; $mselect = "<OPTION>100000</OPTION><OPTION>150000</OPTION><OPTION>200000</OPTION><OPTION>250000</OPTION><OPTION>300000</OPTION><OPTION>3500000</OPTION><OPTION>400000</OPTION><OPTION>450000</OPTION><OPTION>500000</OPTION><OPTION>550000</OPTION><OPTION>600000</OPTION><OPTION>650000</OPTION><OPTION>700000</OPTION><OPTION>750000</OPTION><OPTION>800000</OPTION><OPTION>850000</OPTION><OPTION>900000</OPTION><OPTION>950000</OPTION><OPTION>1000000</OPTION><OPTION>1100000</OPTION><OPTION>1200000</OPTION><OPTION>1300000</OPTION><OPTION>1500000</OPTION><OPTION>2000000</OPTION><OPTION>2500000</OPTION><OPTION>3000000</OPTION><OPTION>4000000</OPTION>"; $mbeds = "<OPTION>1</OPTION><OPTION>2/OPTION><OPTION>3</OPTION><OPTION>4</OPTION><OPTION>5</OPTION><OPTION>6</OPTION>"; $mbaths = "<OPTION>1</OPTION><OPTION>1.5</OPTION><OPTION>2</OPTION><OPTION>2.5</OPTION><OPTION>3</OPTION><OPTION>4</OPTION>"; $Fmessage = "Interested in Selling Your Property. Find out how your home compares to similar homes in your area! Please fill out your information below and you will be contacted shortly. I'll work with you to develop a comprehensive marketing and pricing strategy which will make your property appealing to the wide variety of BUYER's"; $space3 = "<IMG SRC=\"/Images/space3.png\">"; $commstyle = "style=\"position:absolute; top: $top; left: $left; width: $width; height: $height; border: 1px solid black; text-align: left; background: #F4DFB4;\""; print "<FORM Action=\"Main.pl\" METHOD=GET>\n"; print "\n<DIV $commstyle>\n"; print "<INPUT TYPE=Hidden Name=HLFunction Value=processsell>\n"; print "<DIV style=\"position:absolute; top: 10px; left: 15px; width: 500px; height: 25px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: 1.2em; color: black;\"><B>Comparative Market Analysis!</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 40px; left: 15px; width: 500px; height: 40px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .6em; color: #000074;\"><B>$Fmessage</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 110px; left: 15px; width: 200px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>*First Name</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 128px; left: 15px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><INPUT TYPE=TEXT LENGTH=100 NAME=firstname></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 160px; left: 15px; width: 200px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>*Last Name</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 178px; left: 15px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><INPUT TYPE=TEXT LENGTH=100 NAME=lastname></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 210px; left: 15px; width: 200px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>*Email Address</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 228px; left: 15px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><INPUT TYPE=TEXT LENGTH=100 NAME=email1></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 260px; left: 15px; width: 200px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>*Email Address Confirmation</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 278px; left: 15px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><INPUT TYPE=TEXT LENGTH=100 NAME=email2></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 310px; left: 15px; width: 200px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>Phone</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 328px; left: 15px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><INPUT TYPE=TEXT LENGTH=80 NAME=phone></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 360px; left: 15px; width: 200px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>Property Type</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 378px; left: 20px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><INPUT TYPE=CHECKBOX LENGTH=100 NAME=detached> Single Family Home</SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 396px; left: 20px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><INPUT TYPE=CHECKBOX LENGTH=100 NAME=condo> Condominium / Townhome</SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 414px; left: 20px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><INPUT TYPE=CHECKBOX LENGTH=100 NAME=income> Income Property</SPAN></DIV>"; ### Second Column print "<DIV style=\"position:absolute; top: 110px; left: 250px; width: 100px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>*Address</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 110px; left: 350px; width: 160px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B><INPUT TYPE=TEXT LENGTH=30 Name=address></B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 150px; left: 250px; width: 100px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>*City</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 150px; left: 350px; width: 160px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B><INPUT TYPE=TEXT LENGTH=30 Name=city></B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 190px; left: 250px; width: 100px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>*State</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 190px; left: 350px; width: 160px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B><INPUT TYPE=TEXT SIZE=2 Name=state Value=CA></B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 230px; left: 250px; width: 100px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>*ZIP / Postal Code</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 230px; left: 350px; width: 160px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B><INPUT TYPE=TEXT SIZE=10 Name=zip></B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 270px; left: 250px; width: 100px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>*Year Built</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 270px; left: 350px; width: 160px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B><INPUT TYPE=TEXT SIZE=10 Name=year></B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 310px; left: 250px; width: 100px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>*Bedrooms</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 310px; left: 350px; width: 160px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B><SELECT Name=bedroom>$mbeds</SELECT></B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 350px; left: 250px; width: 100px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>*Bathrooms</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 350px; left: 350px; width: 160px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B><SELECT Name=bathroom>$mbaths</SELECT></B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 390px; left: 250px; width: 100px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>*Approx SqFt.</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 390px; left: 350px; width: 160px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B><INPUT TYPE=TEXT SIZE=10 Name=sqft></B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 450px; left: 15px; width: 200px; height: 18px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><B>Additional Information</B></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 468px; left: 15px; width: 200px; height: 20px; border: 0px solid black; text-align: left;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><TEXTAREA LENGTH=100 NAME=addcomments cols=\"54\" rows=\"5\">Enter your comments (if any) here.</TEXTAREA></SPAN></DIV>"; print "<DIV style=\"position:absolute; top: 580px; left: 15px; width: 430px; height: 20px; border: 0px solid black; text-align: center;\"><SPAN style=\"font-family: helvetica; font-size: .7em; color: black;\"><INPUT TYPE=SUBMIT VALUE=SEND></SPAN></DIV>"; print "</DIV>\n"; print "</FORM>\n"; } sub intro() { $top = @_[0] . "px"; $left = @_[1] . "px"; $width = @_[2] . "px"; $height = @_[3] . "px"; $CLOUD1= @_[0] +300; $CLOUD1 = $CLOUD1 . "PX"; $space3 = "<IMG SRC=\"/Images/space3.png\">"; $commstyle = "style=\"position:absolute; top: $top; left: $left; width: $width; height: $height; border: 1px solid black; text-align: left; z-index: 56;\""; $cloud = "style=\"position:absolute; top: 390px; left: -1px; width: 530; height: 250px; border: 1px solid black; text-align: left; z-index: 59;\""; print "<DIV $commstyle><IMG SRC=\"/Images/House11.jpg\" WIDTH=100% HEIGHT=100%>\n"; open(LISTINGS, "introshort.txt") || die("Could not open file!"); @Lines = <LISTINGS>; $ncount=@Lines; print "<DIV $cloud><IMG SRC=\"/Images/grass.png\" WIDTH=100% HEIGHT=100%>\n"; print " <DIV style=\"position: absolute; top: -10px; left: 10px; hieght: 130px; width: 510; z-index: 350; border: 0px solid black;\">"; for ($x = 0; $x <= $ncount-1; $x++) { print " <SPAN style=\"font-family: helvetica; font-size: .8em\">$space3 $space3 <B>$Lines[$x]</B><br></SPAN>\n"; } print " <br>$space3 $space3 $space3 $space3 $space3 $space3 $space3<SPAN style=\"font-family: helvetica; font-size: .9em\"><B>Looking Forward to Working With You, Robin Brooks</B></SPAN><br>\n"; print " </DIV>\n"; print "</DIV>\n"; print "</DIV>\n"; close LISTINGS; } sub intro1() { open(LISTINGS, "intro.txt") || die("Could not open file!"); @Lines = <LISTINGS>; $ncount=@Lines; close LISTINGS; $space3 = "<IMG SRC=\"/Images/space3.png\">"; print "<DIV style=\"position:absolute; top: 35px; left: -1px; width: 535px; height: 100px; border: 1px solid black; text-align: left; z-index: 56;\"><IMG SRC=\"/Images/pledge.png\" WIDTH=100% HEIGHT=100%></DIV>\n"; print "<DIV style=\"position: absolute; top: 135px; left: 10px; hieght: 700px; width: 515; z-index: 350; border: 0px solid black; text-align: left;\"><br>"; for ($x = 0; $x <= $ncount-1; $x++) { print " <SPAN style=\"font-family: helvetica; font-size: .8em\">$space3 $space3 $Lines[$x]<br></SPAN>\n"; } print " <br>$space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 <SPAN style=\"font-family: helvetica; font-size: .8em\">Looking Forward to Working With You,</SPAN><br>\n"; print " <br>$space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 <SPAN style=\"font-family: helvetica; font-size: .8em\"><B>Robin Brooks</B></SPAN>\n"; # print " <br>$space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 $space3 (agentRobin)\n"; print "</DIV>\n"; } sub processsell() { $top = @_[0] . "px"; $left = @_[1] . "px"; $width = @_[2] . "px"; $height = @_[3] . "px"; $rnum = int(rand(100000)); $proptype1 = "UN"; $proptype2 = "UN"; $proptype3 = "UN"; $nval = @FormValues; for ($x = 1; $x <= $nval-1; $x++) { @newvals = split(/=/, $FormValues[$x]); if ($newvals[0] eq "firstname") { $ps1=$newvals[1]; $ps1 =~ tr/+/ /; $ps1 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "lastname") { $ps2=$newvals[1]; $ps2 =~ tr/+/ /; $ps2 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "email1") { $ps3=$newvals[1]; $ps3 =~ tr/+/ /; $ps3 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "email2") { $ps4=$newvals[1]; $ps4 =~ tr/+/ /; $ps4 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "phone") { $ps5=$newvals[1]; $ps5 =~ tr/+/ /; $ps5 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "address") { $ps6=$newvals[1]; $ps6 =~ tr/+/ /; $ps6 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "city") { $ps7=$newvals[1]; $ps7 =~ tr/+/ /; $ps7 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "state") { $ps8=$newvals[1]; $ps8 =~ tr/+/ /; $ps8 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "zip") { $ps9=$newvals[1]; $ps9 =~ tr/+/ /; $ps9 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "year") { $ps10=$newvals[1]; $ps10 =~ tr/+/ /; $ps10 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "bedroom") { $ps11=$newvals[1]; $ps11 =~ tr/+/ /; $ps11 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "bathroom") { $ps12=$newvals[1]; $ps12 =~ tr/+/ /; $ps12 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "sqft") { $ps13=$newvals[1]; $ps13 =~ tr/+/ /; $ps13 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "addcomments") { $ps14=$newvals[1]; $ps14 =~ tr/+/ /; $ps14 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "condo") { $proptype1=$newvals[1]; $proptype1 =~ tr/+/ /; $proptype1 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "detached") { $proptype2=$newvals[1]; $proptype2 =~ tr/+/ /; $proptype2 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "income") { $proptype3=$newvals[1]; $proptype3 =~ tr/+/ /; $proptype3 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } } $SQL = "INSERT INTO FContacts (ID, firstname, lastname, email, email2, phone, prop1, prop2, prop3, sqft, address, city, state, zip, bedroom, bathrooms, year, active, autoenabled, rtype) VALUES ('$rnum', '$ps1', '$ps2', '$ps3', '$ps4', '$ps5', '$proptype1', '$proptype2', '$proptype3', '$ps13', '$ps6', '$ps7', '$ps8', '$ps9', '$ps11', '$ps12', '$ps10', '1', '1', 'CMA')"; $dbc=new Win32::ODBC("DSN=YFDH;UID=aglogin;PWD=J0shKr1s"); #New instance if (! $dbc){ 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 $rcc=$dbc->Sql($SQL); #execute SQL query if ($rcc){ $dbc->Close(); print "Error $rc getting INFO from table THEMES in First Iteration"; print "$err\n"; exit(0); } $commstyle = "style=\"position:absolute; top: $top; left: $left; width: $width; height: $height; border: 1px solid black; text-align: left; background: #F4DFB4;\""; print "<DIV $commstyle>\n"; print "Thank you $ps1! I will start working on your customize analysis and your should get the first one in a few days. Afterwards you will receive the market snapshot every 2 weeks.<br><br>\n"; print "<A HREF=\"http://agentrobin.com\">(click here to return home)</A>\n"; print "</DIV>\n"; } sub leftbanner1() { $top = @_[0] . "px"; $left = @_[1] . "px"; $width = @_[2] . "px"; $height = @_[3] . "px"; $nwid=$width-2; $commstyle = "style=\"position:absolute; top: $top; left: $left; width: $width; height: $height; border: 1px solid black; text-align: left; background: #F4DFB4;\""; $isp = "<IMG SRC=\"/Images/space3.png\"><IMG SRC=\"/Images/Divide.png\">"; print "<DIV $commstyle>\n"; print "<DIV style=\"position:absolute; top: 0px; left: 0px; width: $nwid; height: 30px; border: 0px solid black; text-align: center; background: #F4DFB4;\"><SPAN style=\"font-family: helvetica; font-size: 1em; text-decoration: underline;\"><B>Market Snapshot Contents</B></SPAN></DIV>\n"; print "<DIV style=\"position:absolute; top: 50px; left: 0px; width: $nwid; height: 30px; border: 0px solid black; text-align: left; background: #F4DFB4;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\">$isp Comparable Homes Listing</SPAN></DIV>\n"; print "<DIV style=\"position:absolute; top: 75px; left: 0px; width: $nwid; height: 30px; border: 0px solid black; text-align: left; background: #F4DFB4;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\">$isp Local Market Breakdown</SPAN></DIV>\n"; print "<DIV style=\"position:absolute; top: 100px; left: 0px; width: $nwid; height: 30px; border: 0px solid black; text-align: left; background: #F4DFB4;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\">$isp Pricing Analysis and Trends</SPAN></DIV>\n"; print "<DIV style=\"position:absolute; top: 125px; left: 0px; width: $nwid; height: 30px; border: 0px solid black; text-align: left; background: #F4DFB4;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\">$isp Time on Market Reports</SPAN></DIV>\n"; print "<DIV style=\"position:absolute; top: 150px; left: 0px; width: $nwid; height: 30px; border: 0px solid black; text-align: left; background: #F4DFB4;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\">$isp Community Details</SPAN></DIV>\n"; print "<DIV style=\"position:absolute; top: 175px; left: 0px; width: $nwid; height: 30px; border: 0px solid black; text-align: left; background: #F4DFB4;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\">$isp School Information</SPAN></DIV>\n"; print "<DIV style=\"position:absolute; top: 225px; left: 0px; width: $nwid; height: 180px; border: 0px solid black; text-align: left; background: #F4DFB4;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\"><IMG SRC=\"/Images/msnap1.png\" WIDTH=100% HEIGHT=100%></SPAN></DIV>\n"; print "<DIV style=\"position:absolute; top: 415px; left: 0px; width: $nwid; height: 30px; border: 0px solid black; text-align: center; background: #F4DFB4;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\"><A HREF=\"http://www.marketsnapshot.info/MSReport/RTMSMain.aspx?cnsmr=1&ReportId=0ba8bf23-6368-4a8c-b0e5-8eae20855788&instanceId=460c1397-0f4d-4966-a74b-000122ca6805 \">Click For Sample</A></SPAN></DIV>\n"; print "<DIV style=\"position:absolute; top: 440px; left: 0px; width: $nwid; height: 30px; border: 0px solid black; text-align: center; background: #F4DFB4;\"><SPAN style=\"font-family: helvetica; font-size: .8em;\">Stay Informed! Sign up now!</SPAN></DIV>\n"; print "</DIV>\n"; } sub processfind() { $top = @_[0] . "px"; $left = @_[1] . "px"; $width = @_[2] . "px"; $height = @_[3] . "px"; $rnum = int(rand(100000)); $proptype1 = "UN"; $proptype2 = "UN"; $proptype3 = "UN"; $nval = @FormValues; for ($x = 1; $x <= $nval-1; $x++) { @newvals = split(/=/, $FormValues[$x]); if ($newvals[0] eq "firstname") { $ps1=$newvals[1]; $ps1 =~ tr/+/ /; $ps1 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "lastname") { $ps2=$newvals[1]; $ps2 =~ tr/+/ /; $ps2 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "email1") { $ps3=$newvals[1]; $ps3 =~ tr/+/ /; $ps3 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "email2") { $ps4=$newvals[1]; $ps4 =~ tr/+/ /; $ps4 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "phone") { $ps5=$newvals[1]; $ps5 =~ tr/+/ /; $ps5 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "minprice") { $ps6=$newvals[1]; $ps6 =~ tr/+/ /; $ps6 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "maxprice") { $ps7=$newvals[1]; $ps7 =~ tr/+/ /; $ps7 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "minbed") { $ps8=$newvals[1]; $ps8 =~ tr/+/ /; $ps8 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "minbath") { $ps9=$newvals[1]; $ps9 =~ tr/+/ /; $ps9 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "sqft") { $ps10=$newvals[1]; $ps10 =~ tr/+/ /; $ps10 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "addcomments") { $ps14=$newvals[1]; $ps14 =~ tr/+/ /; $ps14 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "condo") { $proptype1=$newvals[1]; $proptype1 =~ tr/+/ /; $proptype1 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "detached") { $proptype2=$newvals[1]; $proptype2 =~ tr/+/ /; $proptype2 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } if ($newvals[0] eq "income") { $proptype3=$newvals[1]; $proptype3 =~ tr/+/ /; $proptype3 =~ s/%([1-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; } } $SQL = "INSERT INTO FContacts (ID, firstname, lastname, email, email2, phone, prop1, prop2, prop3, minprice, maxprice, minbed, minbath, sqft, addcomments, active, autoenabled, rtype) VALUES ('$rnum', '$ps1', '$ps2', '$ps3', '$ps4', '$ps5', '$proptype1', '$proptype2', '$proptype3', '$ps6', '$ps7', '$ps8', '$ps9', '$ps10', '$ps14', '1', '1', 'HU')"; $dbc=new Win32::ODBC("DSN=YFDH;UID=aglogin;PWD=J0shKr1s"); #New instance if (! $dbc){ 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 $rcc=$dbc->Sql($SQL); #execute SQL query if ($rcc){ $dbc->Close(); print "Error $rc getting INFO from table THEMES in First Iteration"; print "$err\n"; exit(0); } $commstyle = "style=\"position:absolute; top: $top; left: $left; width: $width; height: $height; border: 1px solid black; text-align: left; background: #F4DFB4;\""; print "<DIV $commstyle>\n"; print "Thank you $ps1! You should start receiving your customized housing search reports in a few days. Afterwards you will receive the report every 2 weeks.<br><br>\n"; print "<A HREF=\"http://agentrobin.com\">(click here to return home)</A>\n"; print "</DIV>\n"; # sendadviseemail(); } sub sendadviseemail() { $fromemail = "robin\@agentrobin.com"; $toemail = "dobroosk31\@gmail.com"; $mail_server_hostname="smtpout.secureserver.net"; $user = "robin\@agentrobin.com"; $pass = "J0shKr1s"; $smtp = Net::SMTP->new("$mail_server_hostname", Debug => 1) or die "Could not create object"; # connect to an SMTP server #$smtp->auth( "$user","$pass" ); $smtp->mail( "robin\@agentrobin.com" ); # use the sender's address here $smtp->to("dobrooks31\@gmail.com"); # recipient's address $smtp->data(); # Start the mail # Send the header. $smtp->datasend("To: $toemail\n"); $smtp->datasend("From: $fromemail\n"); $smtp->datasend("Reply-to: $fromemail\n"); $smtp->datasend("\n"); # Send the body. $smtp->datasend("Hello, World!\n"); $smtp->dataend(); # Finish sending the mail $smtp->quit; # Close the SMTP connection } sub sellerbanner() { print "<DIV style=\"position:absolute; top: 136px; left: 184px; width: 830px; height: 128px; border: 1px solid black; text-align: left; background: #F4DFB4;\">\n"; print "<DIV style=\"position:absolute; top: 1px; left: 1px; width: 828px; height: 20px; border: 0px solid black; text-align: center; background: #000074;\"><SPAN style=\"font-family: arial; font-size: .9em; color: #D1D4DB; font-weight: bold;\">RESOURCES FOR HOME SELLERS</SPAN></DIV>\n"; print "<DIV style=\"position:absolute; top: 25px; left: 5px; width: 223px; height: 97px; border: 1px solid #C89027; text-align: left; background: #ECDCCD;\">\n"; print "<DIV style=\"position:absolute; top: 0px; left: 0px; width: 221px; height: 18px; border: 1px solid #C89027; text-align: center; background: #D7B389;\"><SPAN style=\"font-family: arial; font-size: .8em; color: #000074; text-decoration: underline;\">CONTENTS</SPAN></DIV>\n"; print "<DIV style=\"position:absolute; top: 23px; left: 5px; width: 220px; height: 15px; border: 0px solid #D6B350; text-align: left; \"><SPAN style=\"font-family: arial; font-size: .7em; color: black;\"><IMG SRC=\"http://agentrobin.com/Images/BulletPoint.png\" ALT=\"Why use me to sell your home\"><A HREF=\"http://agentrobin.com/main.pl?Sellerwhy\"><IMG SRC=\"http://agentrobin.com/Images/space3.png\">Why Use Me to Sell Your Home.</A></SPAN></DIV>\n"; print "<DIV style=\"position:absolute; top: 43px; left: 5px; width: 220px; height: 15px; border: 0px solid #D6B350; text-align: left; \"><SPAN style=\"font-family: arial; font-size: .7em; color: black;\"><IMG SRC=\"http://agentrobin.com/Images/BulletPoint.png\" ALT=\"Tips for Selling Your Home\"><A HREF=\"http://agentrobin.com/main.pl?Seller\"><IMG SRC=\"http://agentrobin.com/Images/space3.png\">Tips for Selling Your Home</A></SPAN></DIV>\n"; print "<DIV style=\"position:absolute; top: 63px; left: 5px; width: 220px; height: 15px; border: 0px solid #D6B350; text-align: left; \"><SPAN style=\"font-family: arial; font-size: .7em; color: black;\"><IMG SRC=\"http://agentrobin.com/Images/BulletPoint.png\" ALT=\"What's your home worth get a market analysis\"><A HREF=\"http://agentrobin.com/main.pl?homevalue1\"><IMG SRC=\"http://agentrobin.com/Images/space3.png\">What's Your Home Actually Worth?</A></SPAN></DIV>\n"; print "</DIV>\n"; print "<FORM Name=Signup2 Action=\"http://agentrobin.com/main.pl?signup\" Method=POST>\n"; print "<DIV style=\"position:absolute; top: 25px; left: 235px; width: 350px; height: 97px; border: 1px solid #C89027; text-align: left; background: #ECDCCD;\">\n"; print "<DIV style=\"position:absolute; top: 0px; left: 0px; width: 348px; height: 18px; border: 1px solid #C89027; text-align: center; background: #D7B389;\"><SPAN style=\"font-family: arial; font-size: .8em; color: #000074; text-decoration: underline;\">Current Market Conditions in Your City</SPAN></DIV>\n"; print "<DIV style=\"position:absolute; top: 23px; left: 5px; width: 348px; height: 30px; border: 0px solid #D6B350; text-align: left; \"><SPAN style=\"font-family: arial; font-size: .7em; color: black;\">Signup now to receive your free market analysis for the area around your property.</SPAN></DIV>\n"; print "</DIV>\n"; print "</FORM>\n"; print "</DIV>\n"; } sub getmetadata() { $SQL = "SELECT * FROM HeaderMeta WHERE Category='$sub1'"; $db=new Win32::ODBC("DSN=YFDH;UID=aglogin;PWD=J0shKr1s"); #New instance if (! $db){ print "Error opening data source $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"; goto PASSBYIT; } $db->FetchRow(); @data=$db->Data(); print "@data\n"; $DefaultMetaKeywords ="$data[2]"; $DefaultMetaDescription = "$data[3]"; PASSBYIT: }
© 2017 -
ZeroByte.ID
.