open(DATAFILEIN,"$catagory.dat") || print "This section is currently empty...Please check back often!";
			print "<table border=0 cellpadding=0 border=0>";

			while (<DATAFILEIN>) {
				chomp $_;
				@line_pair = split(/=/,$_);
				$company_name = $line_pair[1];
				$time = $line_pair[0];
				$email= $line_pair[2];
				$member1= $line_pair[3];
				$member1phone= $line_pair[4];
				$data= $line_pair[5];
				$time2 = $line_pair[6];
				$data = &stripBadHtml($data);
				$password= $line_pair[8];
				$pictureurl= $line_pair[7];
				$website= $line_pair[9];
				$member2= $line_pair[10];
				$member2phone= $line_pair[11];
				$address= $line_pair[12];
				$citystatezip= $line_pair[13];
				$fax= $line_pair[14];
				$catlisting= $line_pair[15];