<% ' 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 = 6 %> Personal Elegance - Personalized Cards and Stationery
 
Invitations for special occasions, parties, or just because.
The invitations you see here are customizable by you.
Express yourself and let the fun begin!!
 
 
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 %>