konvertere javascript til vbscript

Det findes der ikke...
-men prøv at giv mig koden her, så skal jeg se om jeg kan oversætte det!

//>Rune

ok men der er en del !! hehe
hvis du kan skal jeg nok smide nogle flere point efter dig
koden samarbejder med en activex kontrol der hedder powerx
here goes:

<SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>

netbase = "";

function totalout() {
    powerx.command(IDM_TOTALOUT,0);
}

function nexttime() {
    powerx.time = powerx.time+1;
    powerx.refresh();
}

function prevtime() {
    powerx.time = powerx.time-1;
    powerx.refresh();
}

function newarchive() {
    powerx.command(IDM_NEWCONTROL,0);
    powerx.DesignMode = true;
    powerx.setAttrib("NETBASE",netbase);
    powerx.setAttrib("TEMPLATEBASE",netbase);
}

function openarchive(filename) {
    if ( filename!="" )
        filename = netbase+"/"+filename;
    powerx.openarchive(filename);
}

function saveas(filename) {
    if ( filename!="" )
        filename = netbase+"/"+filename;
    powerx.saveas(filename);
}

function save() {
    powerx.writeandpack();
}

function setdefitem(type,picture) {
    url = ""+netbase+"/media/"+picture;
    powerx.setAttrib("DEFAULT_ITEM_IMAGE",""+url);
    powerx.command(IDM_ADDITEMMODE,0);
}

function command(cmd) {
    powerx.command(cmd,0);
}

function select_area(area) {
    powerx.ZoomToArea(area,-400);
    powerx.FireAreaEvent(area,"sound");
    list_areas(area);
    list_items(0);
}

function select_item(item) {
    powerx.ZoomToItem(item,-400);
    powerx.FireItemEvent(item,"sound");
    list_items(item);
    list_areas(0);
}

function list_areas(select) {
    maxa = powerx.GetMaxArea();
    inner = "";
    for (i=1; i<=maxa; i++ )
    {
        if ( powerx.IsAreaValid(i) ) {
            inner=inner+"<img src=media/blaabullit.gif width=10 height=10 border=0>&nbsp;<a href=\"java script:select_area("+i+");\">";
            if (i==select)
                inner=inner+""+powerx.GetAreaName(i)+"<br>";   
            else
                inner=inner+""+powerx.GetAreaName(i)+"<br>";   
            inner=inner+"</a>";
        }
    }
    arealist.innerHTML = ""+inner;
}

function list_items(select) {
    maxa = powerx.GetMaxItem();
    inner = "";
    for (i=1; i<=maxa; i++ )
    {
        if ( powerx.IsItemValid(i) ) {
            inner=inner+"<img src=media/blaabullit.gif width=10 height=10 border=0>&nbsp;<a href=\"java script:select_item("+i+");\">";
            if (i==select)
                inner=inner+""+powerx.GetItemName(i)+"<br>";
            else
                inner=inner+""+powerx.GetItemName(i)+"<br>";
            inner=inner+"</a>";
        }
    }
    itemlist.innerHTML = ""+inner;
}

// powerx events

function powerx_PostReadConfig() {
    list_areas(0);
    list_items(0);
}

function powerx_DataChanged(type,index) {
    list_areas(0);
    list_items(0);
}

function powerx_DataChanged(type,index) {
    list_areas(0);
    list_items(0);
}

function powerx_PolygonHit(item,key,x,y) {
    list_areas(item);
}

function powerx_LeftItem(item) {
    list_items(item);
    if ( powerx.timemode ) {
        powerx.time= powerx.time+1;
        powerx.refresh();
    }
}

function powerx_tips(item,x,y,tips) {
    if (item==0) {
        Desc.innerHTML="";
        window.status = "";
    } else {
        Desc.innerHTML="<b>"+tips+"</b>";
        window.status = tips;
        if (item<0 )
            list_areas(-item);
        else
            list_items(item);
    }
}

// html events

function resize() {
    w = document.body.clientWidth -10;
    h = document.body.clientHeight -40;
    powerx.style.width = w;
    powerx.style.height = h;
}

ic = 1;
function upload_adr_onclick() {

    icmax = ic+40;

    icon = document.coorform['uicon'].value;

    for (;ic<=icmax;ic++) {
        x=ClubE[ic];
        y=ClubN[ic];
        if (x>0 && y>0 ){
            if (x>x2 || x<x1 || y>y2 || y<y1 )
            {
                // break;
            } else {
                x=ClubE[ic];
                y=y1+y2-ClubN[ic];
                n=ClubName[ic];
   
                cBr = rgb(255,0,0);
                cPen = rgb(255,0,0);
       
                shShape = itt_image;
                lStyle = 0;
   
                powerx.SetItem( ic, x,y, cPen, cBr, shShape, lStyle, icon,0, n );
                powerx.SetItemTips(ic,n);
                powerx.SetItemName(ic,n);
                powerx.SetItemZoom(ic,0.5);   
            }
        }
    }
    totalout();
}

