<% ' 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 %>
PE Logo Personal  Elegance
High Quality Personalized Cards
Questions? Call us at 1-207-795-0267
 
 Our card selections
 Christmas  
  • Corporate
  • Patriotic
  • Contemporary
  • Elegant
  • Comical
  • Calendar
  • Religious
  • Traditional
 
   
 New Year’s  
 Thanksgiving  
 Hanukkah  
 Birthday  
   
 Coming Soon  
 Thank You  
 Baby  
 Wedding  
 Stationery  
 Note Cards  
 Postcards  
 
  Our Commitment to YOU
 

High Quality Products!
Top Quality Service!
Personalized Processing!

Email Us Here.

(207) 795-0267

 
 
 

These cards are no longer available. They are a sampling of the holiday cards we offer. Click on any of the cards to view a larger version.
 

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 & " tblProductGraphics.GraphicDirectory, " SQL = SQL & " tblProductGraphics.GraphicSmFV " SQL = SQL & " FROM Products, tblProductGraphics " SQL = SQL & " WHERE Products.ProductID = tblProductGraphics.ProductNumber " SQL = SQL & " AND Products.CategoryID = 1 " 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 %>