Ukens preken fra Bibelkunnskapsnettet
function ShowAb ( sTitle, nSortBy, nNumber, nCat ) { DBReleaseConnection ( ); var sAccess2000 = 'Microsoft.Jet.OLEDB.4.0'; // which driver am I using? var sDBDriver = sAccess2000; var sDBPath = Server.MapPath ( 'es/bulletin2.mdb' ); var sConnectionString = 'Provider=' + sDBDriver + '; '; if ( -1 == sDBDriver.indexOf ( 'Jet' ) ) // SQL Server database sConnectionString += 'Server=SQLDB; Trusted_Connection=Yes; Database=DB'; else // Access database sConnectionString += 'Data Source=' + sDBPath; var count=1 DBInitConnection ( ); oConnection = Server.CreateObject( 'ADODB.Connection' ); oConnection.Open( sConnectionString ); // quit running the script completely // create a Recordset oRecordSet = Server.CreateObject( 'ADODB.Recordset' ); // sSortBy = 'category,Shortdescr nCat = nCat sSortBy = 'fldauto DESC'; filter = ' '; if (nCat>0) { filter = 'WHERE fldCateID=' + nCat ; } DBGetRecords ( 'SELECT fldTitle,fldName,fldCateID,fldReplyID,fldGroupID FROM tblbulletin ' + filter + ' ' + 'ORDER BY ' + sSortBy ); if ( !oRecordSet.EOF ) { // ContentTableTop ( sTitle ); Out ( '' ); Out ( '' ); Out ( '
' ); if (nNumber>5) { Out (' Har du et nytt diskusjonsemne - eller vil lage en ny tråd? Gå inn på Bki-torget. Du kan legge inn dine synspunkter og være med å diskutere med andre.

'); } while (count< nNumber) // // while ( !oRecordSet.EOF ) { count=count+1 var sDescription = "" + oRecordSet ( 0 ); var sDescr = "" + oRecordSet ( 1 ); var sCID = ""+ oRecordSet (2); var sGID = ""+ oRecordSet (4); var sRID = ""+ oRecordSet (3); // sDescription = sDescription.text ( 20 ); if (sReply="-1") { Out ( '' + sDescr + '
' ); Out ( '' + sDescription + '
' ); } oRecordSet.MoveNext(); } Out ( '
' ); // ContentTableBottom ( ); } } function ShowMott ( sTitle, nSortBy, nNumber, nAntall ) { DBReleaseConnection ( ); var sAccess2000 = 'Microsoft.Jet.OLEDB.4.0'; // which driver am I using? var sDBDriver = sAccess2000; var sDBPath = Server.MapPath ( 'prof/GuestBook.mdb' ); var sConnectionString = 'Provider=' + sDBDriver + '; '; if ( -1 == sDBDriver.indexOf ( 'Jet' ) ) // SQL Server database sConnectionString += 'Server=SQLDB; Trusted_Connection=Yes; Database=DB'; else // Access database sConnectionString += 'Data Source=' + sDBPath; var count=1 DBInitConnection ( ); oConnection = Server.CreateObject( 'ADODB.Connection' ); oConnection.Open( sConnectionString ); // quit running the script completely // create a Recordset oRecordSet = Server.CreateObject( 'ADODB.Recordset' ); sSortBy = 'fldauto DESC'; intID = Request("ID") sFilter = "'" + intID + "'"; DBGetRecords ( 'SELECT fldMessage,fldEmail,fldname,fldcountry,flddate,fldtime,fldHomePage,fldAuto,fldBrowser,fldIP FROM tblGuestbook ' ); if ( !oRecordSet.EOF ) { while ( !oRecordSet.EOF ) // else // while ( count < nNumber ) { count=count+1 var sDescription = "" + oRecordSet ( 0 ); var sDescr = "" + oRecordSet ( 1 ); var sDesc = "" + oRecordSet ( 2 ); var sDescrip = "" + oRecordSet ( 3 ); var sDescript = "" + oRecordSet ( 4 ); var sDescripti = "" + oRecordSet ( 5 ); var sDes = "" + oRecordSet (6); var sDtall= "" + oRecordSet (7); var sDkall= "" + oRecordSet (8); var sDhall= "" + oRecordSet (9); oRecordSet.MoveNext(); } Out ( '
' + sDhall + ' ' + '' + ' ' +'
'); } } %>