VBScript -> Java Script , Как перенести код

нужно сделать преренос кода с одного скриптового языка в другой, так как Java Script не очень знаю писал на VBScript а нужно на Яве, мож кто поможет?

нужно для того чтоб вставит на сайт, вот там уже половина скриптов сделана на ява скрипте, а когда пытаешся воткнуть туды VBScript все скрипты начинают инерпритироватся темь интерпритатором который стоит выше в html коде (тег script language=) а остольные теги подобного типа игнорируются


сам код:


<div id=Zag_a style="visibility:hidden; width: 180; height: 25; position: absolute; top: 36; left: 0; z-index: 3">
<p class=zagol2 align="right">
Только
</p>
</div>
<div id=Zag_aa style="visibility:hidden; width: 180; height: 25; position: absolute; top: 37; left: 1; z-index: 2">
<p class=zagol2 align="right">
<font color="#C0C0C0">
Только</font>
</p>
</div>
<div id=Zag_b style="visibility:hidden; width: 160; height: 25; position: absolute; top: 58; left: 20; z-index: 3">
<p class=zagol2 align="right">нужные
</p>
</div>
<div id=Zag_bb style="visibility:hidden; width: 160; height: 25; position: absolute; top: 59; left: 21; z-index: 2">
<p class=zagol2 align="right">
<font color="#C0C0C0">
нужные
</font>
</p>
</div>
<div id=Zag_c style="visibility:hidden; width: 135; height: 25; position: absolute; top: 80; left: 75; z-index: 3">
<p class=zagol2 align="right">профессии!
</p>
</div>
<div id=Zag_cc style="visibility:hidden; width: 135; height: 25; position: absolute; top: 81; left: 76; z-index: 2">
<p class=zagol2 align="right">
<font color="#C0C0C0">
профессии!
</font>
</p>
</div>


<script language=VBSCRIPT>
setTimeout "MoveLeft" , 10 , "VBScript"
Sub MoveLeft
Zag_a.style.visibility = show
Zag_aa.style.visibility = show
Zag_a.style.posLeft = Zag_a.style.posLeft + 1
Zag_aa.style.posLeft = Zag_aa.style.posLeft + 1
If Zag_a.style.posLeft <> 189 Then setTimeout "MoveLeft" , 10 , "VBScript" else setTimeout "MoveLeft2" , 10 , "VBScript"

end Sub



Sub MoveLeft2
Zag_b.style.visibility = show
Zag_bb.style.visibility = show
Zag_b.style.posLeft = Zag_b.style.posLeft + 1
Zag_bb.style.posLeft = Zag_bb.style.posLeft + 1
If Zag_b.style.posLeft <> 189 Then setTimeout "MoveLeft2" , 10 , "VBScript" else setTimeout "MoveLeft3" , 10 , "VBScript"
end Sub


Sub MoveLeft3
Zag_c.style.visibility = show
Zag_cc.style.visibility = show
Zag_c.style.posLeft = Zag_c.style.posLeft + 1
Zag_cc.style.posLeft = Zag_cc.style.posLeft + 1
If Zag_c.style.posLeft <> 189 Then setTimeout "MoveLeft3" , 10 , "VBScript"
end Sub

</script>