Search Engine Optimization Search Engine Optimization Search Engine Optimization Search Engine Optimization


<% Response.Write( "") Response.Write("") Response.Write( "") Response.Write( "") Response.Write( "") Response.Write( "") %>
Search Criteria

Enter Url:
Keyword :

 

  <% if request("txtkey") = "" then response.write "Please enter Keyword" elseif request("txturl") <> "" then strFrom = request("txturl") Set xml = Server.CreateObject("Microsoft.XMLHTTP") xml.Open "GET", strFrom, False xml.Send sHTML = xml.responseText dim str1,str2 on error resume next str2=request("txtkey") str1 = InStr( sHTML, str2 ) if str1 > 1 then response.write "" & request("txtkey") & " is found in URL
" & strFrom & "" elseif str1 < 1 then 'Linkya = left( sHTML, strFirst ) response.write "" & request("txtkey") & " is not found " end if Set xml = Nothing elseif request("txturl") = "" then response.write "Please enter Url" end if %>

  Contact Us | Sitemap | Suggest Our Services | Privacy Policy
© Copyright 2003-2007 ePromotionz. All rights reserved.
http://www.epromotionz.com/