<% Dim objPGP ' Create instance of the COMobjectsNET.PictureGalleryPro object Set objPGP = Server.CreateObject("COMobjectsNet.PictureGalleryPro") ' Set inner variables of the Picture Gallery Pro. See help for more details. objPGP.EnableSearch = blnEnableSearch objPGP.Encoding = strEncoding objPGP.ImageExt = strImageExt objPGP.ImageToJpegExt = strImageToJpegExt objPGP.PageSize = intPageSize objPGP.RootName = strRootName objPGP.RootPath = strRootPath objPGP.StyleFileName = Server.MapPath("PictureGallery.xslt") ' Generate HTML document and send it to the browser objPGP.WriteHTML ' Free the object Set objPGP = Nothing %>