% ' Search Engine syntax ' ' http://search.yahoo.com/bin/search?p=SEARCHWORDS ' http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&q=SEARCHWORDS ' http://search.excite.com/search.gw?search=SEARCHWORDS&Submit=Search ' http://www.lycos.com/cgi-bin/pursuit?cat=dir&query=SEARCHWORDS ' http://search.msn.com/results.asp?RS=CHECKED&UN=doc&CO=20&Form=MSNH&MT=SEARCHWORDS ' http://www.webcrawler.com/cgi-bin/WebQuery?searchText=SEARCHWORDS %> <% If Request.Form("btnSearch") = "Search" Then If Request.Form("selEngines") = "yahoo" Then Response.Redirect("http://search.yahoo.com/bin/search?p=" & Request.Form("txtSearchWords")) End If If Request.Form("selEngines") = "altavista" Then Response.Redirect("http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&q=" & Request.Form("txtSearchWords")) End If If Request.Form("selEngines") = "excite" Then Response.Redirect("http://search.excite.com/search.gw?search=" & Request.Form("txtSearchWords") & "&Submit=Search") End If If Request.Form("selEngines") = "lycos" Then Response.Redirect("http://www.lycos.com/cgi-bin/pursuit?cat=dir&query=" & Request.Form("txtSearchWords")) End If If Request.Form("selEngines") = "msn" Then Response.Redirect("http://search.msn.com/results.asp?RS=CHECKED&UN=doc&CO=20&Form=MSNH&MT=" & Request.Form("txtSearchWords")) End If If Request.Form("selEngines") = "webcrawler" Then Response.Redirect("http://www.webcrawler.com/cgi-bin/WebQuery?searchText=" & Request.Form("txtSearchWords")) End If End If If Request.Form("btnSearch2") = "Search" Then If Request.Form("rdoEngines") = "yahoo" Then Response.Redirect("http://search.yahoo.com/bin/search?p=" & Request.Form("txtSearchWords2")) End If If Request.Form("rdoEngines") = "altavista" Then Response.Redirect("http://www.altavista.com/cgi-bin/query?pg=q&kl=XX&q=" & Request.Form("txtSearchWords2")) End If If Request.Form("rdoEngines") = "excite" Then Response.Redirect("http://search.excite.com/search.gw?search=" & Request.Form("txtSearchWords2") & "&Submit=Search") End If If Request.Form("rdoEngines") = "lycos" Then Response.Redirect("http://www.lycos.com/cgi-bin/pursuit?cat=dir&query=" & Request.Form("txtSearchWords2")) End If If Request.Form("rdoEngines") = "msn" Then Response.Redirect("http://search.msn.com/results.asp?RS=CHECKED&UN=doc&CO=20&Form=MSNH&MT=" & Request.Form("txtSearchWords2")) End If If Request.Form("rdoEngines") = "webcrawler" Then Response.Redirect("http://www.webcrawler.com/cgi-bin/WebQuery?searchText=" & Request.Form("txtSearchWords2")) End If End If %>
![]() |
|
|
|
|
|
|
|
|
|
SVS.NET Tech Support Call (317) 642-0400 ! SVS Dialer Setup. SVS Web Accelerator |
~ Welcome to SVS.NET! ~
|
SVS.NET Tech Support Call (317) 642-0400 ! |
|
Shelby Virtual Systems, 48 East Washington St., Shelbyville, IN 46176 Shelby Virtual Systems supports privacy online. |