traduzione jscript -> vbscript

[AvOJaromil]

sono completamente a digiuno di vbscript.
qualche buon anima potrebbe tradurmi questi piccoli script in vbscript?

<%@ LANGUAGE=JSCRIPT %>

<%
//calcolo i millisecondi per la scadenza del cookie
function calcolaMillisecondi(quantita,unita)
{
    
    if (isNaN(quantita) && isNaN(unita))
    {
        return 1000;
    }
    
    unita=unita.toUpperCase();
    var tempo=new Array("O","G","M");
    var moltiplicatore=new Array(3600000,86400000,2592000000)
    for (var i=0; i<tempo.length; i++)
    {
        if (unita==tempo[i])
        {
            return moltiplicatore[i]*quantita;
        }
    }
    
    return 1000;
    
}
%>


<%
//creo il cookie
if ((Request.ServerVariables("HTTP_COOKIE")!="") && (Request.Cookies("linguasceltaperhotelnancy")==""))
{

    var tempoAllaScadenza=calcolaMillisecondi(7,"G");
    
    var data=new Date();
    var scadenza=new Date(data.getTime()+tempoAllaScadenza);
    var scadenzaCookie=(scadenza.getDate() + "/") + ((scadenza.getMonth()<10) ?("0" + (scadenza.getMonth()+1)) :(scadenza.getMonth()+1)) + ("/" + scadenza.getYear()) + (" " + scadenza.getHours()) + ("." + scadenza.getMinutes()) + ("." + scadenza.getSeconds());
    
    Response.Cookies("hotelnancy") = "francese";
    Response.Cookies("hotelnancy").Expires = scadenzaCookie;
    
}
%>

<%
Response.Redirect("http://www.hotelnancy.com/index.asp");
%> 

<%@ LANGUAGE=JSCRIPT %>


<%
function leggiIlCookie()
{
    var lingua="";
    if ((Request.ServerVariables("HTTP_COOKIE")!="") && (Request.Cookies("hotelnancy")!=""))
    {
        lingua=Request.Cookies("hotelnancy");
        if (lingua=="francese") return;
        
    }
    else
    {
        permettiReindirizzamento();
    }
}
%>


<%
    
function permettiReindirizzamento()
{    
    
    var messaggio=new String(Request.ServerVariables("HTTP_ACCEPT_LANGUAGE"));
    var parole=messaggio.split(",");
    
    //aggiunge tedesco quando si avra il dominio .de
    var lingue=new Array("en","it");
    var dominio=new Array("hotelinrimini.co.uk/linguainglese.asp","hotelnancy.it/linguaitaliano.asp");
    
    var lingua=parole[0].substring(0,2);
    for (var i=0;i<lingue.length;i++)
    {
        if (lingua==lingue[i])
        {

            Response.Redirect("http://www." + dominio[i]);

        }
    
    }
    
    Response.Redirect("http://www.hotelinrimini.co.uk");
}
    
%>


<%
leggiIlCookie();
%> 

mille grazie

[Santino83_02]

scrivi tutta la pagina in jscript se sei a digiuno di vbscript..

[AvOJaromil]

magari....
dovrà essere un inclusione in una pagina che ne ha già parecchie altre, tutte scritte in vbscript.
...mi pagassero almeno.

ciao

[Santino83_02]

function calcolaMillisecondi(quantita,unita)

if not isNumber(quantita) and not isNumber(unita) then
    calcolaMillisecondi=1000
    exit function
end if

unita=ucase(unita)
tempo=array("O","G","M")
moltiplicatore=array(3600000, 86400000, 2592000000)

for i=0 to ubound(tempo)

   if unita=tempo(i) then
        calcolaMillisecondi=moltiplicatore(i)*quantita
        exit function
    end if

next

calcolaMillisecondi=1000
end function