<% ' Declare all global variables here dim vDateNow ' Today's date dim vProductID ' Current Promotion ID dim vCategoryItemRS ' Recordset for the Promotion descriptions dim vResult vDisplaySide = 0 ' Initialize to 0 - 0 (left side) 1 (right side) vRunMode = "Test" %> <% ' Get the path for the root directory for the site and connect to ' the database. ' vResult = Server.MapPath("/") response.write("") Set Conn = Nothing Set Conn = Server.CreateObject("ADODB.Connection") vResult = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & vResult & "\Database\db1.mdb" Conn.Open vResult ' vCategoryIn = Request.QueryString("Category") vCategoryIn = 11 %> Personal Elegance - Personalized Cards and Stationery
 
Please email us at info@PersonalElegance.com or call 207.795.0267 if you have any question about our products.
 
<% if fGetCategoryItems() then vLineSub = 0 do until vCategoryItemRS.EOF %> "> " BORDER="0" VSPACE="5"> <% vCategoryItemRS.MoveNext loop end if %>

©2001 - 2003 PersonalElegance.com, All Rights Reserved 

PDR Consulting
<% ' cleanup set vCategoryItemRS = nothing conn.close set conn = nothing %> <% 'All functions called by this page are to reside in this area (at the end of the pages). ' ' 'This function will retrieve the items to display on the page function fGetCategoryItems() SQL = SQL & " SELECT Products.ProductID, " SQL = SQL & " Products.PEProdID, " SQL = SQL & " tblProductGraphics.GraphicDirectory, " SQL = SQL & " tblProductGraphics.GraphicSmFV " SQL = SQL & " FROM Products, tblProductGraphics " SQL = SQL & " WHERE Products.ProductID = tblProductGraphics.ProductNumber " SQL = SQL & " AND Products.CategoryID = " & vCategoryIn & " " SQL = SQL & " ORDER BY ProductID " SQL = SQL & " ; " 'response.write(SQL) Set vCategoryItemRS = Conn.Execute(SQL) if (vCategoryItemRS.EOF and vCategoryItemRS.BOF) Then fGetCategoryItems = False else fGetCategoryItems = True End If end function %>