Example for VBSdb: vbscript for database

Home

Demo

Documentation

Examples

Download

Help

This demo shows how easy and effective is to customize the VBSdb layout by applying different style sheets. Select a style from the drop down control on the right side: the corresponding style will be applied. Click here to download the style sheets used in this demo.

Project Category

1 Bar Jewellery

2 Bike Keeper Miscellaneous

3 Cimiero Fittings

4 Cimiero Ofc Fittings

5 Cimiero Vasca Fittings

6 Defimitly Tool Tools

Project Bar

Category Jewellery

Designer Maurizio Bruni

Image

This is already the first page

Select a style:

This is the code implementing the demo:

<%
   VbsDbNew objVbsDb

   objVbsDb( "MdbPath" ) = "../../examples/data/demo.mdb"

   objVbsDb( "Sql" ) = "select * from designers inner join (projects inner join categories on projects.prCaId=categories.caId) " & _
                                   "on designers.deId=projects.prDeId order by prName"

   objVbsDb( "GlobalCSS" ) = session( "SelectedStyle" )

   objVbsDb( "GlobalFieldHeaders" ) = "prName|Project;prDeId|Designer;deLastName|Designer;" &_
                                                             "prCaId|Category;caName|Category;prImagePath|Image;prId|Id"

   objVbsDb( "GlobalImageDir" ) = "../../examples/VBSdb/images"

   objVbsDb( "GridPageSize" ) = 6

   objVbsDb( "GridDeleteButtons" ) = true

   objVbsDb( "GridFields" ) = "prName;caName"

   objVbsDb( "FormFields" ) = "prName;caName;deLastName;prImagePath"

   objVbsDb( "ViewNavigationButtons" ) = "first;next;prev;last;search;add;update;delete"

   objVbsDb( "ViewFieldFormats" ) = "prImagePath|<img height=120 width=180 src='{{prImagePath}}' border=0>;" &_
                                                           "deLastName|<a href='mailto:{{deEMail}}'>{{deFirstName}} {{deLastName}}"

   objVbsDb( "SearchFields" ) = "prName;prDeId;prCaId"

   objVbsDb( "InputSelectFields" ) = "prDeId|select deId,deLastName from designers;prCaId|select caId,caName from categories"

   objVbsDb( "EditTableName" ) = "projects"

   objVbsDb( "EditKeyFields" ) = "prId"

   VbsDb objVbsDb
%>