<%@LANGUAGE="VBSCRIPT"%> <% Dim rcPaintDetail__MMColParam rcPaintDetail__MMColParam = "1" If (Request.QueryString("PaintingID") <> "") Then rcPaintDetail__MMColParam = Request.QueryString("PaintingID") End If %> <% Dim rcPaintDetail Dim rcPaintDetail_numRows Set rcPaintDetail = Server.CreateObject("ADODB.Recordset") rcPaintDetail.ActiveConnection = MM_cntPaintingList_STRING rcPaintDetail.Source = "SELECT * FROM qrdetail WHERE PaintingID = " + Replace(rcPaintDetail__MMColParam, "'", "''") + "" rcPaintDetail.CursorType = 0 rcPaintDetail.CursorLocation = 2 rcPaintDetail.LockType = 1 rcPaintDetail.Open() rcPaintDetail_numRows = 0 %> <%=(rcPaintDetail.Fields.Item("PaintingTitle").Value)%>

Painting Characteristics

Title: <%=(rcPaintDetail.Fields.Item("PaintingTitle").Value)%>
Size (cm): <%=(rcPaintDetail.Fields.Item("paintingSize").Value)%>
Reference: <%=(rcPaintDetail.Fields.Item("PaintingNumber").Value)%>
Media: <%=(rcPaintDetail.Fields.Item("Type").Value)%>
Year: <%=(rcPaintDetail.Fields.Item("PaintingYear").Value)%>
Price (€): <%=(rcPaintDetail.Fields.Item("PaintingPrice").Value)%>
Sold: <%=(rcPaintDetail.Fields.Item("PaintingSold").Value)%>
">Add to Cart
"class="bill" />
Footer Image
<% rcPaintDetail.Close() Set rcPaintDetail = Nothing %>