my $sort_order = 'ORDER BY Distance ';

my $code = "
SELECT DISTINCT o.*, Distance
FROM ".$DB->prefix."Links o INNER JOIN
(
SELECT z.ZipCode as CenterZip, a.ZipCode as OuterZip,
(".$earth_radius." * (2 * ASIN(SQRT(
POWER(SIN(((z.Latitude-a.Latitude)*0.017453293)/2),2) +
COS(z.Latitude*0.017453293) *
COS(a.Latitude*0.017453293) *
POWER(SIN(((z.Longitude-a.Longitude)*0.017453293)/2),2)
)))) AS Distance
FROM ".$DB->prefix."ZipCodes z, ".$DB->prefix."ZipCodes a
WHERE z.ZipCode = ".$query." AND
(".$earth_radius." * (2 * ASIN(SQRT(
POWER(SIN(((z.Latitude-a.Latitude)*0.017453293)/2),2) +
COS(z.Latitude*0.017453293) *
COS(a.Latitude*0.017453293) *
POWER(SIN(((z.Longitude-a.Longitude)*0.017453293)/2),2)
)))) <= ".$dist."
) as CalculatedTable
ON o.".$opts->{'links_zipcode_col'}." = CalculatedTable.OuterZip SORT_ORDER
";

$code =~ s/SORT_ORDER/$sort_order/;

my $offset = ($args->{nh} - 1) * $args->{mh};
my $sth = $links_db->prepare($code) || return { error => $GT::SQL::error };
# $sth->execute ($query, $dist) || return { error => $GT::SQL::error };
$sth->execute () || return { error => $GT::SQL::error };