<% if Request.Cookies("Visit")="" then Response.Cookies("Visit")=1 end if db="Autocode.mdb" dbf=Server.MapPath(db) set my_conn= Server.CreateObject("ADODB.Connection") my_Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + dbf + "; Password=mogmog" %> Ebrandz Link Popularity Checker
eBrandz - web Marketing Solutions
LPA
 
     

<% dim domain, domain2,autnum domain = request("domain") domain2 = request("domain2") autnum = request("autonum") if autnum <> "" then Set rs1 = Server.CreateObject("ADODB.Recordset") 'my_Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + dbf + "; Password=mogmog" if Request.Cookies("Visit")=1 then prechk=50 else prechk=(Request.Cookies("Visit") - 1) end if MySql1="Select * from Auto Where sr_no=" & prechk & ";" rs1.Open (MySql1), my_conn, 3, 3 precount=rs1("auto_cd") rs1.close if autnum=precount and domain <> "" then if domain <> "" then %>
<% response.write "The total number of links pointing to your site :" %>
<% server.scripttimeout = 1000000 dim se(4) se(0) = "MSN" se(1) = "Altavista" se(2) = "HotBot" se(3) = "Google" se(4) = "Yahoo" dim pages(4) pages(0) = "http://search.msn.com/pass/results.asp?RS=CHECKED&FORM=MSNH&v=1&q=&q=linkdomain%3A" & domain & "&cp=1252" pages(1) = "http://www.altavista.com/web/results?q=link%3A" & domain & "&kgs=0&kls=1&avkw=aapt" 'pages(3) = "http://www.alltheweb.com/search?avkw=fogg&cat=web&cs=utf-8&q=link%3A" &domain & "&_sb_lang=pref" pages(3) ="http://www.google.co.in/search?q=link%3A" & domain & "&ie=UTF-8&oe=UTF-8&hl=en&meta=" pages(2) = "http://www.hotbot.com/default.asp?prov=Inktomi&query=linkdomain%3A" & domain & "&ps=&loc=searchbox&tab=web" pages(4) = "http://search.yahoo.com/search?p=linkdomain%3A" & domain & "&ei=UTF-8&fr=fp-tab-web-t&n=20&fl=0&x=wrt" dim sTXT(4) sTXT(0) = "of about" sTXT(1) = "AltaVista found" sTXT(2) = "Showing Results" sTXT(3) = "Results" sTXT(4) = "about" dim eTXT(4) eTXT(0) = "containing" eTXT(1) = "results" eTXT(2) = ")" eTXT(3) = "." eTXT(4) = " Search" %> <% end if Set xml = Nothing next else response.write "Please Enter Domain" end if Function getLastNum(ByVal d) Dim e, s s = 0 e = 0 e = Len(d) Do While e > 0 Or s > 0 If s = 0 Then If Not (Asc(Mid(d, e, 1)) > 47 And Asc(Mid(d, e, 1)) < 58) Then e = e - 1 Else s = e End If Else If Asc(Mid(d, s, 1)) > 47 And Asc(Mid(d, s, 1)) < 58 Then s = s - 1 Else s = s + 1 Exit Do End If If s = 0 Then s = 1 Exit Do End If End If If e = 0 Then getLastNum = "" Exit Function End If Loop If e > 0 Then getLastNum = Mid(d, s, e - s + 1) Else getLastNum = "" End If End Function if domain2 <> "" then dim pages1(4) pages1(0) = "http://search.msn.com/pass/results.asp?RS=CHECKED&FORM=MSNH&v=1&q=&q=linkdomain%3A" & domain2 & "&cp=1252" 'pages1(1) = "http://www.altavista.com/web/results?pg=q&kl=XX&q=link%3A" & domain2 & "+-+host%3A" & domain2 & "&search=Search" pages1(1) = "http://www.altavista.com/web/results?q=link%3A" & domain2 & "&kgs=0&kls=1&avkw=aapt" pages1(2) = "http://www.hotbot.com/default.asp?prov=Inktomi&query=linkdomain%3A" & domain2 & "&ps=&loc=searchbox&tab=web" pages1(3) ="http://www.google.co.in/search?q=link%3A" & domain2 & "&ie=UTF-8&oe=UTF-8&hl=en&meta=" pages1(4) = "http://search.yahoo.com/search?p=linkdomain%3A" & domain2 & "&ei=UTF-8&fr=fp-tab-web-t&n=20&fl=0&x=wrt" %> <% end if Set xml = Nothing next response.write "" else response.write "" end if domain3 = request("domain3") if domain3 <> "" then dim pages2(4) pages2(0) = "http://search.msn.com/pass/results.asp?RS=CHECKED&FORM=MSNH&v=1&q=&q=linkdomain%3A" & domain3 & "&cp=1252" 'pages2(1) = "http://www.altavista.com/web/results?pg=q&kl=XX&q=link%3A" & domain3 & "+-+host%3A" & domain3 & "&search=Search" pages2(1) = "http://www.altavista.com/web/results?q=link%3A" & domain3 & "&kgs=0&kls=1&avkw=aapt" pages2(2) = "http://www.hotbot.com/default.asp?prov=Inktomi&query=linkdomain%3A" & domain3 & "&ps=&loc=searchbox&tab=web" pages2(3) ="http://www.google.co.in/search?q=link%3A" & domain3 & "&ie=UTF-8&oe=UTF-8&hl=en&meta=" pages2(4) = "http://search.yahoo.com/search?p=linkdomain%3A" & domain3 & "&ei=UTF-8&fr=fp-tab-web-t&n=20&fl=0&x=wrt" %> <% end if Set xml = Nothing next response.write "" else response.write "" end if domain4 = request("domain4") if domain4 <> "" then dim pages3(4) pages3(0) = "http://search.msn.com/pass/results.asp?RS=CHECKED&FORM=MSNH&v=1&q=&q=linkdomain%3A" & domain4 & "&cp=1252" pages3(1) = "http://www.altavista.com/web/results?q=link%3A" & domain4 & "&kgs=0&kls=1&avkw=aapt" 'pages3(1) = "http://www.altavista.com/web/results?pg=q&kl=XX&q=link%3A" & domain4 & "+-+host%3A" & domain4 & "&search=Search" pages3(2) = "http://www.hotbot.com/default.asp?prov=Inktomi&query=linkdomain%3A" & domain4 & "&ps=&loc=searchbox&tab=web" pages3(3) ="http://www.google.co.in/search?q=link%3A" & domain4 & "&ie=UTF-8&oe=UTF-8&hl=en&meta=" pages3(4) = "http://search.yahoo.com/search?p=linkdomain%3A" & domain4 & "&ei=UTF-8&fr=fp-tab-web-t&n=20&fl=0&x=wrt" %> <% end if Set xml = Nothing next response.write "" else response.write "" end if domain5 = request("domain5") if domain5 <> "" then dim pages4(4) pages4(0) = "http://search.msn.com/pass/results.asp?RS=CHECKED&FORM=MSNH&v=1&q=&q=linkdomain%3A" & domain5 & "&cp=1252" pages4(1) = "http://www.altavista.com/web/results?q=link%3A" & domain5 & "&kgs=0&kls=1&avkw=aapt" 'pages4(1) = "http://www.altavista.com/web/results?pg=q&kl=XX&q=link%3A" & domain5 & "+-+host%3A" & domain5 & "&search=Search" pages4(2) = "http://www.hotbot.com/default.asp?prov=Inktomi&query=linkdomain%3A" & domain5 & "&ps=&loc=searchbox&tab=web" pages4(3) ="http://www.google.co.in/search?q=link%3A" & domain5 & "&ie=UTF-8&oe=UTF-8&hl=en&meta=" pages4(4) = "http://search.yahoo.com/search?p=linkdomain%3A" & domain5 & "&ei=UTF-8&fr=fp-tab-web-t&n=20&fl=0&x=wrt" %> <% end if Set xml = Nothing next response.write "" else response.write "" end if Set Mail=Server.CreateObject("CDONTS.NewMail") Mail.To="check@ebrandz.com" Mail.From="faisal@ebrandz.com" Mail.Subject="Link Popularity Analysis" Mail.Body="Client IP is : " & Request.ServerVariables("REMOTE_HOST") & " Search On Date : " & Now & "
" & "Search on : " & domain & " " & domain1 & " " & domain2 & " " & domain3 & " " & domain4 & "" Mail.Send Set Mail=nothing %>
DOMAIN NAME MSN ALTAVISTA HOTBOT GOOGLE YAHOO
<% response.write domain %>
<% for i = 0 to ubound(pages) strFrom = pages(i) Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", strFrom, False xml.Send sHTML = xml.responseText on error resume next if i=0 then if (Instr(sHTML,"Sorry, no results")) >0 then response.write "0" d1=0 else strFirst = InStr( sHTML, sTXT(i) ) '-1 ' Start of data strLast = InStr(strFirst, sHTML,eTXT(i))+1 ' End of Data LinkCount = Mid( sHTML, strFirst, strLast-strFirst ) d1=getLastNum(LinkCount) response.write "" & getLastNum(LinkCount) & "" end if %>
<% elseif i=1 then if (InStr( sHTML, "We found 0 results")) >0 then response.write "0" d2=0 else strFirst = InStr( sHTML, sTXT(i) ) '-1 ' Start of data 'strLast = InStr(strFirst, sHTML,eTXT(i))+1 ' End of Data sFirsalt = InStr( sHTML, "results" ) Linkal = Mid( sHTML, (strFirst+15), (sFirsalt-5) ) ds=InStr( Linkal, "results" ) d2=left(Linkal,(ds-1)) response.write "" & left(Linkal,(ds-1)) & "" end if %>
<% elseif i=2 then if (InStr( sHTML, "Sorry")) >0 then response.write "0" d3=0 else strFirst = InStr( sHTML, sTXT(i) ) '-1 ' Start of data sFirsalt = InStr( sHTML, ")" ) Linkhot = Mid( sHTML, (strFirst+26), (sFirsalt) ) ds1=InStr( Linkhot, ")" ) d3=left(Linkhot,(ds1-1)) response.write "" & left(Linkhot,(ds1-1)) & "" end if %>
<% elseif i=3 then if (InStr( sHTML, "did not match any documents" )) > 0 then response.write "0" d4=0 else strFirst1 = InStr( sHTML, "about" ) sFirst1 = InStr( sHTML, "linking" ) Link1 = Mid( sHTML, (strFirst1+5), (sFirst1-2)) dgo=InStr( Link1, " linking" ) d4=left(Link1,(dgo-5)) response.write "" & d4 & "" end if %>
<% elseif i=4 then if (InStr( sHTML, "We didn't find" )) > 0 then response.write "0" d5=0 else sFirst1 = InStr( sHTML, "about" ) sLast1 = InStr( sHTML, "Search took" ) Linkya = Mid( sHTML, (sFirst1), (sLast1-500) ) dsy=InStr( Linkya, "(" ) d5=left(Linkya,(dsy-1)) response.write "" & getLastNum(Linkya) & "" end if %>
<% response.write domain2 %>
<% for i = 0 to ubound(pages1) strFrom1 = pages1(i) Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", strFrom1, False xml.Send sHTML = xml.responseText on error resume next if i=0 then if (Instr(sHTML,"Sorry, no results")) >0 then response.write "0" d11=0 else strFirst = InStr( sHTML, sTXT(i) ) '-1 ' Start of data strLast = InStr(strFirst, sHTML,eTXT(i))+1 ' End of Data LinkCount = Mid( sHTML, strFirst, strLast-strFirst ) d11=getLastNum(LinkCount) response.write "" & getLastNum(LinkCount) & "" end if %>
<% elseif i=1 then if (InStr( sHTML, "We found 0 results")) >0 then response.write "0" d12=0 else strFirst = InStr( sHTML, sTXT(i) ) '-1 ' Start of data 'strLast = InStr(strFirst, sHTML,eTXT(i))+1 ' End of Data sFirsalt = InStr( sHTML, "results" ) Linkal = Mid( sHTML, (strFirst+15), (sFirsalt-5) ) ds=InStr( Linkal, "results" ) d12=left(Linkal,(ds-1)) response.write "" & left(Linkal,(ds-1)) & "" end if %>
<% elseif i=2 then if (InStr( sHTML, "Sorry")) >0 then response.write "0" d13=0 else strFirst = InStr( sHTML, sTXT(i) ) '-1 ' Start of data sFirsalt = InStr( sHTML, ")" ) Linkhot = Mid( sHTML, (strFirst+26), (sFirsalt) ) ds1=InStr( Linkhot, ")" ) d13=left(Linkhot,(ds1-1)) response.write "" & left(Linkhot,(ds1-1)) & "" end if %>
<% elseif i=3 then if (InStr( sHTML, "did not match any documents" )) > 0 then response.write "0" d14=0 else strFirst1 = InStr( sHTML, "about" ) sFirst1 = InStr( sHTML, "linking" ) Link1 = Mid( sHTML, (strFirst1+5), (sFirst1-2)) dgo=InStr( Link1, " linking" ) d14=left(Link1,(dgo-5)) response.write "" & left(Link1,(dgo-5)) & "" end if %>
<% elseif i=4 then if (InStr( sHTML, "We didn't find" )) > 0 then response.write "0" d15=0 else sFirst1 = InStr( sHTML, "about" ) sLast1 = InStr( sHTML, "Search took" ) Linkya = Mid( sHTML, (sFirst1), (sLast1-500) ) dsy=InStr( Linkya, "(" ) d15=left(Linkya,(dsy-1)) response.write "" & getLastNum(Linkya) & "" end if %>
<% response.write domain3 %>
<% for i = 0 to ubound(pages2) strFrom2 = pages2(i) Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", strFrom2, False xml.Send sHTML = xml.responseText on error resume next if i=0 then if (Instr(sHTML,"Sorry, no results")) >0 then response.write "0" d21=0 else strFirst = InStr( sHTML, sTXT(i) ) '-1 ' Start of data strLast = InStr(strFirst, sHTML,eTXT(i))+1 ' End of Data LinkCount = Mid( sHTML, strFirst, strLast-strFirst ) d21=getLastNum(LinkCount) response.write "" & getLastNum(LinkCount) & "" end if %>
<% elseif i=1 then if (InStr( sHTML, "We found 0 results")) >0 then response.write "0" d22=0 else strFirst = InStr( sHTML, sTXT(i) ) '-1 ' Start of data 'strLast = InStr(strFirst, sHTML,eTXT(i))+1 ' End of Data sFirsalt = InStr( sHTML, "results" ) Linkal = Mid( sHTML, (strFirst+15), (sFirsalt-5) ) ds=InStr( Linkal, "results" ) d22=left(Linkal,(ds-1)) response.write "" & left(Linkal,(ds-1)) & "" end if %>
<% elseif i=2 then if (InStr( sHTML, "Sorry")) >0 then response.write "0" d23=0 else strFirst = InStr( sHTML, sTXT(i) ) '-1 ' Start of data sFirsalt = InStr( sHTML, ")" ) Linkhot = Mid( sHTML, (strFirst+26), (sFirsalt) ) ds1=InStr( Linkhot, ")" ) d23=left(Linkhot,(ds1-1)) response.write "" & left(Linkhot,(ds1-1)) & "" end if %>
<% elseif i=3 then if (InStr( sHTML, "did not match any documents" )) > 0 then response.write "0" d24=0 else strFirst1 = InStr( sHTML, "about" ) sFirst1 = InStr( sHTML, "linking" ) Linkg1 = Mid( sHTML, (strFirst1+5), (sFirst1-2)) dg1=InStr( Linkg1, " linking" ) d24=left(Linkg1,(dg1-5)) response.write "" & d24 & "" end if %>
<% elseif i=4 then if (InStr( sHTML, "We didn't find" )) > 0 then response.write "0" d25=0 else sFirst1 = InStr( sHTML, "about" ) sLast1 = InStr( sHTML, "Search took" ) Linkya = Mid( sHTML, (sFirst1), (sLast1-500) ) dsy=InStr( Linkya, "(" ) d25=left(Linkya,(dsy-1)) response.write "" & getLastNum(Linkya) & "" end if %>
<% response.write domain4 %>
<% for i = 0 to ubound(pages3) strFrom3 = pages3(i) Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", strFrom3, False xml.Send sHTML = xml.responseText on error resume next if i=0 then if (Instr(sHTML,"Sorry, no results")) >0 then response.write "0" d31=0 else strFirst = InStr( sHTML, sTXT(i) ) '-1 ' Start of data strLast = InStr(strFirst, sHTML,eTXT(i))+1 ' End of Data LinkCount = Mid( sHTML, strFirst, strLast-strFirst ) d31=getLastNum(LinkCount) response.write "" & getLastNum(LinkCount) & "" end if %>
<% elseif i=1 then if (InStr( sHTML, "We found 0 results")) >0 then response.write "0" d32=0 else strFirst = InStr( sHTML, sTXT(i) ) '-1 ' Start of data 'strLast = InStr(strFirst, sHTML,eTXT(i))+1 ' End of Data sFirsalt = InStr( sHTML, "results" ) Linkal = Mid( sHTML, (strFirst+15), (sFirsalt-5) ) ds=InStr( Linkal, "results" ) d32=left(Linkal,(ds-1)) response.write "" & left(Linkal,(ds-1)) & "" end if %>
<% elseif i=2 then if (InStr( sHTML, "Sorry")) >0 then response.write "0" d33=0 else strFirst = InStr( sHTML, sTXT(i) ) '-1 ' Start of data sFirsalt = InStr( sHTML, ")" ) Linkhot = Mid( sHTML, (strFirst+26), (sFirsalt) ) ds1=InStr( Linkhot, ")" ) d33=left(Linkhot,(ds1-1)) response.write "" & left(Linkhot,(ds1-1)) & "" end if %>
<% elseif i=3 then if (InStr( sHTML, "did not match any documents" )) > 0 then response.write "0" d34=0 else strFirst1 = InStr( sHTML, "about" ) sFirst1 = InStr( sHTML, "linking" ) Link1 = Mid( sHTML, (strFirst1+5), (sFirst1-2)) dgo=InStr( Link1, " linking" ) d34=left(Link1,(dgo-5)) response.write "" & left(Link1,(dgo-5)) & "" end if %>
<% elseif i=4 then if (InStr( sHTML, "We didn't find" )) > 0 then response.write "0" d35=0 else sFirst1 = InStr( sHTML, "about" ) sLast1 = InStr( sHTML, "Search took" ) Linkya = Mid( sHTML, (sFirst1), (sLast1-500) ) dsy=InStr( Linkya, "Search took" ) d35=left(Linkya,(dsy-1)) response.write "" & getLastNum(Linkya) & "" end if %>
<% response.write domain5 %>
<% for i = 0 to ubound(pages4) strFrom4 = pages4(i) Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", strFrom4, False xml.Send sHTML = xml.responseText on error resume next if i=0 then if (Instr(sHTML,"Sorry, no results")) >0 then response.write "0" d41=0 else strFirst = InStr( sHTML, sTXT(i) ) '-1 ' Start of data strLast = InStr(strFirst, sHTML,eTXT(i))+1 ' End of Data LinkCount = Mid( sHTML, strFirst, strLast-strFirst ) d41=getLastNum(LinkCount) response.write "" & getLastNum(LinkCount) & "" end if %>
<% elseif i=1 then if (InStr( sHTML, "We found 0 results")) >0 then response.write "0" d42=0 else strFirst = InStr( sHTML, sTXT(i) ) '-1 ' Start of data 'strLast = InStr(strFirst, sHTML,eTXT(i))+1 ' End of Data sFirsalt = InStr( sHTML, "results" ) Linkal = Mid( sHTML, (strFirst+15), (sFirsalt-5)) ds=InStr( Linkal, "results" ) d42=left(Linkal,(ds-1)) response.write "" & left(Linkal,(ds-1)) & "" end if %>
<% elseif i=2 then if (InStr( sHTML, "Sorry")) >0 then response.write "0" d43=0 else strFirst = InStr( sHTML, sTXT(i) ) '-1 ' Start of data sFirsalt = InStr( sHTML, ")" ) Linkhot = Mid( sHTML, (strFirst+26), (sFirsalt) ) ds1=InStr( Linkhot, ")" ) d43=left(Linkhot,(ds1-1)) response.write "" & left(Linkhot,(ds1-1)) & "" end if %>
<% elseif i=3 then if (InStr( sHTML, "did not match any documents" )) > 0 then response.write "0" d44=0 else strFirst1 = InStr( sHTML, "about" ) sFirst1 = InStr( sHTML, "linking" ) Link1 = Mid( sHTML, (strFirst1+5), (sFirst1-2)) dgo=InStr( Link1, " linking" ) d44=left(Link1,(dgo-5)) response.write "" & left(Link1,(dgo-5)) & "" end if %>
<% elseif i=4 then if (InStr( sHTML, "We didn't find" )) > 0 then response.write "0" d45=0 else sFirst1 = InStr( sHTML, "about" ) sLast1 = InStr( sHTML, "Search took" ) Linkya = Mid( sHTML, (sFirst1), (sLast1-500) ) dsy=InStr( Linkya, "(" ) d45=left(Linkya,(dsy-1)) response.write "" & d45 & "" end if %>
<% response.Write "

