.::MILYUNER.COM::. Andakah milyuner selanjutnya ?

#!/usr/local/bin/perl use File::Find; use CGI::Carp qw(fatalsToBrowser); use CGI qw (:standard); $q = new CGI; @stuff = $q->param; foreach $stuff (@stuff) {${$stuff} = $q->param($stuff);} require "/home/sniper/public_html/milyuner.com/cgi-bin/mlounge/config.cgi"; require "/home/sniper/public_html/milyuner.com/cgi-bin/mlounge/common.cgi"; $referer = $q->referer(); $|++; $time = time() + 43200; &date; &Create_DB_Connection; @fields = (Year,Month,Day,Id,BizOwner,Email,Address,City,State,Zip,Weburl,Bizcat,Bizhead,Bizdesc,Extras1,Extras2); if ($bizowner eq "Semua") {$bizowner = "%";} if ($bizcat eq "Semua") {$bizcat = "%";} if ($cat) { if ($cat eq "komputer") {$cat = "Komputer & Internet";} elsif ($cat eq "telekomunikasi") {$cat = "Telekomunikasi";} elsif ($cat eq "kesehatan") {$cat = "Kesehatan";} elsif ($cat eq "properti") {$cat = "Properti";} elsif ($cat eq "networking") {$cat = "Network Marketing";} elsif ($cat eq "finance") {$cat = "Finance";} elsif ($cat eq "travel") {$cat = "Travel & Transportasi";} elsif ($cat eq "pendidikan") {$cat = "Training & Pendidikan";} elsif ($cat eq "makanan") {$cat = "Makanan & Minuman";} elsif ($cat eq "lain") {$cat = "Lain-lain";} $bizcat = $cat; $searching = "yes"; $shtot = &count_search; &form_showresult; exit; } if ($action eq "CARI") {$shtot = &count_search; &form_showresult; exit;} $shtot = &count_search; &form_showfirst; exit; sub count_search { if ($exact) {$add_query = " AND BizOwner LIKE '$bizowner'";} else {$add_query = " AND BizOwner LIKE '%$bizowner%'";} $SQL = "SELECT COUNT(*) FROM mln_bizdir WHERE Bizcat LIKE '$bizcat' AND Bizhead LIKE '%$bizkeyword%' $add_query"; &Do_SQL; if ($user) { $quer = " WHERE Id LIKE '$user'";} if ($searching ne "yes") { $SQL = "SELECT COUNT(*) FROM mln_bizdir $quer"; &Do_SQL; } while (my($result) = $sth->fetchrow_array) { return $result; } } sub form_showresult { $list_next = $stop; if (!$list_next) {$list_next = 10;}; if ($list_next >= $shtot) {$list_next = $shtot;} $e = $start; if ($e) { $i = $e; $fr = $e + 1;} else {$e= 0; $fr = 1;} $limit = "LIMIT $e,10"; if ($shtot) {$show = "Display record $fr to $list_next of $shtot";} else {$show = "";} if ($exact) {$add_query = " AND BizOwner LIKE '$bizowner'";} else {$add_query = " AND BizOwner LIKE '%$bizowner%'";} #if ($user) {$add_query .= " AND Id LIKE '$user'";} $SQL = "SELECT * FROM mln_bizdir WHERE Bizcat LIKE '$bizcat' AND Bizhead LIKE '%$bizkeyword%' $add_query $limit"; &Do_SQL; while ($row = $sth->fetchrow_hashref) { foreach $field (@fields) {${$field} = $row->{"$field"};} $i++; $record .= "

$Bizcat

Perusahaan / Owner
$BizOwner
$Address
$City $State $Zip
Website: $Weburl
SEND EMAIL

» $Bizhead

$Bizdesc

last update on $Day-$Month-$Year

"; $found_one = "YES"; } $sth->finish; $e = $list_next; $new1_number = $e; $new_number = 10 + $list_next; if ($list_next == $shtot && $fr > 10) {$btn_next = ""; $btn_prev = "";} elsif ($fr > 10 && $list_next < $shtot) {$btn_prev = ""; $btn_next = "";} elsif ($fr < 10 && $shtot > 10) {$btn_prev = ""; $btn_next = "";} print $q->header; print< .::MILYUNER.COM::. Andakah milyuner selanjutnya ?

MILYUNER.COM | PRINT | CLOSE

Kategori »

$show

$btn_prev $btn_next

$record EOF if ($found_one ne "YES") { print<Maaf, informasi bisnis yang Anda cari belum ada.

EOF } print<Fasilitas Business Directory ini sudah termasuk dalam layanan Quick Netpreneur.

MILYUNER.COM | PRINT | CLOSE

EOF } sub form_showfirst { $list_next = $stop; if (!$list_next) {$list_next = 10;}; if ($list_next >= $shtot) {$list_next = $shtot;} $e = $start; if ($e) { $i = $e; $fr = $e + 1;} else {$e= 0; $fr = 1;} $limit = "LIMIT $e,10"; if ($shtot) {$show = "Display record $fr to $list_next of $shtot";} else {$show = "";} if ($user) {$add_query = " WHERE Id LIKE '$user' ";} else {$add_query = "";} $SQL = "SELECT * FROM mln_bizdir $add_query ORDER BY Year DESC, Month DESC, Day DESC $limit"; &Do_SQL; while ($row = $sth->fetchrow_hashref) { foreach $field (@fields) {${$field} = $row->{"$field"};} $i++; $record .= "

$Bizcat

Perusahaan / Owner
$BizOwner
$Address
$City $State $Zip
Website: $Weburl
SEND EMAIL

» $Bizhead

$Bizdesc

last update on $Day-$Month-$Year

MILYUNER.COM | PRINT | CLOSE

Kategori »

$show

$btn_prev $btn_next

$record EOF if ($found_one ne "YES") { print<Maaf, informasi bisnis yang Anda cari belum ada.

EOF } print<Fasilitas Business Directory ini sudah termasuk dalam layanan Quick Netpreneur.

MILYUNER.COM | PRINT | CLOSE

EOF } ############################## CALCULATE DATE sub date { ($sec, $min, $hour, $day, $mon, $year, $dweek, $dyear, $daylight) = localtime($time); $month = $mon + 1; $real_year = $year + 1900; } sub print_default { print $q->header; print<$_[0]

K E M B A L I EOF exit; }