<% ' Open database connection ' Create ADO Connection Component to connect with database Set DBConn = Server.CreateObject("ADODB.Connection") DBConn.ConnectionTimeout = Application("DBConn_ConnectionTimeout") DBConn.CommandTimeout = Application("DBConn_CommandTimeout") DBConn.Open Application("DBConn_ConnectionString"), Application("DBConn_RuntimeUserName"), Application("DBConn_RuntimePassword") Set cmdTemp = Server.CreateObject("ADODB.Command") Set Product = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT * FROM vFeatured" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = DBConn Product.Open cmdTemp, , 1, 3 Dim SectionName() Dim SubSectionName() Dim ProductName() Dim ProductID() Dim ProductDesc() Dim ProductImage() Dim SectionID() Dim SubSectionID() Dim bFlag() Dim ProductCount ProductCount = 0 DisplayLine = 0 While Not Product.EOF ProductCount = ProductCount + 1 ReDim Preserve SectionName(ProductCount) ReDim Preserve SubSectionName(ProductCount) ReDim Preserve ProductName(ProductCount) ReDim Preserve ProductID(ProductCount) ReDim Preserve ProductDesc(ProductCount) ReDim Preserve ProductImage(ProductCount) ReDim Preserve SectionID(ProductCount) ReDim Preserve SubSectionID(ProductCount) ReDim Preserve bFlag(ProductCount) SectionName(ProductCount) = Trim(Product("SectionName")) SubSectionName(ProductCount) = Trim(Product("SubSectionName")) ProductName(ProductCount) = Trim(Product("ProductName")) ProductID(ProductCount) = Product("ProductID") ProductDesc(ProductCount) = Product("ProductDesc2") SectionID(ProductCount) = Product("SectionID") SubSectionID(ProductCount) = Product("SubSectionID") bFlag(ProductCount) = Product("bFlag") if len(Product("ProductImage3")) then ProductImage(ProductCount) = Product("ProductImage3") else ProductImage(ProductCount) = "nophoto.gif" end if Product.MoveNext Wend %> [an error occurred while processing this directive]
Left End
PRODUCT AREAS
<% '******************************************************************************************** '* '******************************************************************************************** %>
<% Set DBConn = Server.CreateObject("ADODB.Connection") DBConn.ConnectionTimeout = Application("DBConn_ConnectionTimeout") DBConn.CommandTimeout = Application("DBConn_CommandTimeout") DBConn.Open Application("DBConn_ConnectionString") %> <% Set cmdTemp = Server.CreateObject("ADODB.Command") Set Section = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "SELECT * FROM tblSection WHERE Active > 0 ORDER BY SectionName " cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = DBConn Section.Open cmdTemp, , 0, 1 While Not Section.EOF intSectionID = Section("SectionID") Response.Write("" & vbCrLf ) Section.MoveNext Wend %>
" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("
    " & vbCrLf ) Set cmdTemp2 = Server.CreateObject("ADODB.Command") Set SubSection = Server.CreateObject("ADODB.Recordset") cmdTemp2.CommandText = "SELECT tblSubSection.SubSectionID, tblSubSection.SubSectionName, tblSubSection.SubSectionDesc, tblSubSection.Active FROM tblMapSection_to_SubSection INNER JOIN tblSubSection ON tblMapSection_to_SubSection.SubSectionID = tblSubSection.SubSectionID WHERE tblSubSection.Active > 0 AND tblMapSection_to_SubSection.SectionID =" & intSectionID & ";" cmdTemp2.CommandType = 1 Set cmdTemp2.ActiveConnection = DBConn SubSection.Open cmdTemp2, , 0, 1 While Not SubSection.EOF Response.Write("
" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) SubSection.MoveNext Wend Response.Write("" & vbCrLf ) Response.Write("
" & Trim(Section("SectionName")) & "
  • " & Trim(SubSection("SubSectionName")) & "
    • " & vbCrLf ) Response.Write("
    FEATURED PRODUCTS
    <% '******************************************************************************************** '* Begin of content area '******************************************************************************************** %>
    <% For PrintLoop = 1 To ProductCount if PrintLoop = 1 or PrintLoop = 3 then %>
    <% if bFlag(PrintLoop) then %> <% end if %>
    Buy Now!
    <%= SectionName(PrintLoop) %> • <%= SubSectionName(PrintLoop) %>
    <%= ProductName(PrintLoop) %>
    <%= ProductDesc(PrintLoop) %>
    <% else %>
    <%= SectionName(PrintLoop) %> • <%= SubSectionName(PrintLoop) %>
    <%= ProductName(PrintLoop) %>
    <%= ProductDesc(PrintLoop) %>
    <% end if %> <% Next %>
    <% '******************************************************************************************** '* end of content area '******************************************************************************************** %>
    [an error occurred while processing this directive]