#!/usr/bin/perl -T
######################
#¡¡author:glisten
#  http://www.dsl-speed.org
######################
&get_form_data;
&emptyid unless $FORM{'sid'};
$afid=$FORM{'sid'};
&gencode;

sub emptyid{
$login_page="http://www.adultworldmedia.com";
# Replace to your affiliate program url
print "Content-Type: text/html\n\n";
   print <<"~EOT~";
<HTML>
<HEAD>
   <TITLE>Generator error</TITLE>
<META HTTP-EQUIV=Refresh CONTENT="2; URL=index.shtml">
</HEAD>
<BODY>Please input Your affiliate ID <a href=\"$login_page\">Try again.</a></BODY>
</HTML>

~EOT~
exit;
}

sub gencode{
print "Content-Type: text/html\n\n";
   print <<"~EOT~";


<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<HTML>
<HEAD>
<TITLE>Ivy Red Purple Latex Gallery at xxxSpaceGirls.us</TITLE>
<META NAME="DESCRIPTION" CONTENT="Top fetish model Ivy Red posing exclusively for the members of BabeCenterfolds.com!">
<META NAME="KEYWORDS" CONTENT="Ivy Red, Purple latex, centerfold galleries, fetish uniforms, leather, porn star, gothic model, top babe">
<META NAME="revisit-after" CONTENT="14 days">
<META NAME="copyright" CONTENT="copyright 2005, babecenterfolds">
<META NAME="distribution" CONTENT="Global">
<META NAME="rating" CONTENT="Mature">
<META NAME="language" CONTENT="en-us">
<META name="Robots" content="index,follow">
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.text-link {
	background-color: #000000;
}
.model {
	background-image: url(../../bcfolds-bg.gif);
}
-->
</style>
</HEAD>

<BODY bgcolor="#000000"  text="#FFFFFF"  link="#FFFFFF"  vlink="#FFFFCC"  alink="#FFFFFF">
<h1 align="center">Ivy Red Purple Latex</h1>
<div align="center"><a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0004&PA=$afid&HTML=http://babecenterfolds.com"><img src="../../header/bcfolds.jpg" alt="fetish model, latex models, centerfold babe, porn star, top girls, glamour images, sex movies" width="585" height="100" border="0"></a> 
</div>
<TABLE width="585" border="0"  align="center" cellpadding="3" cellspacing="2" class="model" bgcolor="#FF3300">
  <TR> 
    <TD width="111" align="center" bgcolor="#000000"><A href="images/IvyRedPurpleLatex_0001.jpg"><IMG src="thumbnails/IvyRedPurpleLatex_0001.jpg" border="2" alt="IvyRedPurpleLatex_0001"></A></TD>
    <TD width="111" align="center" bgcolor="#000000"><A href="images/IvyRedPurpleLatex_0006.jpg"><IMG src="thumbnails/IvyRedPurpleLatex_0006.jpg" border="2" alt="IvyRedPurpleLatex_0006"></A></TD>
    <TD width="111" align="center" bgcolor="#000000"><A href="images/IvyRedPurpleLatex_0016.jpg"><IMG src="thumbnails/IvyRedPurpleLatex_0016.jpg" border="2" alt="IvyRedPurpleLatex_0016"></A></TD>
    <TD width="111" align="center" bgcolor="#000000"><A href="images/IvyRedPurpleLatex_0027.jpg"><IMG src="thumbnails/IvyRedPurpleLatex_0027.jpg" border="2" alt="IvyRedPurpleLatex_0027"></A></TD>
    <TD width="111" align="center" bgcolor="#000000"><A href="images/IvyRedPurpleLatex_0035.jpg"><IMG src="thumbnails/IvyRedPurpleLatex_0035.jpg" border="2" alt="IvyRedPurpleLatex_0035"></A></TD>
  </TR>
  <TR> 
    <TD align="center" bgcolor="#000000"><A href="images/IvyRedPurpleLatex_0037.jpg"><IMG src="thumbnails/IvyRedPurpleLatex_0037.jpg" border="2" alt="IvyRedPurpleLatex_0037"></A></TD>
    <TD align="center" bgcolor="#000000"><A href="images/IvyRedPurpleLatex_0042.jpg"><IMG src="thumbnails/IvyRedPurpleLatex_0042.jpg" border="2" alt="IvyRedPurpleLatex_0042"></A></TD>
    <TD align="center" bgcolor="#000000"><A href="images/IvyRedPurpleLatex_0045.jpg"><IMG src="thumbnails/IvyRedPurpleLatex_0045.jpg" border="2" alt="IvyRedPurpleLatex_0045"></A></TD>
    <TD align="center" bgcolor="#000000"><A href="images/IvyRedPurpleLatex_0048.jpg"><IMG src="thumbnails/IvyRedPurpleLatex_0048.jpg" border="2" alt="IvyRedPurpleLatex_0048"></A></TD>
    <TD align="center" bgcolor="#000000"><A href="images/IvyRedPurpleLatex_0059.jpg"><IMG src="thumbnails/IvyRedPurpleLatex_0059.jpg" border="2" alt="IvyRedPurpleLatex_0059"></A></TD>
  </TR>
  <TR> 
    <TD align="center" bgcolor="#000000"><A href="images/IvyRedPurpleLatex_0061.jpg"><IMG src="thumbnails/IvyRedPurpleLatex_0061.jpg" border="2" alt="IvyRedPurpleLatex_0061"></A></TD>
    <TD align="center" bgcolor="#000000"><A href="images/IvyRedPurpleLatex_0070.jpg"><IMG src="thumbnails/IvyRedPurpleLatex_0070.jpg" border="2" alt="IvyRedPurpleLatex_0070"></A></TD>
    <TD align="center" bgcolor="#000000"><A href="images/IvyRedPurpleLatex_0075.jpg"><IMG src="thumbnails/IvyRedPurpleLatex_0075.jpg" border="2" alt="IvyRedPurpleLatex_0075"></A></TD>
    <TD align="center" bgcolor="#000000"><A href="images/IvyRedPurpleLatex_0080.jpg"><IMG src="thumbnails/IvyRedPurpleLatex_0080.jpg" border="2" alt="IvyRedPurpleLatex_0080"></A></TD>
    <TD align="center" bgcolor="#000000"><A href="images/IvyRedPurpleLatex_0084.jpg"><IMG src="thumbnails/IvyRedPurpleLatex_0084.jpg" border="2" alt="IvyRedPurpleLatex_0084"></A></TD>
  </TR>
  <TR> 
    <TD colspan="5" align="center"><font color="#FFFFFF" size="3" face="Verdana, Arial, Helvetica, sans-serif"><strong>Visit 
      <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://xxxspacegirls.us" class="text-link">XXX Space Girls</a> 
      today and see more <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0004&PA=$afid&HTML=http://babecenterfolds.com/Ivy_Red/index.htm" class="text-link">IVY 
      RED</a>!<br>
      100's of the hottest PORN STARS doing your WILDEST FANTASIES - Over 400,000 
      exclusive Fetish Movies, Horror Sex Images, Vampire Comics, SCI-FI Anime, 
      Alien Manga and Bondage Pictures.</strong></font></TD>
  </TR>
</TABLE>
<br>
<div align="center">
  <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539&PA=$afid&HTML=http://adultworldmedia.com">webmasters</a>
  <p><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2">XXXSPACEGIRLS&#8482;</font></strong></font>
  </p>
</div>
</BODY>
</HTML>







~EOT~
exit;
}

# Get form data
sub get_form_data {
	read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});
	if ($ENV{'QUERY_STRING'}) {
		$buffer = "$buffer\&$ENV{'QUERY_STRING'}"
	}
	@pairs = split(/&/,$buffer);
	foreach $pair (@pairs) {
		($name,$value) = split(/=/,$pair);
		$value =~ tr/+/ /;
		$value =~ s/\t//g;
		$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
		$FORM{$name} = $value
	}
}

