<% OPTION EXPLICIT Response.Buffer = True %> <% ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' System : AspTopSites Version 1.01.0 ' Date : 01.02.2002 ' Author : MaineNet Enterprises, LLC ' Distributor : MaineNet Enterprises, LLC ' Support : http://www.maine-net.com/help.htm ' ' COPYRIGHT NOTICE ' ' The contents of this file is protected under the United States ' copyright laws as an unpublished work, and is confidential and ' proprietary to MaineNet Enterprises, LLC. Its use or disclosure in ' whole or in part without the expressed written permission of ' MaineNet Enterprises, LLC is expressely prohibited. ' ' (c) Copyright 2001 by MaineNet Enterprises, LLC All rights reserved. ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Set oConn = IncTopsite_GetDatabaseConn() dim oRstDesign set orstDesign = server.CreateObject ("ADODB.Recordset") oRstDesign.Open "design",oConn if oRstDesign.EOF then Response.Write "No admin record exists" Response.End end if Function Canrank( sSiteId ) 'Check if user already have voted last 24 hours If Request.Cookies( "2111cookie" & sSiteId ) <> "" Then Canrank = false Else Canrank = true End If Response.Cookies( "2111cookie" & sSiteId ) = "1" Response.Cookies( "2111cookie" & sSiteId ).Expires = Date()+1 End Function Dim sSiteId sSiteId = Request("id") If sSiteId = "" Then Response.Redirect "showsite.asp" Response.Flush Response.End End If 'This is the click-through page... If orstDesign("GATEWAY_ON") = "True" Then If Request.Form("rank") <> "" Then If Request.Form("TheButton") <> "Yes!" Then Response.Redirect "default.asp" Response.Flush Response.End End If If Canrank( sSiteId ) Then 'Ok, just rank it... Dim oConn Set oConn = IncTopsite_GetDatabaseConn() oConn.Execute("update " & IncTopsite_GetTablePrefix() & "site set incount=incount+1 where id=" & sSiteId ) oConn.Close Set oConn = Nothing End If Response.Redirect "default.asp" Response.Flush Response.End End If End If If orstDesign("GATEWAY_ON") = "True" Then %> <%=orstdesign("SITE_TITLE")%> ">
"> " bordercolor="<%=orstdesign("BORDER_COLOR")%>" width="<%=orstdesign("TABLE_WIDTH")%>" bgcolor="<%=orstdesign("TABLE_BGCOLOR")%>" cellpadding="<%=orstdesign("TABLE_CELLPAD")%>" cellspacing="<%=orstdesign("TABLE_CELLSPACE")%>">
">
<%=orstdesign("SITE_TITLE")%>
<%=orstdesign("SITE_SUBTITLE")%>
Please confirm the Vote

Do you want to vote for this site you are coming from?
 

  

<% Else 'Ok, just rank it... If Canrank( sSiteId ) Then Set oConn = IncTopsite_GetDatabaseConn() oConn.Execute("update " & IncTopsite_GetTablePrefix() & "site set incount=incount+1 where id=" & sSiteId ) oConn.Close Set oConn = Nothing End if Response.Redirect "default.asp" Response.Flush Response.End End If %>