<% if Request.Cookies("Vt")="" then Response.Cookies("Vt")=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 Marketleap Search Engine
eBrandz - web Marketing Solutions
 
     

<% dim domain, domain2,autnum domain = request("domain") domain2 = request("domain2") autnum = request("autonum") if autnum <> "" then Set rs1 = Server.CreateObject("ADODB.Recordset") if Request.Cookies("Vt")=1 then prech=50 else prech=(Request.Cookies("Vt") - 1) end if MySql1="Select * from Auto Where sr_no=" & prech & ";" rs1.Open (MySql1), my_conn, 3, 3 precount=rs1("auto_cd") rs1.close if autnum=precount and domain <> "" then if domain <> "" then %>
<% response.write "Your Results" %>
<% server.scripttimeout = 1000000 dim se(3) se(0) = "Altavista" se(1) = "HotBot" se(2) = "Google" se(3) = "Alltheweb" dim pages(3) pages(0) = "http://www.altavista.com/web/results?q=host%3A" & domain & "+url%3A" & domain & "&kgs=0&kls=1&avkw=aapt" pages(1) = "http://www.hotbot.com/adv.asp?prov=HotBot&query=*&loc=searchbox&tab=web&dfi=" & domain & "&wfc=2&dateop=after" pages(2) ="http://www.google.com/search?hl=en&lr=&ie=ISO-8859-1&safe=off&q=site%3A" & domain & "+inurl%3A" & domain pages(3) = "http://www.alltheweb.com/search?cat=web&cs=utf-8&q=%2Bsite%3A" & domain & "+%2Burl.all%3A" & domain & "&_sb_lang=en" dim sTXT(3) sTXT(0) = "AltaVista found" sTXT(1) = "of" sTXT(2) = "Results" sTXT(3) = "of" dim eTXT(3) eTXT(0) = "results" eTXT(1) = ")" eTXT(2) = "." eTXT(3) = "Results" %> <% end if Set xml = Nothing next else response.write "Please Enter Domain" end if if domain2 <> "" then dim pages1(3) pages1(0) = "http://www.altavista.com/web/results?q=host%3A" & domain2 & "+url%3A" & domain2 & "&kgs=0&kls=1&avkw=aapt" pages1(1) = "http://www.hotbot.com/adv.asp?prov=HotBot&query=*&loc=searchbox&tab=web&dfi=" & domain2 & "&wfc=2&dateop=after" pages1(2) ="http://www.google.com/search?hl=en&lr=&ie=ISO-8859-1&safe=off&q=site%3A" & domain2 & "+inurl%3A" & domain2 pages1(3) = "http://www.alltheweb.com/search?cat=web&cs=utf-8&q=%2Bsite%3A" & domain2 & "+%2Burl.all%3A" & domain2 & "&_sb_lang=en" %> <% end if Set xml = Nothing next response.write "" else response.write "" end if domain3 = request("domain3") if domain3 <> "" then dim pages2(3) pages2(0) = "http://www.altavista.com/web/results?q=host%3A" & domain3 & "+url%3A" & domain3 & "&kgs=0&kls=1&avkw=aapt" pages2(1) = "http://www.hotbot.com/adv.asp?prov=HotBot&query=*&loc=searchbox&tab=web&dfi=" & domain3 & "&wfc=2&dateop=after" pages2(2) ="http://www.google.com/search?hl=en&lr=&ie=ISO-8859-1&safe=off&q=site%3A" & domain3 & "+inurl%3A" & domain3 pages2(3) = "http://www.alltheweb.com/search?cat=web&cs=utf-8&q=%2Bsite%3A" & domain3 & "+%2Burl.all%3A" & domain3 & "&_sb_lang=en" %> <% end if Set xml = Nothing next response.write "" else response.write "" end if domain4 = request("domain4") if domain4 <> "" then dim pages3(3) pages3(0) = "http://www.altavista.com/web/results?q=host%3A" & domain4 & "+url%3A" & domain4 & "&kgs=0&kls=1&avkw=aapt" pages3(1) = "http://www.hotbot.com/adv.asp?prov=HotBot&query=*&loc=searchbox&tab=web&dfi=" & domain4 & "&wfc=2&dateop=after" pages3(2) ="http://www.google.com/search?hl=en&lr=&ie=ISO-8859-1&safe=off&q=site%3A" & domain4 & "+inurl%3A" & domain4 pages3(3) = "http://www.alltheweb.com/search?cat=web&cs=utf-8&q=%2Bsite%3A" & domain4 & "+%2Burl.all%3A" & domain4 & "&_sb_lang=en" %> <% end if Set xml = Nothing next response.write "" else response.write "" end if domain5 = request("domain5") if domain5 <> "" then dim pages4(3) pages4(0) = "http://www.altavista.com/web/results?q=host%3A" & domain5 & "+url%3A" & domain5 & "&kgs=0&kls=1&avkw=aapt" pages4(1) = "http://www.hotbot.com/adv.asp?prov=HotBot&query=*&loc=searchbox&tab=web&dfi=" & domain5 & "&wfc=2&dateop=after" pages4(2) ="http://www.google.com/search?hl=en&lr=&ie=ISO-8859-1&safe=off&q=site%3A" & domain5 & "+inurl%3A" & domain5 pages4(3) = "http://www.alltheweb.com/search?cat=web&cs=utf-8&q=%2Bsite%3A" & domain5 & "+%2Burl.all%3A" & domain5 & "&_sb_lang=en" %> <% 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="Search Engine Saturation 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 ALTAVISTA HOTBOT GOOGLE ALLTHEWEB
<% 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, "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=1 then if (InStr( sHTML, "Sorry")) >0 then response.write "0" d3=0 else strFirst = InStr( sHTML, "of" ) '-1 ' Start of data sFirsalt = InStr( sHTML, ")" ) Linkhot = Mid( sHTML, (strFirst+3), sFirsalt ) ds1=InStr( Linkhot, ")" ) d3=left(Linkhot,(ds1-1)) response.write "" & left(Linkhot,(ds1-1)) & "" end if %>
<% elseif i=2 then if (InStr( sHTML, "did not match any documents" )) > 0 then response.write "0" d4=0 else strFirst1 = InStr( sHTML, "about" ) sFirst1 = InStr( sHTML, "from" ) Link1 = Mid( sHTML, (strFirst1+5), (sFirst1) ) dgo=InStr( Link1, " from" ) d4=left(Link1,(dgo-5)) response.write "" & left(Link1,(dgo-5)) & "" end if %>
<% elseif i=3 then if (InStr( sHTML, "No Web pages found" )) > 0 then response.write "0" d5=0 else sFirst1 = InStr( sHTML, "of" ) sLast1 = InStr( sHTML, "Results for" ) Linkya = Mid( sHTML, (sFirst1+26), (sLast1-8) ) dsy=InStr( Linkya, "Results for" ) bg=left(Linkya,(dsy-1)) dum=InStr(bg, ">") d5=left(bg,(dum-1)) response.write "" & d5 & "" 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, "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=1 then if (InStr( sHTML, "Sorry")) >0 then response.write "0" d13=0 else strFirst = InStr( sHTML, "of" ) '-1 ' Start of data sFirsalt = InStr( sHTML, ")" ) Linkhot = Mid( sHTML, (strFirst+3), (sFirsalt) ) ds1=InStr( Linkhot, ")" ) d13=left(Linkhot,(ds1-1)) response.write "" & left(Linkhot,(ds1-1)) & "" end if %>
<% elseif i=2 then if (InStr( sHTML, "did not match any documents" )) > 0 then response.write "0" d14=0 else strFirst1 = InStr( sHTML, "about" ) sFirst1 = InStr( sHTML, "from" ) Link1 = Mid( sHTML, (strFirst1+5), (sFirst1) ) dgo=InStr( Link1, " from" ) d14=left(Link1,(dgo-5)) response.write "" & left(Link1,(dgo-5)) & "" end if %>
<% elseif i=3 then if (InStr( sHTML, "No Web pages found" )) > 0 then response.write "0" d15=0 else sFirst1 = InStr( sHTML, "of" ) sLast1 = InStr( sHTML, "Results" ) Linkya = Mid( sHTML, (sFirst1+26), (sLast1-8) ) dsy=InStr( Linkya, "Results" ) bg=left(Linkya,(dsy-1)) dum=InStr(bg, ">") d15=left(bg,(dum-1)) response.write "" & left(bg,(dum-1)) & "" 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, "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=1 then if (InStr( sHTML, "Sorry")) >0 then response.write "0" d23=0 else strFirst = InStr( sHTML, "of") '-1 ' Start of data sFirsalt = InStr( sHTML, ")" ) Linkhot3 = Mid( sHTML, (strFirst+3), (sFirsalt) ) ds1=InStr( Linkhot3, ")" ) d23=left(Linkhot3,(ds1-1)) response.write "" & left(Linkhot3,(ds1-1)) & "" end if %>
<% elseif i=2 then if (InStr( sHTML, "did not match any documents" )) > 0 then response.write "0" d24=0 else strFirst1 = InStr( sHTML, "about" ) sFirst1 = InStr( sHTML, "from" ) Linkg1 = Mid( sHTML, (strFirst1+5), (sFirst1) ) dgo1=InStr( Linkg1, " from" ) d24=left(Linkg1,(dgo1-5)) response.write "" & left(Linkg1,(dgo1-5)) & "" end if %>
<% elseif i=3 then if (InStr( sHTML, "No Web pages found" )) > 0 then response.write "0" d25=0 else sFirst1 = InStr( sHTML, "of" ) sLast1 = InStr( sHTML, "Results" ) Linkya = Mid( sHTML, (sFirst1+26), (sLast1-6) ) dsy=InStr( Linkya, "Results" ) bg=left(Linkya,(dsy-1)) dum=InStr(bg, ">") d25=left(bg,(dum-1)) response.write "" & left(bg,(dum-1)) & "" 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, "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=1 then if (InStr( sHTML, "Sorry")) >0 then response.write "0" d33=0 else strFirst = InStr( sHTML, "of" ) '-1 ' Start of data sFirsalt = InStr( sHTML, ")" ) Linkhot = Mid( sHTML, (strFirst+3), (sFirsalt) ) ds1=InStr( Linkhot, ")" ) d33=left(Linkhot,(ds1-1)) response.write "" & left(Linkhot,(ds1-1)) & "" end if %>
<% elseif i=2 then if (InStr( sHTML, "did not match any documents" )) > 0 then response.write "0" d34=0 else strFirst1 = InStr( sHTML, "about" ) sFirst1 = InStr( sHTML, "from" ) Link1 = Mid( sHTML, (strFirst1+5), (sFirst1-2) ) dgo=InStr( Link1, " from" ) d34=left(Link1,(dgo-5)) response.write "" & left(Link1,(dgo-5)) & "" end if %>
<% elseif i=3 then if (InStr( sHTML, "No Web pages found" )) > 0 then response.write "0" d35=0 else sFirst1 = InStr( sHTML, "of" ) sLast1 = InStr( sHTML, "Results" ) Linkya = Mid( sHTML, (sFirst1+26), (sLast1-6) ) dsy=InStr( Linkya, "Results" ) bg=left(Linkya,(dsy-1)) dum=InStr(bg, ">") d35=left(bg,(dum-1)) response.write "" & left(bg,(dum-1)) & "" 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, "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=1 then if (InStr( sHTML, "Sorry")) >0 then response.write "0" d43=0 else strFirst = InStr( sHTML, "of" ) '-1 ' Start of data sFirsalt = InStr( sHTML, ")" ) Linkhot = Mid( sHTML, (strFirst+3), (sFirsalt) ) ds1=InStr( Linkhot, ")" ) d43=left(Linkhot,(ds1-1)) response.write "" & left(Linkhot,(ds1-1)) & "" end if %>
<% elseif i=2 then if (InStr( sHTML, "did not match any documents" )) > 0 then response.write "0" d44=0 else strFirst1 = InStr( sHTML, "about" ) sFirst1 = InStr( sHTML, "from" ) Link1 = Mid( sHTML, (strFirst1+5), (sFirst1-2) ) dgo=InStr( Link1, " from" ) d44=left(Link1,(dgo-5)) response.write "" & left(Link1,(dgo-5)) & "" end if %>
<% elseif i=3 then if (InStr( sHTML, "No Web pages found" )) > 0 then response.write "0" d45=0 else sFirst1 = InStr( sHTML, "of" ) sLast1 = InStr( sHTML, "Results" ) Linkya = Mid( sHTML, (sFirst1+26), (sLast1-6) ) dsy=InStr( Linkya, "Results" ) bg=left(Linkya,(dsy-1)) dum=InStr(bg, ">") d45=left(bg,(dum-1)) response.write "" & left(bg,(dum-1)) & "" 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 "Search Engine Saturation simply refers to the number of pages of a website that a search engine has in its index. This helps you know how deep your website has been indexed.
" response.write "
Please Enter * fields
" response.Write "To Check the Search Engine Saturation of your site on site Google, Alltheweb, Altavista and Hotbot. Also compare your site's saturation level with that of competitors.
" end if end if %>
Mail Report to yourself :
<% if request("autonum") ="" and request("domain") ="" then response.Write "Search Engine Saturation simply refers to the number of pages of a website that a search engine has in its index. This helps you know how deep your website has been indexed.
" response.write "
Please Enter * fields
" response.Write "To Check the Search Engine Saturation of your site on site Google, Alltheweb, Altavista and Hotbot. Also compare your site's saturation level with that of competitors.
" 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("Vt") <> "" then MySql="Select * from Auto Where sr_no=" & Request.Cookies("Vt") & ";" 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("Vt") if count=50 then count=1 Response.Cookies("Vt")=count else count = count + 1 Response.Cookies("Vt")=count end if %>