<% ' 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") %> Personal Elegance - Personalized Cards and Stationery
PE Logo Personal Elegance Banner Graphic
High Quality Personalized Cards
Questions? Call us at 1-207-795-0267 BROWSE | VIEW ORDER | CONTACT US | HELP
 
 
 Our card selections
 Party Invitations  
 Announcements  
 Baby Announcement  
 Baby Thank You  
 Note Cards  
 Thank You  
 Response Sets  
 Gift Cards  
 Table Cards  
   
 Birthday  
   
 Christmas 2003  
 New Year’s  
 Thanksgiving  
 Hanukkah  
   
 Coming Soon  
 Wedding  
 Stationery  
 Postcards  
 
  Our Commitment to YOU
 

High Quality Products!
Top Quality Service!
Personalized Processing!

Email Us Here.

(207) 795-0267

 
 
 
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 %>