JSCRIPT til VBS

Jeg har her et Jscript jeg anvender i forbindelse med Simplewiever fotogalleri..
Normalt anvendes en SQL-database, men i det her tilfælde vil jeg godt benytte mig af en access *.mdb, hvis det kan lade sig gøre?.

Jeg får fejlmelding fra følgende connectionstring om at filnavnet er ugyldigt.

objConn.open('Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE= + Server.MapPath("admin/database.mdb")');

Hvis der er en der kan oversætte hele scriptet til VBS, ville det være at foretrække.

HELE SCRIPTET

<%@ language="jscript" %>

<%
var objRS, sqlStr, objConn
var objConn = Server.CreateObject('ADODB.Connection');
objConn.open('Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE= + Server.MapPath("admin/database.mdb")');
var objRS = Server.CreateObject('ADODB.Recordset');
var sqlStr = 'Select * from foto order by filenr asc';
objRS.Open(sqlStr,objConn);

var imgPath = '';

var xml = '<?xml version="1.0" encoding="UTF-8" ?>';
xml += '<SIMPLEVIEWER_DATA maxImageDimension="600" textColor="0xF2F2F2" frameColor="0x6F592D" frameWidth="5" stagePadding="50" thumbnailColumns="3" thumbnailRows="3" navPosition="left" navDirection="LTR" title="Fotografi"  imagePath="' + imgPath + 'fotogalleri/images/" thumbPath="' + imgPath + 'fotogalleri/thumbs/">';
   
while (!objRS.EOF){   


    xml += '<IMAGE>';
    xml += '<NAME>' + objRS('fotonavn')  + '</NAME>';
   
   

    //add auto captions: 'Image X'
    xml += '<CAPTION>' + objRS('id') + objRS('fototekst') + '</CAPTION>';
    xml += '</IMAGE>';
//

objRS.Movenext;
}

objRS.Close();
objConn.Close;

xml += '</SIMPLEVIEWER_DATA>';

Response.Write(xml);
Response.End();

%>