<%
Function GetBestSites(lngamount)
If Application("best/t") < Now() Then
	randomize
	Dim objRs, strTemp, lngcount, lngcounter
	
	Set objRs = Server.CreateObject("ADODB.RecordSet")
	objRs.CacheSize = 1
	objRs.CursorLocation = 3 'adUseClient
	objRs.Open "SELECT * FROM tblSites Where dReview is not null and (fkCategory=10 or fkCategory=13)", Application("cStr"), 1, 4
	lngCount = objRs.RecordCount
	If lngCount < lngamount Then lngAmount = lngCount
	
	strTemp = ""
	Response.Write lngcount
	For lngCounter = 1 To lngAmount
		objRs.MoveFirst
		objRs.Move Int(rnd(timer) * lngCount)
		
		strTemp = strTemp & "<a href=""/o.php?url=" & server.urlencode(objRs("sURL")) & """ onmouseout=""return sb(this,false)"" onMouseover=""return sb(this,true);"">" & objRs("sDesc") & "</a><br>&nbsp;<br>"
		strTemp = strTemp & GetListAd(lngCounter)
		objRs.Delete 1 'adAffectCurrent
		lngCount = lngCount - 1
	next
	objRs.CancelBatch
	objRs.Close
	Set objRs = Nothing
	Application("best/t") = DateAdd("h", 1, Now())
	Application("best") = strTemp
End If
GetBestSites = Application("best")
End Function

Function GetRandomSites(lngamount)
If Application("rand/t") < Now() Then

	Dim objRs, strTemp, lngcount, lngcounter
	
	Set objRs = Server.CreateObject("ADODB.RecordSet")
	objRs.CacheSize = 1
	objRs.CursorLocation = 3 'adUseClient
	objRs.Open "SELECT * FROM tblSites Where dReview is not null and (fkCategory=10 or fkCategory=13)", Application("cStr"), 1, 4
	lngCount = objRs.RecordCount
	If lngCount < lngamount Then lngAmount = lngCount
	
	strTemp = ""
	Response.Write lngcount
	For lngCounter = 1 To lngAmount
		objRs.MoveFirst
		objRs.Move Int(rnd(timer) * lngCount)
		
		strTemp = strTemp & "<a href=""/o.php?url=" & server.urlencode(objRs("sURL")) & """ onmouseout=""return sb(this,false)"" onMouseover=""return sb(this,true);"">" & objRs("sDesc") & "</a><br>&nbsp;<br>"
		strTemp = strTemp & GetListAd(lngCounter)
		objRs.Delete 1 'adAffectCurrent
		lngCount = lngCount - 1
	next
	objRs.CancelBatch
	objRs.Close
	Set objRs = Nothing
	
	Application("rand/t") = DateAdd("h", 1, Now())
	Application("rand") = strTemp
End If

GetRandomSites = Application("rand")
End Function


function GetListAd(lngCounter)
	Select Case lngcounter
		Case 10
			GetListAd = "<a href=""javascript: bookmark();"" target=""_top"" onmouseout=""return sb(this,false)"" onMouseover=""return sb(this,true);"">Don't forget to bookmark us !</a><br>&nbsp;<br>"
		Case 20
			GetListAd = "<a href=""http://www.superporner.com/o.php?site=sexy-photos.net&lnk=sexyphotos"" onmouseout=""return sb(this,false)"" onMouseover=""return sb(this,true);"">Sexy photos: listing of high quality sites</a><br>&nbsp;<br>"
		Case 30
			GetListAd = "<a href=""http://www.superporner.com/o.php?site=neonbabes.net&lnk=neonbabes"" onmouseout=""return sb(this,false)"" onMouseover=""return sb(this,true);"">Neon Babes: Nice collection of babes</a><br>&nbsp;<br>"

	End Select
End Function


Sub GetAdvertising()
Dim lngCountOfAdv
Dim lngRandom

lngCountOfAdv = 2



Response.Write "<img src=i/rec.gif alt=""Recommended porn site""><br>"

'lngRandom = int(rnd(timer) * lngCountOfAdv) + 1
lngRandom = 2

Select Case lngRandom
	Case 1 '- Private Gold ***** %>

<table width=700 border=0 cellpadding=10>
<tr><td>
<a href=/o.php?url=http://www.privategold.com/cgi-bin/click-pg.cgi?nhernik&htg=1><img src=/ads/cen/pgban.jpg border=0></a>
</td>
<td>
<font size=2 pt><a href=/o.php?url=http://www.privategold.com/cgi-bin/click-pg.cgi?nhernik&htg=1><b>HOT STEAMING ORAL ACTION. Cum in her mouth NOW!!!</b></a></font><br>

Watch as these beautiful girls suck down on fat cock to the edge of bursting. Then they pull back, open their pretty little mouths wide, and wait for the sizzling hot wad of jism to shoot STRAIGHT IN THEIR MOUTHS. These girls aren't dodgers! They need every hot drop to squirt against the back of their throat.<br>
<a href=/o.php?url=http://www.privategold.com/cgi-bin/click-pg.cgi?nhernik&htg=1>They've Got The Best Cum Shots In The Business!!!</a>
</td></tr></table>
<%
	Case 2 '- Hustler ******* %>
  <h2>Have you ever try a Paysite?</h2>
  <table border="0" width="650" cellpaddnig=10>
    <tr align=center>
      <td><a href="http://c.fsx.com/c?z=40,10862,1,hvip,hustlervip.com/index.phtml"><img border="0" src="hardc.jpg"></a></td>
      <td>  When you're browsing free sex sites for free pics, are you thing that it cost you nothing?<br>
	<b>No...</b> You PAY for it! You spend your time by see tons of ads and closing popups.<br>
Now you have an chance to get access to <a href="http://c.fsx.com/c?z=40,10862,1,hvip,hustlervip.com/index.phtml">HUSTLER</a> only for as low as $4.95
</td>
      <td><a href="http://c.fsx.com/c?z=40,10862,1,hvip,hustlervip.com/index.phtml"><img border="0" src="center.jpg"></a></td>
    </tr>
  </table>
  Remember - Time is money! 
<br><br>
<%
End Select
End sub

%>