<% Option Explicit %> <% Dim objDAL : Set objDAL = new dataAccessObject Dim intErrNum Dim strErrDesc Dim intItemId : intItemId = Request("itemId") Dim intCatId : intCatId = Request("catId") Dim intSubCatId : intSubCatId = Request("subcatId") Dim strSetDetailImage : strSetDetailImage = Request("showDetail") Dim strShowDetailImage Dim rsItemInfo Dim rsCatName Dim rsSubCatName Dim strName Dim strDescription Dim strCirca Dim strDimensions Dim strStockno Dim strImageDetail Dim strImagePopup Dim strImagePopup2 Dim strImagePopup3 Dim strImagePopup4 Dim strImagePopup5 Dim strImagePopup6 Dim strIsSold Dim strPrice Dim strCatName Dim strSubCatName Dim strSegment Dim strBirthDesignation Dim strArtistFname Dim strArtistLname Dim section : section = "items" Dim subsection : subsection = "" 'On Error Resume Next Set rsCatName = objDAL.GetCategoryName(intCatId) intErrNum = Err.Number strErrDesc = Err.Description 'On Error Goto 0 If intErrNum <> 0 Then objFunctions.HandleErrorEx intErrNum, strErrDesc, "DataAccessLayer.GetCategoryName", true End If If NOT (rsCatName.BOF AND rsCatName.EOF) Then 'get values from the database strCatName = rsCatName("CatName") strSegment = rsCatName("Segment") rsCatName.Close Set rsCatName = Nothing Call objDAL.CloseDBConnection () Else Response.Redirect "error.asp?Msg=" & Server.UrlEncode(" cat name Error") End If If intSubCatId <> "" Then 'On Error Resume Next Set rsSubCatName = objDAL.GetCategoryName(intSubCatId) intErrNum = Err.Number strErrDesc = Err.Description 'On Error Goto 0 If intErrNum <> 0 Then objFunctions.HandleErrorEx intErrNum, strErrDesc, "DataAccessLayer.GetCategoryName", true End If If NOT (rsSubCatName.BOF AND rsSubCatName.EOF) Then 'get values from the database strSubCatName = rsSubCatName("CatName") strArtistFname = rsSubCatName("ArtistFname") strArtistLname = rsSubCatName("ArtistLname") strBirthDesignation = rsSubCatName("BirthDesignation") rsSubCatName.Close Set rsSubCatName = Nothing Call objDAL.CloseDBConnection () Else Response.Redirect "error.asp?Msg=" & Server.UrlEncode(" subcat name Error") End If End If 'On Error Resume Next Set rsItemInfo = objDAL.GetItemInfo(intItemId) intErrNum = Err.Number strErrDesc = Err.Description 'On Error Goto 0 If intErrNum <> 0 Then objFunctions.HandleErrorEx intErrNum, strErrDesc, "DataAccessLayer.GetItemInfo", true End If If NOT (rsItemInfo.BOF AND rsItemInfo.EOF) Then 'get values from the database strName = Replace(Trim(rsItemInfo("ItemName")), chr(10), "
") If rsItemInfo("Description") <> "" Then strDescription = Replace(Trim(rsItemInfo("Description")), chr(10), "
") End If strCirca = Trim(rsItemInfo("Circa")) If rsItemInfo("Dimensions") <> "" Then strDimensions = Replace(Trim(rsItemInfo("Dimensions")), chr(10), "
") End If strStockno = Trim(rsItemInfo("StockNo")) strImageDetail = Trim(rsItemInfo("ImageDetail")) strImagePopup = Trim(rsItemInfo("ImagePopup")) strImagePopup2 = Trim(rsItemInfo("ImagePopup2")) strImagePopup3 = Trim(rsItemInfo("ImagePopup3")) strImagePopup4 = Trim(rsItemInfo("ImagePopup4")) strImagePopup5 = Trim(rsItemInfo("ImagePopup5")) strImagePopup6 = Trim(rsItemInfo("ImagePopup6")) strIsSold = Trim(rsItemInfo("Sold")) strPrice = Trim(rsItemInfo("Price")) rsItemInfo.Close Set rsItemInfo = Nothing Call objDAL.CloseDBConnection () Else Response.Redirect "error.asp?Msg=" & Server.UrlEncode(" item info Error") End If Select Case strSetDetailImage Case "strImagePopup" strShowDetailImage = strImagePopup Case "strImagePopup2" strShowDetailImage = strImagePopup2 Case "strImagePopup3" strShowDetailImage = strImagePopup3 Case "strImagePopup4" strShowDetailImage = strImagePopup4 Case "strImagePopup5" strShowDetailImage = strImagePopup5 Case "strImagePopup6" strShowDetailImage = strImagePopup6 Case "" strShowDetailImage = strImagePopup End Select %> Rumi Galleries
<% If strSegment = "Antiques" Then %><% Elseif strSegment = "Fineart" Then %><% End If %>
Back to: <% If strSegment = "Antiques" Then %>Antiques<% Elseif strSegment = "Fineart" Then %>Fine Art<% End If %> > #item<%= strStockno %><% End If %>" class="breadcrumb"><%= strCatName %> <% If intSubCatId <> "" Then %>> <%= strSubCatName %><% End If %>
 

<% If strSegment = "Fineart" and strBirthDesignation <> "Anonymous" Then %>

<%= strArtistFname %> <%= strArtistLname %> <%= strBirthDesignation %>

<% End If %> <% If strSegment = "Antiques" Then %>
<%= strName %>
<%= strDescription %> <% End If %>


<% If strSegment = "Fineart" Then %> <%= strName %>
<%= strDescription %>
<% End If %> <%= strCirca %>
<%= strDimensions %>
# <%= strStockno %>

<% If strIsSold = 1 Then %>

SOLD

<% Else %> <% If intCatId = 30 AND strPrice <> "" Then %> <% End If %> <% End If %>
    <% If strImagePopup2 <> "" Then %> <% End If %> <% If strImagePopup3 <> "" Then %> <% End If %> <% If strImagePopup4 <> "" Then %> <% End If %> <% If strImagePopup5 <> "" Then %> <% End If %> <% If strImagePopup6 <> "" Then %> <% End If %>
For pricing or additional information on this piece contact us by phone: (905)274-3616 or fax: (905)274-3617, or email us at: rumi@rumiantiques.com.