function add_adr_onclick() {
    nn =document.coorform['name'].value;
    p = document.coorform['postcode'].value;
    s = document.coorform['streetname'].value;
    n = document.coorform['streetnumber'].value;
    t = document.coorform['tips'].value;

    icon = document.coorform['icon'].value;

    cBr = rgb(255,0,0);
    cPen = rgb(0,255,0);
       
    shShape = itt_shape;
    lStyle = its_circle;
    shShape = itt_image;
    lStyle = 0;
   
    i = powerx.GetMaxItem() + 1;
    powerx.SetItem( i, 0,0, cPen, cBr, shShape, lStyle, icon,0, nn );
    powerx.setitemcoordinate(i,p, s, n)
    powerx.SetItemTips(i,t);
    powerx.SetItemName(i,nn);
    powerx.SetItemZoom(i,0.5);   
    select_item(i);
    list_items(i);
    powerx.Update();
}

function add_circle_onclick() {
    p = document.coorform['postcode'].value;
    s = document.coorform['streetname'].value;
    n = document.coorform['streetnumber'].value;

    d = document.coorform['diameter'].value;

    cBr = rgb(255,0,0);
    cPen = rgb(0,255,0);
       
    shShape = itt_shape;
    lStyle = its_circle;
   
    i = powerx.GetMaxItem() + 1;
    powerx.SetItem( i, 0,0, cPen, cBr, shShape, lStyle, "",0, "item1" );
    powerx.setitemcoordinate(i,p, s, n)
    powerx.SetItemTips(i,s+" "+n);
    powerx.SetItemAbsolute(i,true);
//    powerx.SetItemBrushStyle(i,BS_HOLLOW);

    powerx.SetItemPenStyle(i,PS_DOT);
    powerx.SetItemPenWidth(i,3);

    dia = parseInt(d);
    powerx.SetItemBrushStyle(i,BS_HATCHED);
    powerx.SetItemBrushHatch(i,HS_DIAGCROSS);
    powerx.SetItemZoom(i,dia);
    powerx.SetItemMoveable(i,false);

    powerx.ZoomToItem(i,-dia-200);
   
    powerx.Update();
}

function set_VP_N() {
    x1 = 438542;
    y1 = 6049318;
    x2 = 898091;
    y2 = 6404962;
   
    vx1 = 721854;
    vy1 = 6276433;
    vx2 = 726909;
    vy2 = 6281039;
   
    vx1 = 721928;
    vy1 = 6275744;
    vx2 = 726777;
    vy2 = 6279429;

    powerx.SetResolution(x1,y1,x2,y2);
    powerx.SetViewPort(vx1,vy1,vx2,vy2);
//    powerx.SetViewPort(x1,y1,x2,y2);
}
   
function window_onload() {
    powerx.designmode = true;
    powerx.htmlfile = window.location.href;
//    powerx.SetBgndFile("image4_60.jpg",0);
//    powerx.status = st_isometric;
    netbase = powerx.basepath;
    set_VP_N();
    powerx.SetBgndFile("",0);
    set_mapmode();
    set_VP_N();
    powerx.Update();
//    placeDots();
}   

//-->
</SCRIPT>

<SCRIPT LANGUAGE="javascript" FOR="powerx" EVENT="PolygonHit(item,key,x,y)">
<!--
powerx_PolygonHit(item,key,x,y)
//-->
</SCRIPT>
<SCRIPT LANGUAGE="javascript" FOR="powerx" EVENT="tips(item,x,y,tips)">
<!--
powerx_tips(item,x,y,tips)
//-->
</SCRIPT>
<SCRIPT LANGUAGE="javascript" FOR="powerx" EVENT="PostReadConfig()">
<!--
    powerx_PostReadConfig()
//-->
</SCRIPT>
<SCRIPT LANGUAGE="javascript" FOR="powerx" EVENT="DataChanged(type,index)">
<!--
powerx_DataChanged(type,index)
//-->
</SCRIPT>
<SCRIPT LANGUAGE="javascript" FOR="powerx" EVENT="LeftItem(item)">
<!--
powerx_LeftItem(item)
//-->
</SCRIPT>
<SCRIPT LANGUAGE="javascript" FOR="powerx" EVENT="TimeChanged(time)">
<!--
powerx_TimeChanged(time)
//-->
</SCRIPT>

hehehe var det lidt for vildt?

lukket...