problemer med InnerHTML

Hej!

jeg har fået dette her til at virke:

I head:
<script LANGUAGE="javascript">
<!--
    function Change(resultat)
    {
   
        resultat = ((document.form1.kr.value * document.form1.indtast.value) / 100)
   
        tal.innerHTML = "" + resultat + "";
   
    } 
//-->
</script>

I body:
<form name="form1">
<%
Response.Write "<input type=""text"" name=""kr"" size=""4"" value="""">kr"
Response.Write "<input type=""text"" name=""indtast"" size=""4"" onchange=""Change('resultat')"">%<br>"

Response.Write "Resultatet er:<div id=""tal"">&nbsp;</div>"
%>
</form>

Indtast kr og % og resultatet bliver lavet i et <div>-tag. Nu vil jeg så gerne bruge det i en loop med indholdet fra databasen. Så gør jeg sådan her:

set conn = Server.CreateObject("ADODB.Connection")
conn.Open Application("Connection_Service")

'finder nogle tilfældige tal til test
sql = "SELECT * from instrument WHERE instrumentid < 40"
set RS = conn.Execute(sql)

        Do While Not rs.eof
       
            Response.Write "<tr><td><input size=""5"" type=""text"" name=""kr"" value=""" & RS("instrumentid") & """>kr&nbsp;&nbsp;<input type=""text"" name=""indtast"" size=""4"" onchange=""Change('resultat')"">%&nbsp;&nbsp;Resultatet er:<div id=""tal"">&nbsp;</div><br></td></tr>"

            RS.MoveNext
       
        Loop
           
Conn.Close
Set conn = Nothing


Men det virker ikke rigtigt - hvad gør jeg forkert?