Ciao.

Dovrei tradurre il seguente script da JScript in VBScript, potete aiutarmi ?
codice:
<%@ LANGUAGE = JScript %>
<%
var nickname = String(Request.Form("nickname"));
if (nickname!="undefined" && nickname!="") {
  if (nickname.indexOf("@")!=-1 || nickname.indexOf("$")!=-1) {
    Response.Write("ERRORE! NICKNAME NON VALIDO (ESCLUDERE @ E $)");
    Response.End;
  }
  Session("nickname") = nickname;
  Response.Redirect("chat.asp");
}
%>

<% 
// Controllo l'operazione di login
if (Session("nickname")==null) Response.End;
// Inizializzo l'Application nel caso essa non dovesse risultare inizializzata
if (Application("messaggi")==null) Application("messaggi") = "";
// Leggo l'Application
var messaggi = Application("messaggi");
// Divido le frasi
var frase = messaggi.split("$");
%>


<%
for (i=0;i<frase.length;i++) {
  aux = frase[i].split("@");
  if (aux.length>2) {
    Response.Write("<font size='1'>" + aux[0] + "</font> ");
    Response.Write("<font color='blue'>" + aux[1] + "</font> - ");
    Response.Write(aux[2] + "
");
  }
}
%>


<% 
if (Session("nickname")==null) Response.End;
if (Application("messaggi")==null) Application("messaggi") = "";

function replace(str1,str2,str3) {
  // Funzione di utilità
  while (str1.indexOf(str2)!=-1) str1 = str1.replace(str2,str3);
  return str1;
}

// Leggo autore e testo
var nickname = String(Session("nickname"));
var testo = String(Request.Form("testo"));

// Inserisco la nuova frase
if (testo!="undefined" && testo!="") {
  testo = replace(testo,"@","&#64;");
  testo = replace(testo,"$","&#36;");
  d = new Date();
  orario = "" + d.getHours() + ":" + d.getMinutes();
  Application.Lock();
  messaggi = Application("messaggi");
  nuova = orario + "@" + nickname + "@" + testo;
  var frase = messaggi.split("$");
  for (i=0;i<frase.length && i<19;i++)
    nuova += "$" + frase[i];
  Application("messaggi") = nuova;
  Application.UnLock();
}
%>
Grazie !