<% ' Declare all global variables here dim vDateNow ' Today's date dim vProductID ' Current Promotion ID dim vProductRS ' Recordset for the Promotion descriptions dim vProductInfoRS ' Recordset for the Promotion descriptions dim vAttributeRS ' Recordset for the Promotion Graphics and descriptions dim vFeatureRS ' Recordset for the Promotion Qty Category and Prices dim vGraphicRS ' Product ID of the current product being displayed dim vDisplaySide ' Which side of table to display Graphic on dim vRunMode ' Test or production dim vItemSets() ' Array for managing totals entered by the client dim vVerseRS ' Recordset for the selected verse dim vVerseOptionRS ' Recordset for the selected verse dim vPVerseColorRS ' Recordset for the selected verse dim vProductPriceRS ' Recordset for the selected verse dim vCustomLinesRS ' Lines that can be customized dim vTypeStyleRS dim vVerseColorRS dim vDefaultVerseID dim vCheckVerseID dim vDefaultColor dim vTotSub dim vMessageProducts dim vResult dim vProductIn dim vProductSQL vDisplaySide = 0 ' Initialize to 0 - 0 (left side) 1 (right side) vRunMode = "Test" %> <% ' Get the current customers ID. If it is not found then create one. vCookieCustomerID = Request.Cookies("TBDStore")("CustomerID") ' ' Get the path for the root directory for the site and connect to ' the database. ' vResult = Server.MapPath("/") response.write("") Set Conn = Server.CreateObject("ADODB.Connection") vResult = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & vResult & "\Database\db1.mdb" Conn.Open vResult vProductIn = Request.QueryString("Product") vProductId = vProductIn vResult = fGetProductInfo() vProductSQL = vProductInfoRS("ProductID") vResult = fGetProductGraphic() vResult = fGetProductVerse() vResult = fGetProductVerseOption() vResult = fGetProductVerseColor() vResult = fGetTypeStyle() vResult = fGetVerseColor() vResult = fGetProductPricing() vResult = fGetProductCustomLines() %> <% if (vCustomLinesRS.EOF and vCustomLinesRS.BOF) then vCustomLine = 2 else vCustomLine = vCustomLinesRS("CustomLines") end if %> Personal Elegance Card Display - <%= vProductIn %>
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

 
 
 
 
Home

This is card number <%=vProductIn%>. Please email us at info@PersonalElegance.com or call 207.795.0267 with any question about this card.
 

<%= vProductInfoRS("ProductDescriptionExtra2") %>
<%= vProductInfoRS("ProductName") %>
" hspace="5" vspace="5" alt="Card or invitation goes here"> Description:
<%= vProductInfoRS("ProductDescription") %>

<%= vProductInfoRS("ProductDescriptionExtra1") %>
" name="CategoryID">
  Card Prices are as follows: <% 'insert pricing unto page do until vProductPriceRS.EOF %> <% If vProductPriceRS("AdditionalQuantity") > 0 then %> <% End If vProductPriceRS.MoveNext loop %>
Quantity Pricing Envelope Printing
<%= vProductPriceRS("RegQuantity") %> <%= CheckDicimal(vProductPriceRS("CardPrice")) %> <%= CheckDicimal(vProductPriceRS("EnvelopePrice")) %>
additional
<%= vProductPriceRS("AdditionalQuantity") %>
<%= CheckDicimal(vProductPriceRS("AdditionalPrice")) %> <%= CheckDicimal(vProductPriceRS("AdditionalEnv")) %>
Quantity

(Quantity must be in increments of 25 with a minimum of 50 cards)
Card Is shown in color: <%= vProductInfoRS("WritingColorID") %>
Choose an Ink Color
 
Card Is shown in type style: <%= vProductInfoRS("WritingStyleID") %>
Choose a Typestyle
 
<% If vCustomLine > 2 then %> <% End If If vCustomLine > 4 then %> <% End If If vCustomLine > 6 then %> <% End If If vCustomLine > 8 then %> <% End If If vCustomLine > 12 then %> <% End If %>
How would you like to personalize this invitation
Line Invitation Verse Alignment
1 Left
Center
Right
2 Left
Center
Right
3 Left
Center
Right
4 Left
Center
Right
5 Left
Center
Right
6 Left
Center
Right
7 Left
Center
Right
8 Left
Center
Right
9 Left
Center
Right
10 Left
Center
Right
11 Left
Center
Right
12 Left
Center
Right
13 Left
Center
Right
14 Left
Center
Right
15 Left
Center
Right
16 Left
Center
Right
  
Please indicate wording alignment for the whole verse. (if not indicated beside the lines)
Follow album sample
Flush left
Flush right
Centered
Follow my layout

Address to appear on envelope (See Pricing Chart For Charge)
Envelope Line 1
Envelope Line 2
Envelope Line 3
Envelope Line 4

