Images Art

<%@LANGUAGE="VBSCRIPT"%> <% Dim RecImageLeft Dim RecImageLeft_numRows Set RecImageLeft = Server.CreateObject("ADODB.Recordset") RecImageLeft.ActiveConnection = MM_bands_STRING RecImageLeft.Source = "SELECT * FROM products, Cat WHERE TypeID = 1 AND Show ='y' AND Cat.CatID = products.CatID" RecImageLeft.CursorType = 0 RecImageLeft.CursorLocation = 2 RecImageLeft.LockType = 1 RecImageLeft.Open() RecImageLeft_numRows = 0 %> <% Dim RecImageMiddle Dim RecImageMiddle_numRows Set RecImageMiddle = Server.CreateObject("ADODB.Recordset") RecImageMiddle.ActiveConnection = MM_bands_STRING RecImageMiddle.Source = "SELECT * FROM products, Cat WHERE TypeID = 7 AND Show ='y' AND Cat.CatID = products.CatID" RecImageMiddle.CursorType = 0 RecImageMiddle.CursorLocation = 2 RecImageMiddle.LockType = 1 RecImageMiddle.Open() RecImageMiddle_numRows = 0 %> <% Dim RecImageRight Dim RecImageRight_numRows Set RecImageRight = Server.CreateObject("ADODB.Recordset") RecImageRight.ActiveConnection = MM_bands_STRING RecImageRight.Source = "SELECT * FROM products, Cat WHERE TypeID =8 AND Show ='y' AND Cat.CatID = products.CatID" RecImageRight.CursorType = 0 RecImageRight.CursorLocation = 2 RecImageRight.LockType = 1 RecImageRight.Open() RecImageRight_numRows = 0 %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = -1 Repeat2__index = 0 RecCat_numRows = RecCat_numRows + Repeat2__numRows %> Images Art

Original Prints and Drawings

Home

About Us

We are a Private Dealership, founded in 1986 and based in Golders Green, North West London. We deal in Quality Original Prints, Drawings, small Oils & Sculptures by well known British, European & American artists at prices, generally, between £250 and £30,000. We manage to keep our overheads low working from home and are able, therefore, to pass this saving on to our clients, offering our works at very reasonable prices.

We have shown in numerous Art Fairs and exhibitions in the UK and a recent show was with the National Trust. We have also shown in the Far East, the USA and Canada. You are welcome to visit us, by appointment only, since we do travel a great deal.

Terms & Conditions | Privacy Policy |

<% RecImageLeft.Close() Set RecImageLeft = Nothing %> <% RecImageMiddle.Close() Set RecImageMiddle = Nothing %> <% RecImageRight.Close() Set RecImageRight = Nothing %>