Enter your domain to Search Again..

" %>
> > > > > <% if domain2 <> "" then %> > > > > > <% end if %> <% if domain3 <> "" then %> > > > > > <% end if %> <% if domain4 <> "" then %> > > > > > <% end if %> <% if domain5 <> "" then %> > > > > > <% end if %> <% elseif request("autonum") ="" then response.write "Please enter code for security " else response.Write "The eBrandz Link Popularity Analyzer will help you check the link popularity of your site on Google, MSN, Yahoo, Altavista and Hotbot.
" response.Write " Also compare the link popularity of your site with other 4 websites.
" response.write "
Please Enter * fields
" response.write "
Find out the number of links pointing to your site!

" end if end if %>
Mail Report to yourself :
<% if request("autonum") ="" and request("domain") ="" then response.Write "The eBrandz Link Popularity Analyzer will help you check the link popularity of your site on Google, MSN, Yahoo, Altavista and Hotbot.
" response.Write " Also compare the link popularity of your site with other 4 websites.
" response.write "
Find out the number of links pointing to your site!

" end if %>
http://
*   (e.g.: www.domain.com)
 
Enter up to 4 more comparison URL
(optional)
Competitor 1 :
http://
 
Competitor 2 :
http://
 
Competitor 3 :
http://
 
Competitor 4 :
http://
 
     
   
  <% Set RS = Server.CreateObject("ADODB.Recordset") if Request.Cookies("Visit") <> "" then MySql="Select * from Auto Where sr_no=" & Request.Cookies("Visit") & ";" End If RS.Open (MySql), my_conn, 3, 3 country=rs("auto_cd") Response.Cookies("cd")=country Response.write "" & country & "" %>
The characters are case sensitive
       
*

 

 

 
     
<% count=Request.Cookies("Visit") if count=50 then count=1 Response.Cookies("Visit")=count else count = count + 1 Response.Cookies("Visit")=count end if %>