<%ProductID = CLng(Request.QueryString("ProductID"))%> <% SQL = "SELECT TOP 1 * FROM tbl_product_index WHERE ProductID = " & ProductID & " AND StatusID = 1" Set rstemp = conntemp.Execute(SQL) %> <%If rstemp.EOF Then%> <%Else%>
<%If ProductID = 12 OR ProductID = 17 OR ProductID = 38 OR ProductID = 40 Then%> 10x20 | 20x20 | 30x30 | 50x50 <%End If%> <%If ProductID = 19 OR ProductID = 20 Then%> 20x40 | 30x30 <%End If%> <%If ProductID = 22 OR ProductID = 23 OR ProductID = 25 Then%> 10x10 | 10x20 | 20x20 <%End If%> <%If ProductID = 27 OR ProductID = 28 OR ProductID = 29 Then%> 10x20 | 20x20 | 30x30 <%End If%> <%If ProductID = 13 OR ProductID = 31 OR ProductID = 33 OR ProductID = 34 OR ProductID = 35 Then%> 10x20 | 20x20 | 30x30 | 30x50 | 50x50 <%End If%> <%If ProductID = 41 OR ProductID = 42 Then%> 20x20 | 30x30 <%End If%> <%If ProductID = 43 OR ProductID = 44 OR ProductID = 45 OR ProductID = 46 OR ProductID = 47 Then%> 10x20 | 20x20 | 20x30 | 30x50 | 50x70 <%End If%> <%If ProductID = 1 OR ProductID = 48 OR ProductID = 49 Then%> 10x20 | 10x30 | 20x20 <%End If%> <%If ProductID = 3 OR ProductID = 50 OR ProductID = 51 Then%> 10x10 | 10x20 | 20x20 <%End If%> <%If ProductID = 52 OR ProductID = 53 OR ProductID = 54 Then%> 10x20 | 20x20 | 20x30 <%End If%> <%If ProductID = 55 OR ProductID = 57 OR ProductID = 58 Then%> 10x10 | 10x20 | 20x20 <%End If%> <%If ProductID = 59 OR ProductID = 60 OR ProductID = 61 Then%> 10x10 | 10x20 | 20x20 <%End If%> <%If ProductID = 62 OR ProductID = 63 OR ProductID = 64 Then%> 20x20 | 30x30 | 30x50 <%End If%> <%If ProductID = 65 OR ProductID = 67 OR ProductID = 68 Then%> 10x20 | 20x20 | 20x30 <%End If%> <%If ProductID = 15 OR ProductID = 70 Then%> 10x20 | 20x20 <%End If%> <% SQL1 = "SELECT TOP 1 * FROM tbl_product_index WHERE ProductID = " & ProductID & "" Set rstemp1 = conntemp.Execute(SQL1) %> <%If rstemp1.EOF Then%> <%Else%> <%Do While NOT rstemp1.EOF%>
<% SQL2 = "SELECT TOP 4 * FROM tbl_product_images WHERE ProductID = " & ProductID & " AND ImageTypeID = 1 ORDER BY ImageID ASC" Set rstemp2 = conntemp.Execute(SQL2) %> <%If rstemp2.EOF Then%> <%Else%> <%Count = 0%> <%Do While NOT rstemp2.EOF%> <%Count = Count + 1%> <% rstemp2.movenext Loop rstemp2.close Set rstemp2=Nothing %> <%If Count = 3 Then%><%End If%> <%End If%>
Items included in the <%=rstemp1("SeriesID")%>-Series Package:
<% SQL2 = "SELECT * FROM tbl_product_inventory WHERE ProductID = " & rstemp1("ProductID") & "" Set rstemp2 = conntemp.Execute(SQL2) %> <%If rstemp2.EOF THen%>
Information on this series will be available soon!
<%Else%>
<%Do While NOT rstemp2.EOF%>
-<%=rstemp2("Item")%>
<% rstemp2.movenext Loop rstemp2.close Set rstemp2=Nothing %> <%End If%>
<% SQL2 = "SELECT TOP 1 * FROM tbl_product_images WHERE ProductID = " & ProductID & " AND ImageTypeID = 1 ORDER BY ImageID ASC" Set rstemp2 = conntemp.Execute(SQL2) %> <%If rstemp2.EOF Then%> <%Else%> <%Do While NOT rstemp2.EOF%> " rel="lightbox">" width="409" height="276" border="0" title="Click To Enlarge" name="rollimg"> <% rstemp2.movenext Loop rstemp2.close Set rstemp2=Nothing %> <%End If%>
<% SQL2 = "SELECT TOP 1 * FROM tbl_product_images WHERE ProductID = " & ProductID & " AND ImageTypeID = 2 ORDER BY ImageID DESC" Set rstemp2 = conntemp.Execute(SQL2) %> <%If rstemp2.EOF Then%> <%Else%> <%Do While NOT rstemp2.EOF%> " rel="lightbox[<%=rstemp2("ProductID")%>]">" width="279" height="188" border="0" title="Click To Enlarge"> <% rstemp2.movenext Loop rstemp2.close Set rstemp2=Nothing %> <%End If%> <% SQL2 = "SELECT * FROM tbl_product_data WHERE ProductID = " & rstemp1("ProductID") & " ORDER BY ItemID" Set rstemp2 = conntemp.Execute(SQL2) %> <%If rstemp2.EOF Then%> <%Else%> <%Do While NOT rstemp2.EOF%> <% rstemp2.movenext Loop rstemp2.close Set rstemp2=Nothing %> <%End If%>
<%If rstemp2("ClockIcon") = 2 Then%><%End If%><%If rstemp2("ClockIcon") = 3 Then%><%End If%><%If rstemp2("ClockIcon") = 4 Then%><%End If%><%If rstemp2("ClockIcon") = 5 Then%><%End If%> <%=rstemp2("ItemName")%> <%=rstemp2("ItemDesc")%><%If rstemp2("ItemPrice") = 0 Then%>FREE<%End If%><%If rstemp2("ItemPrice") < 0 Then%>CALL<%End If%><%If rstemp2("ItemPrice") > 0 Then%><%=FormatCurrency(rstemp2("ItemPrice"),2)%><%End If%> <%If rstemp2("ItemPrice") >= 0 Then%>
">">
<%End If%>
<% rstemp1.movenext Loop rstemp1.close Set rstemp1=Nothing %> <%End If%>
<%End If%>