<% '################################################################################# '## Copyright (C) 2000 Michael Anderson '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or any later version. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Support can be obtained from support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## reinhold@bigfoot.com '## '## or '## '## Snitz Communications '## C/O: Michael Anderson '## PO Box 200 '## Harpswell, ME 04079 '################################################################################# if intWebsearch = 1 then strWebSearchWindowSize = (request.querystring("websearch")) if strWebSearchWindowSize <> "" then '#### Set Cookies For Menu Window Response.Cookies(strUniqueID)("WebSearchWindow")=(strWebSearchWindowSize) '#### End of Set Cookies For News Window end if if Request.Form.Item("searchvalue")="" then if (Request.Cookies(strUniqueID)("WebSearchWindow")= "1") then '### Check Cookie For Minimize Status %>

Web Search

<% else %>

Web Search

Alta Vista Excite Google Lycos Yahoo Hotbot WebCrawler

<% end if %> <% else %> <% select case Request.Form("EngineSelected2") %> <% case ("AltaVista") %> <% strRedirect="http://rd.yahoo.com/results/a/?http://jump.altavista.com/yhoo.go?" %> <% strRedirect=strRedirect & Request.Form("SearchValue") %> <% Response.Redirect strRedirect %> <% case ("Yahoo") %> <% strRedirect="http://google.yahoo.com/bin/query?p=" %> <% strRedirect=strRedirect & Request.Form("SearchValue") %> <% Response.Redirect strRedirect & "&hc=0&hs=0" %> <% case ("NBCi") %> <% strRedirect="http://rd.yahoo.com/results/a/?http://yh.nbci.com/search/directory/results/1,61,-0,00.html?tag=tt.ex.sr.0.yh&keyword=" %> <% strRedirect=strRedirect & Request.Form("SearchValue") %> <% Response.Redirect strRedirect %> <% case ("Google") %> <% strRedirect="http://rd.yahoo.com/results/a/?http://www.google.com/search?q=" %> <% strRedirect=strRedirect & Request.Form("SearchValue")& "&source-id=yahoo-b" %> <% Response.Redirect strRedirect %> <% case ("Brittanica") %> <% strRedirect="http://rd.yahoo.com/results/a/?http://search.britannica.com/search?ref=A02011&query=" %> <% strRedirect=strRedirect & Request.Form("SearchValue") %> <% Response.Redirect strRedirect %> <% case ("DirectHit") %> <% strRedirect="http://rd.yahoo.com/results/a/?http://www.directhit.com/fcgi-bin/DirectHitWeb.fcg?service=web&type=srch&fmt=html&template=jump001&ref=00003&qry=" %> <% strRedirect=strRedirect & Request.Form("SearchValue") %> <% Response.Redirect strRedirect %> <% case ("NorthernLights") %> <% strRedirect="http://rd.yahoo.com/M=64244.607607.2314755.481184/D=ws_us/S=9035784:L/A=255468/R=0/*http://www.dotcomdirectory.net/nsi.com/redirs_all.htm?pgtarg=dc&dotop=QKW&QN=" %> <% strRedirect=strRedirect & Request.Form("SearchValue") %> <% Response.Redirect strRedirect %> <% case ("AskJeeves") %> <% strRedirect="http://rd.yahoo.com/results/a/?http://www.ask.com/distributionjump.asp?redirect=2&origin=7049&metasearch=yes&site_name=Jeeves&ask=" %> <% strRedirect=strRedirect & Request.Form("SearchValue") %> <% Response.Redirect strRedirect %> <% case ("Excite") %> <% strRedirect="http://search.excite.com/search.gw?search=" %> <% strRedirect=strRedirect & Request.Form("SearchValue") & "&Submit=" %> <% Response.Redirect strRedirect %> <% case ("Hotbot") %> <% strRedirect="http://www.hotbot.com/?MT=" %> <% strRedirect=strRedirect & Request.Form("SearchValue") & "&SM=MC&DV=0&LG=any&DC=10&DE=2&clickSrc=&_v=2&OPs=MDRTP" %> <% Response.Redirect strRedirect %> <% case ("Lycos") %> <% strRedirect="http://www.lycos.com/cgi-bin/pursuit?cat=dir&query=" %> <% strRedirect=strRedirect & Request.Form("SearchValue") %>S <% Response.Redirect strRedirect %> <% case ("WebCrawler") %> <% strRedirect="http://www.webcrawler.com/cgi-bin/WebQuery?searchText=" %> <% strRedirect=strRedirect & Request.Form("SearchValue") %> <% Response.Redirect strRedirect %> <% case ("Go") %> <% strRedirect="http://www.go.com/Titles?qt=" %> <% strRedirect=strRedirect & Request.Form("SearchValue") & "&col=WW&;sv=IS&lk=noframes&svx=home_searchbox" %> <% Response.Redirect strRedirect %> <% case ("MSN") %> <% strRedirect="http://search.msn.com/results.asp?RS=CHECKED&UN=doc&CO=20&Form=MSNH&MT=" %> <% strRedirect=strRedirect & Request.Form("SearchValue") %> <% Response.Redirect strRedirect %> <% case Else %> <% strRedirect="http://rd.yahoo.com/results/a/?http://jump.altavista.com/yhoo.go?" %> <% strRedirect=strRedirect & Request.Form("SearchValue") %> <% Response.Redirect strRedirect %> <% End select %> <% end if end if %>