Index Page New Links Editors' Picks Hot Links! Add a Link Modify a Link Dating News Events Romance Relationships Blog Dating Advice Forum
Personals and Dating sites Directory

 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 "\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 "\n"; } $poplinkscount++; $poplinksdisplayed++; $sth->finish; } print "
$pltext4
$sitename$linkinfo[0]/$linkinfo[1]
\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 ""} else {print "";} } else { $linkinfo[2] =~ m/(.{1,35})/; $linkinfo[2] = $1; $linkinfo[2] .= ".."; if ($ra_descript == 1) {print ""} else {print "";} } $haslinks = 1; $newlinkcount++; } } } } if ($haslinks != 1) { print ""; } print <<"HTML";
 $linkinfo[15] : $linkinfo[7]
 $linkinfo[15]
 $linkinfo[2] : $linkinfo[7]
 $linkinfo[2]
$shtext5.
HTML

Copyright 2003-2009 Love Links | Privacy
Link to Us | Dating Links | Related Websites | Disclaimer
Index Page New Links Editors' Picks Hot Links! Add a Link Modify a Link Dating News Events Romance Relationships Blog Dating Advice Forum