<% set Category = Server.CreateObject("ADODB.Recordset") Category.ActiveConnection = MM_photogallerymanager_STRING Category.Source = "SELECT tblPhotoGalleryCategory.CategoryName, Count(tblPhotoGallery.ItemID) AS CountOfItemID, tblPhotoGalleryCategory.CategoryID FROM tblPhotoGallery INNER JOIN tblPhotoGalleryCategory ON tblPhotoGallery.CategoryID = tblPhotoGalleryCategory.CategoryID WHERE tblPhotoGallery.Activated = 'True' GROUP BY tblPhotoGalleryCategory.CategoryName, tblPhotoGalleryCategory.CategoryID" Category.CursorType = 0 Category.CursorLocation = 2 Category.LockType = 3 Category.Open() Category_numRows = 0 %> <% Dim photogallery_list__MMColParam1 photogallery_list__MMColParam1 = "%" If (Request.Form("search") <> "") Then photogallery_list__MMColParam1 = Request.Form("search") End If %> <% Dim photogallery_list__MMColParam2 photogallery_list__MMColParam2 = "%" If (Request.QueryString("cid") <> "") Then photogallery_list__MMColParam2 = Request.QueryString("cid") End If %> <% set photogallery_list = Server.CreateObject("ADODB.Recordset") photogallery_list.ActiveConnection = MM_photogallerymanager_STRING photogallery_list.Source = "SELECT tblPhotoGallery.*, tblPhotoGalleryCategory.CategoryName FROM tblPhotoGallery INNER JOIN tblPhotoGalleryCategory ON tblPhotoGallery.CategoryID = tblPhotoGalleryCategory.CategoryID WHERE tblPhotoGallery.Activated = 'True' AND tblPhotoGalleryCategory.CategoryID Like '" + Replace(photogallery_list__MMColParam2, "'", "''") + "' AND (tblPhotoGallery.ItemDesc Like '%" + Replace(photogallery_list__MMColParam1, "'", "''") + "%' OR tblPhotoGallery.ItemName Like '%" + Replace(photogallery_list__MMColParam1, "'", "''") + "%') ORDER BY tblPhotoGalleryCategory.CategoryID" photogallery_list.CursorType = 0 photogallery_list.CursorLocation = 2 photogallery_list.LockType = 3 photogallery_list.Open() photogallery_list_numRows = 0 %> <% Dim photogallery_detail__MMColParam2 photogallery_detail__MMColParam2 = "%" If (Request.QueryString("ItemID") <> "") Then photogallery_detail__MMColParam2 = Request.QueryString("ItemID") End If %> <% Dim photogallery_detail__MMColParam3 photogallery_detail__MMColParam3 = "%" If (Request.QueryString("cid") <> "") Then photogallery_detail__MMColParam3 = Request.QueryString("cid") End If %> <% set photogallery_detail = Server.CreateObject("ADODB.Recordset") photogallery_detail.ActiveConnection = MM_photogallerymanager_STRING photogallery_detail.Source = "SELECT tblPhotoGallery.*, tblPhotoGalleryCategory.CategoryName FROM tblPhotoGallery INNER JOIN tblPhotoGalleryCategory ON tblPhotoGallery.CategoryID = tblPhotoGalleryCategory.CategoryID WHERE tblPhotoGallery.Activated = 'True' AND tblPhotoGallery.ItemID Like '" + Replace(photogallery_detail__MMColParam2, "'", "''") + "' AND tblPhotoGallery.CategoryID Like '" + Replace(photogallery_detail__MMColParam3, "'", "''") + "' ORDER BY tblPhotoGalleryCategory.CategoryID" photogallery_detail.CursorType = 0 photogallery_detail.CursorLocation = 2 photogallery_detail.LockType = 3 photogallery_detail.Open() photogallery_detail_numRows = 0 %> <% Dim HLooper1__numRows HLooper1__numRows = -2 Dim HLooper1__index HLooper1__index = 0 photogallery_list_numRows = photogallery_list_numRows + HLooper1__numRows %> Ackermann and Johnson art gallery
Artist search
Subject search
Price search
Exhibitions
Contact us
Visit us
About us

Our contact details

Address
27 Lowndes Street
London SW1X 9HY

Telephone
020 7235 6464

Facsimile
020 7823 1057

Email
ackermannjohnson@btconnect.com

© Arthur Ackermann & Peter Johnson Ltd - 27 Lowndes Street - London SW1 - 020 7235 6464
<% Category.Close() Set Category = Nothing %> <% photogallery_list.Close() Set photogallery_list = Nothing %> <% photogallery_detail.Close() Set photogallery_detail = Nothing %>