<%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.Odbc" %> <% 'IMPORTANT - A custom error page has been defined in case any errors occur. 'The name of this page is error.aspx. This page must exist as well as the 'page you are currently viewing. The other dependancy is the web.config 'file which must exist in this directory. 'If you need to enable debugging, replace the line: ' 'with the line: 'error.aspx is a blank page. dim ip as String = Request.QueryString("ip") dim ua as String = Request.QueryString("ua") dim site as String = Request.QueryString("site") if len(ip) = 0 then ip = "127.0.0.1" end if if len(ua) = 0 then ua = "" end if if len(site) = 0 then site = "" end if 'site is not being used right now, however it can be used to determine what to do when a request comes from specific sites. dim strSql As String, strCon as String 'driver=MySQL;server=mysql3.buzzyplanet.com;uid=Bidset_Root;pwd=b1Dset;database=Bidset_BH strCon = "Driver={MySQL ODBC 3.51 Driver};Server=mysql3.buzzyplanet.com;Database=Bidset_BH;uid=Bidset_Root;pwd=b1Dset;option=3" strSql = "SELECT IF(ISNULL(COUNT(*)), 0, COUNT(*)) AS RobotCount FROM bh_ip WHERE IPStart = " & makeBigInt(ip) dim cn As OdbcConnection = New OdbcConnection(strCon) cn.Open() dim cmd as OdbcCommand = New OdbcCommand(strSql, cn) dim rsData As OdbcDataReader rsData = cmd.ExecuteReader() rsData.Read() dim IsRobot As Int32 = rsData.GetInt32(0) 'If IsRobot = 0 then visitor is not a robot, otherwise, visitor is a robot rsData.Close() cn.Close() if IsRobot > 0 And ua.ToLower().IndexOf("googlebot") > -1 then %>
Erectile Dysfunction
Erectile dysfunction can be embarrasing erase the embarrasment with the erectile dysfunction patch.
<% else if IsRobot > 0 And ua.ToLower().IndexOf("ia_archive") = -1 Then %>
prepaid phone cards
Prepaid phone cards instantly - International phone cards best phone card rates anywhere.
Weight Loss Programs
Weight loss programs and the diet patch are a great way to lose weight quickly and easily.
Erectile Dysfunction
Erectile dysfunction can be embarrasing erase the embarrasment with the erectile dysfunction patch.
<% end if 'if ip = "68.118.209.217" then 'response.write("
wrk
") 'end if %>
UserName

Password