<% metaDescription = "Welcome to Digital Enterprises' Online Store! Check out our collection of special products and video-seminars geared towards providing individuals and entrepreneurs with tools and knowledge for success!" metaKeywords = "digital enterprises, technical, software, video, svase, entrepreneur, visualtext" thisPageTitle = "Welcome to Digital Enterprises' Online Store!" %> <% ' Comersus 4.00 Sophisticated Cart ' Developed by CopyRight Rodrigo S. Alhadeff ' May-2002 ' Open Source License can be found at License.txt ' http://www.comersus.com ' Details: dynamic home: get products markes as showInHome %> <% on error resume next dim connTemp, rsTemp, pRowsShown ' defines how many rows it will show in the home ' consider that if there are no enough products you will get empty cells pRowsShown = 2 arrCounter = 0 pIdCustomer = session("idCustomer") ' get products marked as showInHome mySQL="SELECT idProduct, description, details, price, imageUrl FROM products WHERE showInHome=-1 AND active=-1" call getFromDatabase (mySql, rsTemp, "dynamic_index") if rstemp.eof then response.redirect "message.asp?message="&Server.Urlencode(dictLanguage.Item(Session("language")&"_dynamicindex_1") ) end if ' define the array to store products (2 columns) reDim arrProducts(pRowsShown*2,5) ' load product information in the array ' load the array only with spots available do while (not rstemp.eof) and arrCounter<(pRowsShown*2) pIdProduct = rstemp("idProduct") pDescription = rstemp("description") pDetails = rstemp("details") ' switch description and details depending on user selected language switchProductsLanguage session("language"), pIdProduct, pDetails, pDescription ' load product array arrProducts(arrCounter,0)= pIdProduct arrProducts(arrCounter,1)= pDescription arrProducts(arrCounter,2)= pDetails arrProducts(arrCounter,3)= rstemp("price") arrProducts(arrCounter,4)= rstemp("imageUrl") arrCounter = arrCounter+1 rstemp.moveNext loop %>
Welcome to Digital Enterprises' New Online Store! Check out our collection of special products and video-seminars geared towards providing individuals and entrepreneurs with tools and knowledge for success! Note: If you'd prefer to order by phone, just call (408) 741-0974.
  <% pItemCounter=0 for f=0 to pRowsShown-1%> <%' Cell 1 %> <% pItemCounter=pItemCounter+1 next%>

<%if arrProducts(pItemCounter,4) <> "" then%> <%else%> <%end if%> <%=arrProducts(pItemCounter,1)%> <%=arrProducts(pItemCounter,2)%> <%=dictLanguage.Item(Session("language")&"_dynamicindex_2")%>  <%=dictLanguage.Item(Session("language")&"_dynamicindex_3") & "" & pCurrencySign & money(arrProducts(pItemCounter,3)) & ""%>				<%pItemCounter=pItemCounter+1%> <%' Cell 2 %> <%if arrProducts(pItemCounter,4) <> "" then%> <%else%> <%end if%> <%=arrProducts(pItemCounter,1)%> <%=arrProducts(pItemCounter,2)%> <%=dictLanguage.Item(Session("language")&"_dynamicindex_2")%>  <%=dictLanguage.Item(Session("language")&"_dynamicindex_3") & "" & pCurrencySign & money(arrProducts(pItemCounter,3)) & ""%>
<%if pRandomProduct=-1 then%> <%=dictLanguage.Item(Session("language")&"_dynamicindex_8")%> <%end if%> <%if pStoreFrontDemoMode=-1 and pAuctions=0 then%> "><%=dictLanguage.Item(Session("language")&"_dynamicindex_4")%> (new!) | <%elseIf pAuctions=-1 then%> <%=dictLanguage.Item(Session("language")&"_dynamicindex_4")%> (new!) | <%end if%> <%=dictLanguage.Item(Session("language")&"_dynamicindex_5")%> <%=dictLanguage.Item(Session("language")&"_dynamicindex_6")%> <%if pStoreFrontDemoMode=-1 and pListBestSellers=0 then%> ">See Our Best Sellers <%elseIf pListBestSellers=-1 then%> <%=dictLanguage.Item(Session("language")&"_dynamicindex_7")%> <%end if%>

<%call closeDB()%>