<% @ Language = VBScript %> <% Option Explicit With Response .Buffer=True .Expires = 0 .Clear End With %> Link Ranking <% dim oLinkRank, id, re id = Request("id") re = Request("re") Set oLinkRank = New LinkRanking oLinkRank.ConnString = "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("/database/mydata.mdb") & ";" oLinkRank.ConnUser = "" oLinkRank.ConnPass = "" oLinkRank.OpenDB If Len(trim(id)) = 0 then ' if there is no queryString, we should display our links. Response.Write oLinkRank.GetLinks Else ' update counter and optionally redirect If re="no" Then oLinkRank.GetUrl(id) Else Response.Redirect oLinkRank.GetUrl(id) End If End If oLinkRank.CloseDB Set oLinkRank = Nothing %>
This is my Google PageRankô - SmE Rank free service Powered by Scriptme
Link Popularity:
  (eg. iwebtool.com)
 PLEASE NOTE:  This tool will provide an estimation of the future PageRank and should not be considered precise.
PageRank Prediction:

 

  Enter each domain address on a new line (maximum 10)
Please include the 'www.' prefix (eg. www.iwebtool.com)
 
Backlink Checker:
  (eg. iwebtool.com)
 

Powered by iWEBTOOL