Please indicate the location of the envelope personalization.
 Front
 Flap

Would you like a proof? ($15 additional charge)
Special instructions:

©2001 - 2003 PersonalElegance.com, All Rights Reserved 

PDR Consulting
<% ' cleanup set vGraphicRS = nothing set vVerseRS = nothing set vVerseOptionRS = nothing set vVerseColorRS = nothing conn.close set conn = nothing %> <% 'All functions called by this page are to reside in this area (at the end of the pages). ' ' The Following function will retrieve the product ID for the selected product. ' All products selected on the previous page will have a product record. ' ' ' The Following function will retrieve the product graphic list for the selected product. ' Function fGetProductInfo() SqlTxt = "SELECT Products.PEProdID, " SqlTxt = SqlTxt & "Products.ProductID, " SqlTxt = SqlTxt & "Products.CompanyID, " SqlTxt = SqlTxt & "Products.ProductName, " SqlTxt = SqlTxt & "Products.ProductDescription, " SqlTxt = SqlTxt & "Products.ProductDescriptionExtra1, " SqlTxt = SqlTxt & "Products.ProductDescriptionExtra2, " SqlTxt = SqlTxt & "Products.ProductNameShort, " SqlTxt = SqlTxt & "Products.CategoryID, " SqlTxt = SqlTxt & "Products.AlbumID, " SqlTxt = SqlTxt & "Products.VerseID, " SqlTxt = SqlTxt & "Products.WritingStyleID, " SqlTxt = SqlTxt & "Products.WritingColorID " SqlTxt = SqlTxt & "FROM Products " SqlTxt = SqlTxt & "WHERE Products.PEProdID = '" & vProductID & "' " SqlTxt = SqlTxt & ";" 'response.write(SqlTxt) response.write("") Set vProductInfoRS = Conn.Execute(SqlTxt) End Function ' ' ' The Following function will retrieve the product graphic list for the selected product. ' Function fGetProductGraphic() SqlTxt = "SELECT ProductNumber, " SqlTxt = SqlTxt & "GraphicDirectory, " SqlTxt = SqlTxt & "GraphicSmFV, " SqlTxt = SqlTxt & "GraphicSmOp, " SqlTxt = SqlTxt & "GraphicMedFV, " SqlTxt = SqlTxt & "GraphicMedOp, " SqlTxt = SqlTxt & "GraphicLrgFV, " SqlTxt = SqlTxt & "GraphicLrgOp " SqlTxt = SqlTxt & "FROM tblProductGraphics " SqlTxt = SqlTxt & "WHERE (ProductNumber = '" & vProductSQL & "') " SqlTxt = SqlTxt & ";" 'response.write(SqlTxt) response.write("") Set vGraphicRS = Conn.Execute(SqlTxt) End Function ' ' ' The Following function will retrieve the product graphic list for the selected product. ' Function fGetProductVerse() SqlTxt = "SELECT ImageDir, " SqlTxt = SqlTxt & "ImageName, " SqlTxt = SqlTxt & "p.VerseID " SqlTxt = SqlTxt & "FROM tblVerses cv, Products p " SqlTxt = SqlTxt & "WHERE p.ProductID = '" & vProductSQL & "' " SqlTxt = SqlTxt & "AND p.CompanyID = cv.CompanyID " SqlTxt = SqlTxt & "AND p.AlbumID = cv.AlbumID " SqlTxt = SqlTxt & "AND p.VerseID = cv.VerseID " SqlTxt = SqlTxt & ";" response.write("") 'response.write("") Set vVerseRS = Conn.Execute(SqlTxt) End Function ' ' ' The Following function will retrieve the product graphic list for the selected product. ' Function fGetProductVerseOption() SqlTxt = "SELECT cv.VerseID " SqlTxt = SqlTxt & "FROM tblVerses cv, Products p " SqlTxt = SqlTxt & "WHERE p.ProductID = '" & vProductSQL & "' " SqlTxt = SqlTxt & "AND p.CompanyID = cv.CompanyID " SqlTxt = SqlTxt & "AND p.AlbumID = cv.AlbumID " SqlTxt = SqlTxt & "ORDER BY cv.VerseID " SqlTxt = SqlTxt & ";" response.write("") 'response.write("") Set vVerseOptionRS = Conn.Execute(SqlTxt) End Function ' ' ' The Following function will retrieve the product graphic list for the selected product. ' Function fGetVerseColor() SqlTxt = "SELECT vc.CompanyID, " SqlTxt = SqlTxt & "vc.AlbumID, " SqlTxt = SqlTxt & "vc.ColorID, " SqlTxt = SqlTxt & "vc.ColorName " SqlTxt = SqlTxt & "FROM tblVerseColor vc, Products p " SqlTxt = SqlTxt & "WHERE p.ProductID = '" & vProductSQL & "' " SqlTxt = SqlTxt & "AND p.CompanyID = vc.CompanyID " SqlTxt = SqlTxt & "AND p.AlbumID = vc.AlbumID " SqlTxt = SqlTxt & "ORDER BY vc.ColorName " SqlTxt = SqlTxt & ";" response.write("") 'response.write("") Set vVerseColorRS = Conn.Execute(SqlTxt) End Function ' ' ' The Following function will retrieve the product graphic list for the selected product. ' Function fGetTypeStyle() SqlTxt = "SELECT ts.CompanyID, " SqlTxt = SqlTxt & "ts.AlbumID, " SqlTxt = SqlTxt & "ts.TypeStyleID, " SqlTxt = SqlTxt & "ts.TypeStyle " SqlTxt = SqlTxt & "FROM tblTypeStyle ts, Products p " SqlTxt = SqlTxt & "WHERE p.ProductID = '" & vProductSQL & "' " SqlTxt = SqlTxt & "AND p.CompanyID = ts.CompanyID " SqlTxt = SqlTxt & "AND p.AlbumID = ts.AlbumID " SqlTxt = SqlTxt & "ORDER BY ts.TypeStyle " SqlTxt = SqlTxt & ";" response.write("") 'response.write("") Set vTypeStyleRS = Conn.Execute(SqlTxt) End Function ' ' ' The Following function will retrieve the product graphic list for the selected product. ' Function fGetProductVerseColor() SqlTxt = "SELECT pvc.VerseColorName " SqlTxt = SqlTxt & "FROM tblProductVerseColor pvc, Products p " SqlTxt = SqlTxt & "WHERE pvc.ProductID = '" & vProductSQL & "' " SqlTxt = SqlTxt & "AND p.ProductID = pvc.ProductID " SqlTxt = SqlTxt & ";" response.write("") 'response.write("") Set vPVerseColorRS = Conn.Execute(SqlTxt) End Function ' ' ' The Following function will retrieve the product graphic list for the selected product. ' Function fGetProductCustomLines() SqlTxt = "SELECT ps.ProductStyleID, " SqlTxt = SqlTxt & "ps.VendorID, " SqlTxt = SqlTxt & "ps.ProductStyle, " SqlTxt = SqlTxt & "ps.CustomLines, " SqlTxt = SqlTxt & "ps.MaxLines, " SqlTxt = SqlTxt & "ps.CornerCopyLines " SqlTxt = SqlTxt & "FROM tblProductStyle ps, Products p " SqlTxt = SqlTxt & "WHERE p.ProductID = '" & vProductSQL & "' " SqlTxt = SqlTxt & "AND p.ProductStyleID = cstr(ps.ProductStyleID) " SqlTxt = SqlTxt & ";" response.write("") response.write("") Set vCustomLinesRS = Conn.Execute(SqlTxt) End Function ' ' ' The Following function will retrieve the product graphic list for the selected product. ' Function fGetProductPricing() SqlTxt = "SELECT Pricing.PEProdID, " SqlTxt = SqlTxt & "Pricing.RegQuantity, " SqlTxt = SqlTxt & "Pricing.AdditionalQuantity, " SqlTxt = SqlTxt & "Pricing.CardPrice, " SqlTxt = SqlTxt & "Pricing.AdditionalPrice, " SqlTxt = SqlTxt & "Pricing.EnvelopePrice, " SqlTxt = SqlTxt & "Pricing.AdditionalEnv, " SqlTxt = SqlTxt & "Pricing.Notes " SqlTxt = SqlTxt & "FROM Pricing " SqlTxt = SqlTxt & "WHERE Pricing.PEProdID = '" & vProductSQL & "' " SqlTxt = SqlTxt & "ORDER BY Pricing.RegQuantity " SqlTxt = SqlTxt & ";" response.write("") 'response.write("") Set vProductPriceRS = Conn.Execute(SqlTxt) End Function ' ' The Following function will insure two places to the right of the decimal ' Function CheckDicimal(sText) Dim sChar i = 1 ' Check for embeded single quotes and ' and duplicate them. CheckDicimal = "" CountDec = "N" DecPlace = 0 Do while i <= Len(sText) sChar = Mid(sText, i, 1) If (CountDec = "Y") then DecPlace = DecPlace + 1 end if If (sChar = ".") Then CountDec = "Y" End If CheckDicimal = CheckDicimal & sChar i = i + 1 loop If (DecPlace = 0) then CheckDicimal = CheckDicimal & ".00" else If (DecPlace < 2) then CheckDicimal = CheckDicimal & "0" end if End If End Function Function AnsiText(sText) Dim sChar i = 1 ' Check for embeded single quotes and ' and duplicate them. Do while i <= Len(sText) sChar = Mid(sText, i, 1) If sChar = "'" Then AnsiText = AnsiText & "''" Else AnsiText = AnsiText & sChar End If i = i+1 loop End Function %>