Problemas com Evento

Olá pessoal boa Tarde... Estou no trabalho e estou com um problema muito sério.

Estou com uma pagina que só funciona no IE e FF no chrome ela não funciona...

Andei lendo alguns forum e muitos falaram que podia ser problema com evento e teria que registrar alguém sabe como faz isso ?

<fieldset class="field">

	<legend>Alteração das Bibliografias existentes: </legend>

 

	<%

 Dim quant_alt

 quant_alt = 0

 

 While Not rsBibliografia.EOF

 

 quant_alt = quant_alt + 1

	%>

 

 <input id="codigo<%=quant_alt%>" type="hidden" value="<%=rsBibliografia("bib_cod")%>" />

 

 <div style="text-align:left;">

 Tipo da categoria cadastrada:

 <select id="categoria<%=quant_alt%>" name="categoria">

 <option value="Básica" <%=seleciona(rsBibliografia("categoria"), "Básica")%>>Básica</option>

 <option value="Complementar" <%=seleciona(rsBibliografia("categoria"), "Complementar")%>>Complementar</option>

 </select>

 <br />

 

 <textarea id="alt_alterar<%=quant_alt%>" type="text" rows="2" cols="200">

 <%=rsBibliografia("descricao")%>

 </textarea>

 <img onmouseOver="setImg(this, '../imagem/bt_alterar_over.gif')" onmouseOut="setImg(this, '../imagem/bt_alterar.gif')" alt="Cadastrar" src="../imagem/bt_alterar.gif" onclick="alterar(<%=quant_alt%>);" />

 </div>

 <br />

 

 

 

 

 <%

 rsBibliografia.MoveNext()

 Wend

 %>

 

 <input id="quant_alt" type="hidden" value="<%=quant_alt%>"/>

 <input id="discod_alt" type="hidden" value="<%=discod%>"/>

</fieldset>

A pagina é essa ai...