% $r->content_type('text/html');
% $r->notes->{'xtitle'} =  "StarSeek.com - Add Your Fansite URL";
<A name="top"></a>
<table width=100%><TR><TD width=100%>
% if ($action eq 'addFanSite') {
<img src="http://www.starseek.com/images/bullet.gif" align=absbottom> <SPAN style="color: #000088; font-weight: normal; font-size: 11px;">Your fansite has been added. </SPAN>
<BR><BR>
<h3>Don't Forget!</h3>
<SPAN style="font-size: 12px;">Please add your return links to <B>http://www.starseek.com/</B> using one of the following formats:</SPAN><BR><BR>
<table border=1 cellspacing=0 cellpadding=2 bordercolor=#F1F2F2>
<TR><TD>Type:</TD><TD><B>Text Link</B></TD></TR>
<TR><TD>Preview:</TD><TD><a href="http://www.starseek.com/">StarSeek.com - Free Nude Celebs</a></TD></TR>
<TR><TD>HTML Srouce:</TD><TD>
<TEXTAREA rows=5 cols=55>
<a href="http://www.starseek.com/">StarSeek.com - Free Nude Celebs</a>
</TEXTAREA>
</TD></TR>
</table>
<BR><BR>

<table border=1 cellspacing=0 cellpadding=2 bordercolor=#F1F2F2>
<TR><TD>Type:</TD><TD><B>HTML Banner #1 (125x125)</B></TD></TR>
<TR><TD>Preview:</TD><TD><a href="http://www.starseek.com/"><img src="http://www.starseek.com/images/125x125-starseek.gif" alt="StarSeek.com - Free Nude Celebs" title="StarSeek.com - Free Nude Celebs" border=0></a></TD></TR>
<TR><TD>HTML Srouce:</TD><TD>
<TEXTAREA rows=5 cols=55>
<a href="http://www.starseek.com/"><img src="http://www.starseek.com/images/125x125-starseek.gif" alt="StarSeek.com - Free Nude Celebs" title="StarSeek.com - Free Nude Celebs" border=0></a>
</TEXTAREA>
</TD></TR>
</table>
<BR><BR>

<table border=1 cellspacing=0 cellpadding=2 bordercolor=#F1F2F2>
<TR><TD>Type:</TD><TD><B>HTML Banner #2 (468x60)</B></TD></TR>
<TR><TD>Preview:</TD><TD><a href="http://www.starseek.com/"><img src="http://www.starseek.com/images/468x60-starseek.gif" alt="StarSeek.com - Free Nude Celebs" title="StarSeek.com - Free Nude Celebs" border=0></a>
</TD></TR>
<TR><TD>HTML Srouce:</TD><TD>
<TEXTAREA rows=5 cols=55>
<a href="http://www.starseek.com/"><img src="http://www.starseek.com/images/468x60-starseek.gif" alt="StarSeek.com - Free Nude Celebs" title="StarSeek.com - Free Nude Celebs" border=0>
</TEXTAREA>
</TD></TR>
</table>

<BR>
<center>
<img src="/images/bulletrev.gif" align=absbottom> <a href="/c/<% $ARGS{cid} %>/">Click here to return</a>
</center>
% } else {
<table width=100% border=0 cellspacing=0 cellpadding=2><TR><TD bgcolor=#F0F0F0>
<img src="/images/bulletrev.gif" align=center> <a href="/?rsid=<% $ARGS{rsid} %>&marker=<% $ARGS{marker} %>" class="link12">Return</a></TD></TR></table><BR>
<SPAN class="text12b">Add Your Fansite</SPAN><BR>
You can add your site to StarSeek's Fansite Database to benefit from the thousands of hourly hits to StarSeek.com for your favorite celebrity. <B>Simply by having a link
to http://www.starseek.com/ on your site, you are eligible to add your link.</B>
<BR><BR>
<SCRIPT>
	function suboff() {
		alert("Fansite submissions are temporarily disabled while we moderate those currently in queue. Thank you.");
		return false;
	}
</SCRIPT>
<center>
<table bgcolor=#F0F0F0 width=400>
<form action="/addfansite.html" onSubmit="return true; return suboff();">
<TR><TD><B>Celebrity:</B></TD><TD><% $celebname %></TD></TR>
<input type="hidden" name="cid" value="<% $cid %>">
<TR><TD><B>Site Title:</B>
<input type="hidden" name="action" value="addFanSite">
<TD><input type="textbox" class="txtfield2" name="sitetitle" maxlength=255 size=25></TD></TR>
<TR><TD><B>Site URL:</B>
<TD><input type="textbox" class="txtfield2" name="siteurl" size=60></TD></TR>
<TR><TD>&nbsp;
<TD align=right><input type="submit" value="Submit URL" class="text10"></TD></TR>
</form>
</table>
</center>
% }

</TD></TR>
</table>

<%init>
	my $dbh = $m->comp('/connect_db.mc');


	if ($action eq 'addFanSite') {
		unless ($ARGS{testing} == 1) {
			my $q = "INSERT INTO fansites(cid,sitetitle,siteurl,status) VALUES(?,?,?,'a');";
			my $sth = $dbh->prepare($q);
			$sth->execute($cid,$ARGS{sitetitle},$ARGS{siteurl});
		}
	}

	my $q = "SELECT celebname from celebs WHERE id=?;";
	my $sth = $dbh->prepare($q);
	$sth->execute($cid);
	my $celebname = $sth->fetchrow_array();
	$sth->finish;

	$dbh->disconnect;
</%init>
<%args>
$cid => 0
$action => ''
</%args>