<% Response.Buffer = True sFind = Request.QueryString("find") If Not sFind = "" Then Dim sql Select Case sFind Case "category" intCategoryID = Request("idCategory") 'in case someone got here other than selecting a 'category from the drop down box If intCategoryID = "" Then intCategoryID = 1 sql = "EXECUTE usp_GetProductsByCategory "&intCategoryID&"" Dim sCatTitle, arrCatTitle sCatTitle = "SELECT name FROM category WHERE idCategory = "&intCategoryID&" " arrCatTitle = GetData(sCatTitle) Case "artist" intArtistID = Request("idArtist") If intArtistID = "" Then intArtistID = 1 sql = "EXECUTE usp_GetProductsByArtist "&intArtistID&"" ShowArtistDescription = True End Select Dim rsProds Set rsProds = Server.CreateObject("adodb.recordset") rsProds.Open sql,Application("strConnect"),3,3 Else Response.Redirect ("default.asp") End If %> Caribbean Art Prints, Hawaiian Giclees and Paintings Gallery - Tropical Art <% If Not IsEmpty(arrCatTitle) Then Response.Write ("Tropical Pie: Art Prints & Original Paintings: "&arrCatTitle(0,0)&"") Else Response.Write ("Tropical Art, Caribbean Paintings, Hawaii Giclees & Art Prints") End If %>

Hawaiian and Caribbean Artist Page

 "Quality Tropical Art Prints, Original Paintings & Limited Edition Giclees from "TropicalPie"
We sell thick Art Prints...Not Cheap Posters

<% If ShowArtistDescription Then Dim thisArtist Set thisArtist = New Artist With thisArtist .ArtistID = intArtistID .GetArtist() Response.Write .FirstName & " " & .LastName & "

" Response.Write .Description & "

" End With Set thisArtist = Nothing End If %> <% If Not IsEmpty(arrCatTitle) Then Response.Write (" "&arrCatTitle(0,0)&" ") Else Response.Write (" ") End If %>
CLICK ON THE THUMBNAILS BELOW TO ENLARGE ART IMAGES,
ALSO FOR SIZE & PRICE OF ARTWORK
<% If Not rsProds.EOF Then If rsProds.RecordCount < 9 Then rsProds.PageSize = rsProds.RecordCount Else rsProds.PageSize = 9 End IF If Request.QueryString("pg")="" OR Request.QueryString("pg")="1" Then rsProds.AbsolutePage = 1 Response.Write ("") intCell = 0 For i = 1 to rsProds.PageSize intCell = intCell+1 Response.Write ("") If intCell mod 3 = 0 Then Response.Write ("") rsProds.MoveNext next Else rsProds.AbsolutePage = CInt(Request.QueryString("pg")) If rsProds.AbsolutePage = rsProds.PageCount Then 'if on last page intPageSize = rsProds.RecordCount mod 9 If intPageSize = 0 Then intPageSize = 9 Else intPageSize = 9 End If 'build out products Response.Write ("") 'response.Write rsProds.PageCount intCell = 0 For i = 1 to intPageSize'rsProds.PageSize intCell = intCell+1 Response.Write ("") If intCell mod 3 = 0 Then Response.Write ("") rsProds.MoveNext next End If Else Response.Write ("") End If %>

"&rsProds("NAME")&"

"&rsProds("NAME")&"
No products available. Please select another Category or Artist. or Email Us for Details
<% '**********************************************PAGE NUMBER TABLE****************************************** 'If more than one page then create pagecount table If rsProds.PageCount > 1 Then Response.Write ("
MORE ART PAGES: ") for i = 1 to rsProds.PageCount Response.Write (" "&i&",") next Response.Write ("") End If 'end creating pagecount table ************************************************************ %>
Click on Pictures above to enlarge Images

The "photos of Art items" online are very nice, but do not even begin to do them justice. The actual items are even more beautiful.

What is a Giclee? - You might be wondering

Click Here for more Information on Custom Artwork