Unclaimed Property Systems
A division of Affiliated Computer Services, Inc.
     
 
5777 Central Ave, Suite 227     Boulder, CO 80301        Phone: (303) 413-9450     Fax: (303) 413-0442
 
 
Holder Reporting System


Your HRS-Pro download should begin in a moment. If nothing happens, click here.



Error processing SSI file


HRS Pro Mailing List

ACS Wagers will use the data you supply to send you information about updates, changes and new features in our Holder Reporting System (HRS Pro).

Wagers & Associates, Inc will never share your information with any third parties.


If you wish to subscribe to our mailing list, please fill the following information below:

Subscribe to HRS Pro Mailing List:

The email addresses of subscribers to HRS Pro Mailing List are used to distribute the email newsletter ONLY to those who have signed up.


Unsubscribe:

If at any time you wish to be removed from our mailing lists, please do it here.

 

Number of unique visitors: #!/usr/bin/perl ###################################### # Unique Count # ###################################### # Last Update: August 19 2001 # # Created by RealityWebs # # ( http://www.realitywebs.com ) # # Contact: support@realitywebs.com # # Copyright 2000-2001. # ###################################### $log='/home/cust1/user1078098/cgi-bin/unique_count/unique_count.log'; # Path to the count log. $iplog='/home/cust1/user1078098/cgi-bin/unique_count/unique_count_ip.log'; # Path to the IP log. $debugger=0; # Debugger. 1 for ON or 0 for OFF. ################################### # Stop Here # ################################### print "Content-Type: text/html\n\n",(IP_Check())?Increment():Read_Number(); sub Read_Number { open(CNT,"< $log") or Error('$log',\$log); flock(CNT,1); chomp(my $num=); flock(CNT,8); close(CNT); return $num; } sub Increment { open(CNT,"+< $log") or Error('$log',\$log); flock(CNT,2); chomp(my $num=); seek(CNT,0,0); truncate(CNT,0); print CNT ++$num,"\n"; flock(CNT,8); close(CNT); return $num; } sub IP_Check { my $found=0; open(RIP,"< $iplog") or Error('$iplog',\$iplog); flock(RIP,1); while() { chomp; last if $found=($_ eq $ENV{'REMOTE_ADDR'}); } flock(RIP,8); close(RIP); unless($found) { open(WIP,">> $iplog") or Error('$iplog',\$iplog); flock(WIP,2); print WIP $ENV{'REMOTE_ADDR'},"\n"; flock(WIP,8); close(WIP); } return !$found; } sub Error { my($msg,$path)=@_; my $date=localtime(); print "Content-Type: text/html\n\nSCRIPT ERROR
\n", ($debugger)?"Error Message: $!\n
Variable: $$msg\n
Path: $$path\n": 'Script Error.
View your Error Logs or activate script debugger.', '

Powered by RealityWebs'; die "[$date] [error] $!: $$path ($$msg) - Script: $0\n"; }

(since 01/15/2008)