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();
%>