|
Search software / file search engines
This is a search engine to find software / files etc.
Try it out below
<%
strSearch = Request.Form("query")
Select Case Request.Form("engine")
Case "Download"
Response.Redirect("http://download.cnet.com/downloads/1,10150,0-10000-103-0-1-7,00.html?tag=srch&qt=" & strSearch & "&cn=&ca=10000")
Case "fileminewin"
Response.Redirect("http://itprodownloads.com/searchResults?queryText=" & strSearch & "&Action=FilterSearch&Filter=fmfilter.hts&ResultTemplate=fmresults.hts&ViewTemplate=view.hts&baseref=1&platformid=0" )
Case "fileminemac"
Response.Redirect("http://itprodownloads.com/searchResults?queryText=" & strSearch & "&Action=FilterSearch&Filter=fmfilter.hts&ResultTemplate=fmresults.hts&ViewTemplate=view.hts&baseref=1&platformid=1&submitbutton=Search")
Case "transit"
Response.Redirect("http://www.filetransit.com/search/search.php?q=" & strSearch & "&r=30")
Case "fileworld"
Response.Redirect("http://search.pcworld.com/query.html?qt=" & strSearch & "&col=down&inthe=63072000&rp=0&dt=in&ws=0&qm=0&st=1&nh=10&oq=&rq=0&dt=in&si=0")
Case "winsite"
Response.Redirect("http://www.winsite.com/bin/Search?q=" & strSearch & "&x=0")
Case "simtel"
Response.Redirect("http://www.simtel.net/cgi-bin/htsearch?config=&restrict=&exclude=&method=and&format=builtin-long&sort=score&words=" & strSearch)
Case "pcutility"
Response.Redirect("http://www.livepublishing.co.uk/pcutilities/searchdb.cgi?search=" & strSearch & "&method=exact")
'Case ""
' Response.Redirect("")
'Case ""
' Response.Redirect("")
'Case ""
' Response.Redirect("")
'Case ""
' Response.Redirect("")
End Select
%>
|