<%@ Language=VBScript %> <% Option Explicit %> <% Response.Buffer=True %> <% Dim myKey myKey = "IBxOE8NQFHKb85UPhsSkFpJu+pEfqsSP" 'email@nicksumner.com 'google search terms Dim q, site, pg Dim showtitles, showurls, showdesc q = Trim(request.querystring("q")) site = Trim(request.querystring("site")) showtitles = Trim(request.querystring("titles")) showdesc = Trim(request.querystring("desc")) showurls = Trim(request.querystring("urls")) pg = Trim(request.querystring("pg")) If (pg="") Then pg=1 If (q="") Then pg=1 Dim rStr 'results rStr = "" 'do google search If (q<>"") Then 'show results Dim qFinal qFinal = q If (site<>"") Then qFinal = qFinal & " site:" & site '------------------------------------------ 'load object Dim Google Set Google = new GoogleSearch 'search Google.key = MyKey Google.q = qFinal Google.maxPagesResults = 1 Google.maxResultsPerPage = 10 Google.start = ((pg-1)*10) Google.Cache = Server.MapPath("/test/googlecache/") Google.Search() 'results Dim i For i = 0 to Google.TotalResults-1 If Trim(showtitles)<>"" Then rStr = rStr & "

" & VbCrLf rStr = rStr & "" rStr = rStr & "" & VbCrLf rStr = rStr & Google.Titles(i) rStr = rStr & "" & VbCrLf rStr = rStr & "" & VbCrLf End If If Trim(showdesc)<>"" Then rStr = rStr & "
" rStr = rStr & Google.Snippets(i) & VbCrLf rStr = rStr & Google.Descriptions(i) & VbCrLf End If If Trim(showurls)<>"" Then rStr = rStr & "
" & Google.URLs(i) & "" & VbCrLf End If Next Dim search, back, fwd, links links = "

" links = links & "Page " & pg & ", " links = links & "results " & (((pg-1)*10)+1) & " to " & (((pg-1)*10)+ Google.TotalResults) links = links & " of " & Google.EstimatedResults links = links & " for " & q & " " Dim s s=q if (Trim(site)<>"") Then s = s & " site:" & Trim(site) search = MyPath search = search & "?q=" & q search = search & "&site=" & site & "&desc=" & showdesc search = search & "&titles=" & showtitles & "&urls=" & showurls search = search & "&pg=" back = search & (pg-1) fwd = search & (pg+1) If (pg>1) Then 'show back btn links = links & " << " End if If (Google.TotalResults=10) Then 'show fwd btn links = links & " >> " End if rStr = links & VbCrLf & rStr & links & VbCrLf rStr = rStr & "

View these results at " rStr = rStr & "Google " 'release object Set Google = Nothing '------------------------------------------ Else rStr = rStr & "

Enter search criteria above. " End If %> Site - Website Search
Home Page - www.tele-pro.co.uk - Ecommerce Integration


Search > Advanced Website Search

Website Search

  
Enter keywords:
Simple Search

Google API Website Search - Google API customization, Google Web API integration Search this site only
Show descriptions
Show Titles
Show URLs

Search Results

<% = rStr %>
 

Google API Website Search - Google API customization, Google Web API integrationCustomised Google API Website Search

We can provide a customised implementation of the Google Web Service API for your website which allows you to present the search results in your desired format, on your own web pages.
 
Google Web API Services
Go Google Optimisation - SEO focussed on Google Webmaster Guidelines
 

See Also - Search, SEO

Website Search
Go Google Optimisation
Go Google Sitemaps
Search Engine Optimisation
Go SEO Optimisation Tools and Links
Search Engines and Directories
Google Website Position Search
Site Map

SEO Searches

Go Website: Google SEO
Go Website: Optimization
Go Google: Google SEO
 

Search Keywords

website search, web search, search site, search engine, search directory, search index, google, search google, google seo, altavista, yahoo, adwords, metacrawler, submit, search, engine, submission, website, site map, google sitemaps

SEO, Site Optimisation

search engine optimisation, se optimization, search engine o, seo, top search engine rankings, top ranking, number 1 ranking, number one site, google seo, search engine positioning, rankings optimisation, search engine promotion, submission, positioning, website promotion, website marketing, site exposure, visibility, top result, first page, top ten, top placement, google web api, google api, internet marketing, pay per click, ppc campaign, paid inclusion, linking, web analytics
 

Top | Home | ECommerce | Hosting | Site Map | Search | © 2003-6 | Contact