<% ' 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 vVerseColorRS ' Recordset for the selected verse dim vProductPriceRS ' Recordset for the selected verse dim vDefaultVerseID dim vCheckVerseID dim vDefaultColor dim vTotSub dim vResult dim vProductIn vDisplaySide = 0 ' Initialize to 0 - 0 (left side) 1 (right side) vRunMode = "Test" %> <% ' Get the current customers ID. If it is not found then no product has been ordered. vCookieCustomerID = Request.Cookies("TBDStore")("CustomerID") if not(vCookieCustomerID >" ") then vCookieCustomerID = " " end if ' ' 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() vResult = fGetProductGraphic() vResult = fGetProductVerse() vResult = fGetProductVerseOption() vResult = fGetProductVerseColor() vResult = fGetProductPricing() %>
PE Logo Personal  Elegance
High Quality Personalized Cards
Questions? Call us at 1-207-795-0267
 
 Our card selections
 BROWSE  
 VIEW ORDER  
 CONTACT US  
 HELP  
 
  Our Commitment to YOU
 

High Quality Products!
Top Quality Service!
Personalized Processing!

Email Us Here.

(207) 795-0267

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

Card Description:
<%= vProductInfoRS("ProductDescription") %>

(Quantity must be in increments of 25 with a minimum of 50 cards)

Card Prices are as follows:

<% 'insert pricing unto page do until vProductPriceRS.EOF %> <% If vProductPriceRS("AdditionalQuantity") > 0 then %> <% End If vProductPriceRS.MoveNext loop %>
This pricing chart is as of 2003. It is not valid for ordering. It is only for the representation of past pricing.
 
Quantity Price Envelope
Printing
<%= vProductPriceRS("RegQuantity") %> <%= CheckDicimal(vProductPriceRS("CardPrice")) %> <%= CheckDicimal(vProductPriceRS("EnvelopePrice")) %>
additional
<%= vProductPriceRS("AdditionalQuantity") %>
<%= CheckDicimal(vProductPriceRS("AdditionalPrice")) %> <%= CheckDicimal(vProductPriceRS("AdditionalEnv")) %>

©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.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.ProductID = '" & 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 = '" & vProductID & "') " 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() ' IF vCookieCustomerID > " " then ' SqlTxt = "SELECT ImageDir, " ' SqlTxt = SqlTxt & "ImageName " ' SqlTxt = SqlTxt & "FROM ShoppingCart sc, tblVerses cv, Products p " ' SqlTxt = SqlTxt & "WHERE sc.CustomerID = '" & vCookieCustomerID & "' " ' SqlTxt = SqlTxt & "AND sc.ProductID = '" & vProductID & "' " ' SqlTxt = SqlTxt & "AND sc.ProductID = p.ProductID " ' 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) ' ' IF (vVerseRS.EOF and vVerseRS.BOF) Then ' SqlTxt = "SELECT ImageDir, " ' SqlTxt = SqlTxt & "ImageName " ' SqlTxt = SqlTxt & "FROM tblVerses cv, Products p " ' SqlTxt = SqlTxt & "WHERE p.ProductID = '" & vProductID & "' " ' 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 If ' Else SqlTxt = "SELECT ImageDir, " SqlTxt = SqlTxt & "ImageName, " SqlTxt = SqlTxt & "p.VerseID " SqlTxt = SqlTxt & "FROM tblVerses cv, Products p " SqlTxt = SqlTxt & "WHERE p.ProductID = '" & vProductID & "' " 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 If 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 = '" & vProductID & "' " 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 fGetProductVerseColor() SqlTxt = "SELECT pvc.VerseColorName " SqlTxt = SqlTxt & "FROM tblProductVerseColor pvc, Products p " SqlTxt = SqlTxt & "WHERE pvc.ProductID = '" & vProductID & "' " SqlTxt = SqlTxt & "AND p.ProductID = pvc.ProductID " 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 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 = '" & vProductID & "' " 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 %>