[START...]
<HTML>
<HEAD>
<TITLE></TITLE>
<HTA:APPLICATION
ID = "myVBSApp"
APPLICATIONNAME = "MyVBSApplication"
BORDER = "thin"
BORDERSTYLE = "normal"
CAPTION = "Web Search"
MAXIMIZEBUTTON = "yes"
MINIMIZEBUTTON = "yes"
SHOWINTASKBAR = "yes"
SINGLEINSTANCE="yes"
SYSMENU = "yes"
SCROLL = "no"
WINDOWSTATE="normal">
<STYLE>
body {color:navy;}
body {margin-top:0;margin-left:0}
#question {font-weight:bold;background:aliceblue}
</STYLE>
<SCRIPT LANGUAGE="VBScript">
Sub btnSearch_onclick
'Requires 1. a button (id=btnSearch),
' 2. a text input (id=question),
' 3. a series of radio options (name=search1) with numeric values (1-20)
Dim j, vArg, sArg
If question.value <> "" Then
For i = 0 To 18
If search1(i).checked Then
j = search1(i).value
Exit For
End If
Next
vArg = Split(question.value," ")
sArga = Join(vArg,"+")
showResults j,sArga
Else
msgbox "There Is No Search Critea"
End If
End Sub
Sub showResults(engine,sArg)
Dim sStr
Select Case engine
Case 1 'Google
sStr = "http://www.google.com/search?" & _
"hl=en&ie=UTF-8&oe=UTF-8&q=" & _
sArg & _
"&btnG=Google+Search"
Case 2 'AltaVista
sStr = "http://www.altavista.com/web/results?" & _
"q=" & _
sArg & _
"&kgs=0&kls=1&avkw=xytx"
Case 3 'Lycos
sStr = "http://search.lycos.com/default.asp?" & _
"lpv=1&loc=searchhp&tab=web&query=" & _
sArg
case 4 'Ecxite
sStr = "http://msxml.infospace.com/" & _
"_1_FMFT5L04ITC38R__info.xcite/dog/results?" & _
"otmpl=dog/webresults.htm&qkw=" & _
sArg & _
"&qcat=web&qk=20&top=1&start=&ver=27871"
Case 5 'AllTheWeb
sStr ="http://www.alltheweb.com/search?" & _
"cat=web&cs=utf-8&q=" & _
sArg & _
"&_sb_lang=en"
Case 6 'InfoSeek
sStr = "http://srch.overture.com/d/search/p/go/?" & _
"Partner=go_home&Keywords=" & _
sArg & _
"&Go=Search"
Case 7 'WebCrawler
sStr = "http://msxml.infospace.com/" & _
"_1_HL2T5L04IY23PY__info.wbcrwl/dog/results?" & _
"otmpl=dog/webresults.htm&qkw=" & _
sArg & _
"&qcat=web&qk=20&top=1&start=&ver=9836"
Case 8 'Yahoo
sStr = "http://search.yahoo.com/bin/search?p=" & _
sArg
Case 9 'NorthernLight
sStr = "http://www.northernlight.com/" & _
"nlquery.fcg?cb=0&qp=not%2Bauthoraffiliat%3" & _
"Alynch%2Bnot%2Bauthoraffiliat%3A%2522FIRST%2" & _
"BANALYSIS%2BCORPORATION%2522&si=SOURCE%5E%3D1&qr=" & _
sArg & _
"&orl=&search.x=38&search.y=12"
Case 10 'MetaCrawler
sStr = "http://search.metacrawler.com/" & _
"texis/search?brand=metacrawler&q=" & _
sArg & _
"&redirect=&top=1&method=0&rpp=20&hpe=10&" & _
"region=0&timeout=0&sort=0&theme=classic"
Case 11 'AskJeeves
sStr = "http://www.ask.com/main/askjeeves.asp?" & _
"ask=" & _
sArg & _
"&o=0&x=17&y=11"
Case 12 'MSN
sStr = "http://search.msn.com/results.asp?" & _
"q=" & _
sArg & _
"&origq=&RS=CHECKED&FORM=SMCRT&v=1&cfg=SMCINITIAL" & _
"&nosp=0&thr=&submitbutton.x=58&submitbutton.y=14"
Case 13 'ScrubTheWeb
sStr = "http://www.scrubtheweb.com/" & _
"cgi-bin/search.cgi?keyword=" & _
sArg & _
"&x=30&y=15"
Case 14 'Teoma
sStr = "http://s.teoma.com/search?q=" & _
sArg & _
"&qcat=1&qsrc=0&Search.x=30&Search.y=12"
Case 15 'Mama
sStr = "http://www.mamma.com/Mamma?query=" & _
sArg & _
"&qtype=0&image222.x=36&image222.y=11"
Case 16 'Scirus
sStr = "http://www.scirus.com/search_simple/?" & _
"frm=simple&query_1=" & _
sArg & _
"&dsmem=on&dsweb=on"
Case 17 'HotBot (Inktomi)
sStr = "http://www.hotbot.com/default.asp?" & _
"prov=Inktomi&query=" & _
sArg & _
"&ps=&loc=searchbox&tab=web"
Case 18 'HotBot (FAST)
sStr = "http://www.hotbot.com/default.asp?" & _
"prov=FAST&query=" & _
sArg & _
"&ps=&loc=searchbox&tab=web"
Case 19 'HotBot (Google)
sStr = "http://www.hotbot.com/default.asp?" & _
"prov=Google&query=" & _
sArg & _
"&ps=&loc=searchbox&tab=web"
Case 20 'HotBot (Teoma)
sStr = "http://www.hotbot.com/default.asp?" & _
"prov=Teoma&query=" & _
sArg & _
"&ps=1&loc=searchbox&tab=web"
End Select
If sStr <> "" Then
'sStr = chr(34) & sStr & chr(34)
window.location = sStr
End If
End Sub
</SCRIPT>
</HEAD>
<BODY>
<div STYLE="width:103%;height:100%;filter: progid:DXImageTransform.Microsoft.gradient(startColorstr=#44000011, endColorstr=#44FFFF99)" >
<center>
<table>
<caption><b>Select A Search Enigine</b></caption>
<tr>
<td><input type="radio" value="1" name="search1" checked>Google</td>
<td><input type="radio" value="2" name="search1">Alta Vista</td>
<td><input type="radio" value="3" name="search1">Lycos</td>
<td><input type="radio" value="4" name="search1">Excite</td>
</tr><tr>
<td><input type="radio" value="5" name="search1">All The web</td>
<td><input type="radio" value="6" name="search1">Info Seek</td>
<td><input type="radio" value="7" name="search1">Web Crawler</td>
<td><input type="radio" value="8" name="search1">Yahoo</td>
</tr><tr>
<td><input type="radio" value="9" name="search1">Northern Light</td>
<td><input type="radio" value="10" name="search1">Meta Crawler</td>
<td><input type="radio" value="11" name="search1">Ask Jeeves</td>
<td><input type="radio" value="12" name="search1">MSN</td>
</tr><tr>
<td><input type="radio" value="13" name="search1">Scrub The Web</td>
<td><input type="radio" value="14" name="search1">Teoma</td>
<td><input type="radio" value="15" name="search1">Mama</td>
<td><input type="radio" value="16" name="search1">Scrius</td>
</tr><tr>
<td><input type="radio" value="17" name="search1">HotBot (Inktomi)</td>
<td><input type="radio" value="18" name="search1">HotBot (FAST)</td>
<td><input type="radio" value="19" name="search1">HotBot (Google)</td>
<td><input type="radio" value="20" name="search1">HotBot (Teoma)</td>
</tr></table>
<hr>
<br>
<b>Now Enter Your Search Criteria</b><br>
<input type="text" id="question" size="60"><button id="btnSearch">Go...</button>
<!--
<button id="btnGo">Go...</button>
-->
</center>
</div>
</BODY>
</HTML>
[...END]
