#!/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>Max Mikita as Horror Sex Vampire</TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link href="horror.css" rel="stylesheet" type="text/css">
</head>

<body>

<table width="804" border="1" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="800" valign="top"><a href="http://tracker.zombaio.com/?$afid.7876929"><img src="../../header/XxxHorrorTheBest.jpg" alt="Horror Sex bondage video" width="800" height="360" border="0"></a></td>
  </tr>

  <tr> <td><TABLE width="100%" border=0  align="center">
    <TR>
      <TD colspan="5" align="center"><h1>Max Mikita as Horrorsex Vampire</h1>  
        <a href="http://refer.ccbill.com/cgi-bin/clicks.cgi?CA=925539-0000&PA=$afid&HTML=http://xxxspacegirls.us/index.php">Fetish Asian slut Max  Mikita</a> has turned to nasty vampire freak. She was walking every night  around the monastery trying to catch and convert fresh priests to the  evil side. One night at full moon she spotted the faithful and fearless  father James walking in the small cemetery. Kinky small titted vamp Max  confronted the father trying to change his strong believes in god.  Father James did not give up easy. He pulled out the holy water and  tried to spray it over this Asian vampire. Max Mikita took the holy  water off his hands and poured it in her mouth and spit it over the  shocked father. Check out this sexy vampire bondage movie available  only at XXX Horror!</TD>
      </TR>
    <TR>
      <TD align="center"><A href="images/MaxMakita_EvilVampire_0008.jpg"><IMG src="thumbnails/MaxMakita_EvilVampire_0008.jpg" height="226" width="150" alt="MaxMakita_EvilVampire_0008"></A></TD>
      <TD align="center"><A href="images/MaxMakita_EvilVampire_0028.jpg"><IMG src="thumbnails/MaxMakita_EvilVampire_0028.jpg" height="226" width="150" alt="MaxMakita_EvilVampire_0028"></A></TD>
      <TD align="center"><A href="images/MaxMakita_EvilVampire_0030.jpg"><IMG src="thumbnails/MaxMakita_EvilVampire_0030.jpg" height="226" width="150" alt="MaxMakita_EvilVampire_0030"></A></TD>
      <TD align="center"><A href="images/MaxMakita_EvilVampire_0042.jpg"><IMG src="thumbnails/MaxMakita_EvilVampire_0042.jpg" height="226" width="150" alt="MaxMakita_EvilVampire_0042"></A></TD>
      <TD align="center"><A href="images/MaxMakita_EvilVampire_0046.jpg"><IMG src="thumbnails/MaxMakita_EvilVampire_0046.jpg" height="226" width="150" alt="MaxMakita_EvilVampire_0046"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/MaxMakita_EvilVampire_0050.jpg"><IMG src="thumbnails/MaxMakita_EvilVampire_0050.jpg" height="226" width="150" alt="MaxMakita_EvilVampire_0050"></A></TD>
      <TD align="center"><A href="images/MaxMakita_EvilVampire_0051.jpg"><IMG src="thumbnails/MaxMakita_EvilVampire_0051.jpg" height="226" width="150" alt="MaxMakita_EvilVampire_0051"></A></TD>
      <TD align="center"><A href="images/MaxMakita_EvilVampire_0053.jpg"><IMG src="thumbnails/MaxMakita_EvilVampire_0053.jpg" height="226" width="150" alt="MaxMakita_EvilVampire_0053"></A></TD>
      <TD align="center"><A href="images/MaxMakita_EvilVampire_0065.jpg"><IMG src="thumbnails/MaxMakita_EvilVampire_0065.jpg" height="226" width="150" alt="MaxMakita_EvilVampire_0065"></A></TD>
      <TD align="center"><A href="images/MaxMakita_EvilVampire_0076.jpg"><IMG src="thumbnails/MaxMakita_EvilVampire_0076.jpg" height="226" width="150" alt="MaxMakita_EvilVampire_0076"></A></TD>
    </TR>
    <TR>
      <TD align="center"><A href="images/MaxMakita_EvilVampire_0088.jpg"><IMG src="thumbnails/MaxMakita_EvilVampire_0088.jpg" height="226" width="150" alt="MaxMakita_EvilVampire_0088"></A></TD>
      <TD align="center"><A href="images/MaxMakita_EvilVampire_0109.jpg"><IMG src="thumbnails/MaxMakita_EvilVampire_0109.jpg" height="226" width="150" alt="MaxMakita_EvilVampire_0109"></A></TD>
      <TD align="center"><A href="images/MaxMakita_EvilVampire_0125.jpg"><IMG src="thumbnails/MaxMakita_EvilVampire_0125.jpg" height="226" width="150" alt="MaxMakita_EvilVampire_0125"></A></TD>
      <TD align="center"><A href="images/MaxMakita_EvilVampire_0130.jpg"><IMG src="thumbnails/MaxMakita_EvilVampire_0130.jpg" height="226" width="150" alt="MaxMakita_EvilVampire_0130"></A></TD>
      <TD align="center"><A href="images/MaxMakita_EvilVampire_0132.jpg"><IMG src="thumbnails/MaxMakita_EvilVampire_0132.jpg" height="226" width="150" alt="MaxMakita_EvilVampire_0132"></A></TD>
    </TR>
    

  </TABLE></td>
  </tr>
</table>
<br>
<div align="center">
  <span class="XxxHorror"><a href="http://tracker.zombaio.com/?$afid.7876929">CLICK HERE TO BROWSE XXX HORROR</a></span>

  
</div>

<br>
<br>
<div align="center">
  <p><font face="Verdana, Arial, Helvetica, sans-serif"><strong><font size="2">xxxHorror&#8482;<br>
    <font face="Verdana, Arial, Helvetica, sans-serif"><strong>18 U.S.C. 2257
    Record-Keeping Requirements Compliance Statement</strong></font> at:<br>
    http://xxxspacegirls.us/18-statement/18-statement.html </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
	}
}

