|
 Adult dating sites ( 52 ) NEW!
Adult peronels ads, swingers and BDSM style dating services, casual dating sites, alternative lifestyle personals
Alternative dating sites ( 16 ) NEW!
Bisexual singles, transsexual personals, gay men dating, alternative dateing sites, lesbian dating
Dating & personals sites ( 70 ) NEW!
Online singles and personals ads, dating and matchmaking services, us dating sites, international dating, free dating services
Dating related sites ( 13 ) NEW!
Singles events, singles travel sites, dating shops, romantic gifts & flowers, romance needs, wedding sites
Ethnic dating sites ( 30 )
Latin american, african american singles, asian sites Europe, German, UK and interracial dating services
Foreign brides sites ( 50 ) NEW!
Mail order bride sites, russian and ukrainian dating agencies, filipino, latino and asian marriage sites, romance tours, fiancee visas
|
Psychic & astrology sites ( 28 )
Horoscopes and astrology sites, psychic and tarot readings, future forecast, birth chart reports, dream interpretation
Religious personals sites ( 4 )
Catholic dating sites, christian personals, jewish dating, muslim matching and other beliefes dating sites
Special dating services ( 19 ) NEW!
Chat and video chat sites, penpals, speed dating, senior dating services, room mates ads, animal lovers dating sites, sports/fitness singles, phone lines
Tips & dating advices ( 8 )
Dating and love advices, dating and flirt tips, breaking up and relationship advices and related literature
Useful entertaining stuff ( 7 )
Romantic love poetry, love SMS messages, love poems quotes, friendship poems and pages, cards and greetings, fun pages, humor jokes and joking sites, romantic songs monologues
Webmaster Resources ( 58 ) NEW!
Dating directories, link lists, top sites, banner and traffic exchanges, promotion tips, ideas and tools
|
 Romance Blog - Dating and Love advice |
|
|
| Relationship discussion - Dating experience forum |
|
|
|
 |
|
|
#!/usr/bin/perl
#!/usr/local/bin/perl
require "/usr/local/psa/home/vhosts/thelovelinks.com/cgi-bin/source/config.pl"; # This must be the full path to your config.pl file
###############################
# Hot Links SQL 2.1 poplist.cgi
# Created by Mike Ramirez
# Nothing below here is configurable
###############################
use CGI;
use DBI;
require "$langpath/langset.pl";
my $q = CGI->new;
print $q->header;
print "\n";
print " | ";
$poplinksdisplayed = 0;
$poplinkscount = 1;
$anypops = 0;
my $dbh = DBI->connect("DBI:mysql:$dbname;$dbhost", $dblogin, $dbpass) || print "Could not connect to database
";
my $sth = $dbh->prepare("SELECT `id`, `in`, `count` FROM hitspop ORDER BY `in` DESC, count DESC") || print "could not access database";
$sth->execute();
while (my $results = $sth->fetchrow_hashref) {
my $id = $results->{id};
my $in = $results->{in};
my $count = $results->{count};
if (($in > 0) || ($count > 0)) {
push (@hitarray_temp, "$in|$count|$id");
$anypops = 1;
}
}
$sth->finish;
if ($anypops == 1) {
print "\n";
} else {
print "| $pltext4 | \n";
}
foreach $line (@hitarray_temp) {
my @linkinfo = split(/\|/, $line);
my $sitename;
my $sth = $dbh->prepare("SELECT sitename FROM links WHERE id = $linkinfo[2]") || print "could not access database";
$sth->execute();
while (my $results = $sth->fetchrow_hashref) {
$sitename = $results->{sitename};
}
if ($poplinksdisplayed < $popcutoff) {
$sendto = $useinfo[3];
$sendto =~ s/([\W])/"%" . uc(sprintf("%2.2x",ord($1)))/eg;
$sitename =~ m/(.{1,30})/;
$sitename = $1;
$sitename .= "..";
print " $sitename | $linkinfo[0]/$linkinfo[1] | \n";
}
$poplinkscount++;
$poplinksdisplayed++;
$sth->finish;
}
print " \n";
$dbh->disconnect;
#!/usr/bin/perl
#!/usr/local/bin/perl
require "/usr/local/psa/home/vhosts/thelovelinks.com/cgi-bin/source/config.pl"; # This must be the full path to your config file.
###############################
# Hot Links SQL 2.1 recentadd-inc.pl
# Created by Mike Ramirez
# Nothing below here is configurable
###############################
use CGI;
use DBI;
require "$langpath/langset.pl";
my $q = CGI->new;
print $q->header;
print <<"HTML";
 |
HTML
use CGI;
use DBI;
my $dbh = DBI->connect("DBI:mysql:$dbname;$dbhost", $dblogin, $dbpass) || print "Could not connect to database
";
my $sth = $dbh->prepare("SELECT * FROM links ORDER BY udate") || print "could not access database";
$sth->execute();
while (my $results = $sth->fetchrow_hashref) {
my $linkid = $results->{id};
my $category = $results->{category};
my $sitename = $results->{sitename};
my $url = $results->{url};
my $email = $results->{email};
my $name = $results->{name};
my $password = $results->{password};
my $description = $results->{description};
my $addedon = $results->{addedon};
my $edpick = $results->{edpick};
my $keywords = $results->{keywords};
my $activelink = $results->{activelink};
my $enddate = $results->{enddate};
my $udate = $results->{udate};
my $recipurl = $results->{recipurl};
my $affiliate = $results->{affiliate};
my $image = $results->{image};
push(@links, "$linkid|$category|$sitename|$url|$email|$name|$password|$description|$addedon|$edpick|$keywords|$activelink|$enddate|$udate|$recipurl|$affiliate|$image");
}
$sth->finish;
$dbh->disconnect;
my @newlinks = reverse @links;
$newlinkcount=1;
foreach $line (@newlinks) {
if ($newlinkcount <= $recentadd) {
chomp($line);
@linkinfo = split(/\|/, $line);
unless ($linkinfo[11] eq 'Off') {
my $udate = $linkinfo[13];
my $comparedate = time;
my $endnew = ($newlength * 86400) + $udate;
if ($endnew >= $comparedate) {
$addedon = $linkinfo[8];
$addedon =~ s/_/ /g;
if ($linkinfo[15]) {
if ($ra_descript == 1) {print " $linkinfo[15] : $linkinfo[7] | "}
else {print "| $linkinfo[15] | ";}
} else {
$linkinfo[2] =~ m/(.{1,35})/;
$linkinfo[2] = $1;
$linkinfo[2] .= "..";
if ($ra_descript == 1) {print "| $linkinfo[2] : $linkinfo[7] | "}
else {print "| $linkinfo[2] | ";}
}
$haslinks = 1;
$newlinkcount++;
}
}
}
}
if ($haslinks != 1) {
print "| $shtext5. | ";
}
print <<"HTML";
HTML
|
