Creo que si va por ahi pero si debe de ser en VBSCRIPT por que todo el codigo del buscador esta orientado a usar tambien el sistema de Index Server de Windows eh aqui el codigo
<HTML>
<HEAD>
<TITLE>Formulario ASP de búsqueda</TITLE>
<link href="est_arbol.css" type="text/css" rel="stylesheet">
<META NAME="ROBOTS" CONTENT="NOINDEX">
<META HTTP-EQUIV="Content-Type" content="text/html; charset=Windows-1252">
<style> <!-- a:link {color: white; text-decoration:none;}
a:visited {color: white; text-decoration:none;}
a:active {color: white; text-decoration:none;}
a:hover {color: white; text-decoration:underline;}
a {font-size: 14px; font-family: ms sans serif,Arial,Helvetica}
-->
</style>
<Script Language="JavaScript">
<!--
function ChangeList(y,z) {
window.location.href="search.asp?Searchset="+(y)+" &SearchString="+(z);
}
//-->
</SCRIPT>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub contents_onfocus
deactivateAll
contents.childNodes(0).src = "NoCont-active.gif"
End Sub
Sub contents_onblur
contents.childNodes(0).src = "NoCont.gif"
End Sub
Sub contents_onmouseover
contents.childNodes(0).src = "NoCont-active.gif"
End Sub
Sub contents_onmouseout
contents.childNodes(0).src = "Nocont.gif"
End Sub
Sub index_onfocus
deactivateAll
index.childNodes(0).src = "NoIndex-Active.gif"
End Sub
Sub index_onblur
index.childNodes(0).src = "NoIndex.gif"
End Sub
Sub index_onmouseover
index.childNodes(0).src = "NoIndex-Active.gif"
End Sub
Sub index_onmouseout
index.childNodes(0).src = "NoIndex.gif"
End Sub
sub deactivateAll()
index.childNodes(0).src = "noindex.gif"
contents.childNodes(0).src = "Nocont.gif"
end sub
-->
</SCRIPT>
</HEAD>
<BODY topmargin="0" leftmargin="10px" onload="Activate()">
<font face="ms sans serif">
<Script Language="JavaScript">
<!--
function Activate() {
document.iissrch.SearchString.focus();
}
//-->
</SCRIPT>
<table width="734" height="35" border="0" cellpadding="0" cellspacing="0" style="margin-top:4px;">
<% SearchString=Server.HTMLEncode(Request.QueryString ("SearchString"))%>
<% If SearchString="undefined" Then SearchString="" %>
<% SearchSet=Server.HTMLEncode(Request.QueryString("S earchSet"))%>
<% if SearchSet="" then SearchSet=0%>
<FORM ACTION="Query.asp?SearchType=<%=SearchSet%>" name="iissrch" id="iissrch" target="rightt" METHOD="post">
<tr>
<td width="311" align="right"> <INPUT TYPE="text" NAME="SearchString" SIZE="27" MAXLENGTH="100" Value="<% =SearchString%>">
</td>
<td width="64" align="center"><input name="Action" type="submit" value="Buscar">
</td>
<td width="84" align="center"><p><font color="#003399" size="1" face="Arial"><strong>En
Materia</strong></font></p></td>
<td width="135" align="left"><SELECT NAME="enmateria" ID="Select10">