%
' 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 Web Services:Auctions
|
|
|
~ Welcome to SVS.NET! ~
(c)1995 - 2002 Shelby Virtual Systems. Terms of use.  Shelby Virtual Systems, 48 East Washington St., Shelbyville, IN 46176
Shelby Virtual Systems supports privacy online. |
|