Buonasera a tutti!

Vorrei il vostro aiuto per favore riguardo uno VBScript che vorrei trasformarlo in JavaScript. Oppure desidero sapere se esiste uno javascript simile in rete già pronto.

Grazie per la vostra attenzione.

__________________

<script language=vbscript>
Function ChiudiWin()
window.close
End Function
</script>

<style>

p.dashed
{
background:#FFFFC0;
border-top-width: 5px;
border-bottom-style: dashed;
border-bottom-width: 2px;
border-left-width: 2px;
border-left-style: dashed;
border-right-width: 2px;
border-right-style: dashed;
}

</style>
</head>
<body topmargin="0" leftmargin="0" marginwidth="0" marginheight="0">


<p class="dashed">
<table border="0" cellspacing="0" cellpadding="0" width="100%">
<th bgcolor="black"><font style="font-family:Arial;font-size:14pt;color:#FF7F01" color=black>Zero Termico e Quota Neve</font></th>
</table>
<table border="0" cellspacing="0" cellpadding="3" width=100%>
<tr>
<td>Quota della località (in metri)</td><td><input align="right" size="5" name="altezza">mt</td>
</tr>
<tr>
<td>Temperatura attuale della località</td><td><input align="right" size="5" name="temper">°C</td>
</tr>
<tr>
<td>Stato del tempo in atto</td><td><select name="tempo"><option checked>Sereno</option><option>Poco Nuvoloso</option>
<option>Nuvoloso</option><option>Coperto</option><option>Pioggia</option><option>Temporale</option><option>Neve</option></select></td>
</tr>
<tr>
<td>Tasso attuale dell'umidità relativa</td><td><input align="right" size="5" name="umidita">%</td>
</tr>
<tr>
<td>Intensità attuale del vento</td><td><select name="vento"><option checked>Calma</option><option>Debole</option>
<option>Moderato</option><option>Forte</option></select></td>
</tr>
<tr>
<td>Tipo di luogo dove si trova</td><td><select name="luogo"><option checked>Mare</option><option>Vetta di montagna</option>
<option>In pianura</option><option>A valle</option><option>In collina</option></select></td>
</tr>
<tr>
<td></td><td><input type="button" name="calcola" value="calcola" onclick="vbscript:calcola()"></td>
</tr>
<tr>
<td><pre>[b]<font color="blue">Lo zero termico è stimato attualmente a circa</td><td><input align="right" size="5" name="zerot">mt</td>
</tr>
<tr>
<td>[b]<pre><font color="blue">La quota neve si trova a circa</td><td><input align="right" size="5" name="qneve">mt</td>
</tr></table>

<p onmouseover="javascript:this.style.cursor='hand'" onmouseout="javascript:this.style.cursor='default' " style="font-family:verdana;font-size:8pt" align="center" onclick="ChiudiWin()">Chiudi</p>
</center>



</body>

<script language="vbscript">
Function Calcola()

'if clng(temper.value) <=0 then
' zerot.value = "0"
' qneve.value = "0"
' exit Function
' end if

if altezza.value = "" or temper.value = "" or umidita.value = "" then
msgbox "Inerire le variabili necessarie sui campi appositi"
exit function
end if

rh = 100
select case tempo.selectedIndex
case 1
rh = rh *1.05
case 2
rh = rh * 1.4
case 3
rh = rh * 1.6
case 4
rh = rh * 1.8
case 5
rh = rh * 2
case 6
rh = rh * 1.6
case 7
rh = rh * 1.9
end select

select case vento.selectedIndex

case 1
rh = rh * 1.1
case 2
rh = rh * 1
case 3
rh = rh * 0.9
case 4
rh = rh * 0.7

end select

select case luogo.selectedIndex

case 1
rh = rh * 1.1
case 2
rh = rh * 0.9
case 3
rh = rh * 1.0
case 4
rh = rh * 0.8
case 4
rh = rh * 0.9

end select

rh = rh * (1- cdbl(umidita.value*0.0015))

zerot.value = cstr(clng(clng(altezza.value) + (rh* cdbl(temper.value))))
qneve.value = cstr(clng(clng(zerot.value) - (rh*2)))

if clng(zerot.value) < 0 then
zerot.value = "0"
end if

if clng(qneve.value) < 0 then
qneve.value = "0"
end if
end Function
</script>


</p>

__________________