<%@ Language=JavaScript%> <% /* Connection Pooler */ var ConnectionCache = new ConnectionCache() /* server-side recordset */ var ProductCategory = new Recordset("ProductCategory", "GSProduct", "admin", "", "SELECT ProductCategory.ProductCategory, ProductCategory.CategoryName, ProductCategory.ShortDesc, ProductCategory.LongDesc, ProductCategory.ImageOverride, ProductCategory.ThumbNailOverride FROM ProductCategory", "ProductCategory", false, 2, 3, 3, ""); ProductCategory_BeforeOpen(); ProductCategory.Open(); ProductCategory.ProcessAction(); ProductCategory.SetMessages("",""); ProductCategory_Server(); /* server-side recordset */ var Product = new Recordset("Product", "GSProduct", "admin", "", "SELECT Product.ProductCode, Product.ProductName, Product.SuggestedRetailPrice, Product.ProductCategory, Product.ID, Product.Size FROM Product ORDER BY SortField", "ID", true, 2, 3, 3, ""); Product_BeforeOpen(); Product.Open(); Product.ProcessAction(); Product.SetMessages("",""); Product_Server(); %> <% function ProductCategory_Server() { // RecordSet Server Psuedo Event Code // // Handle error condition here. // if (ProductCategory.IsBOF() && ProductCategory.IsEOF()) { Response.Write("Error: No product records found in category "); Response.Write(Request.QueryString("PCat") + "
Contact the system administrator"); Response.End(); } } function ProductCategory_BeforeOpen() { // I check the FilterCriteria. If it exists, the recordset already // has a filter and we don't assign the action. I do this so the // navigation buttons will work properly if (ProductCategory.FilterCriteria == "") { ProductCategory.Action = "Filter(\"" + "ProductCategory='" + Request.QueryString("PCat") + "'" + "\")" } ProductCategory.Open = DSNLessRecordsetOpen ProductCategory.filename = "GSProduct2.mdb" } function Product_Server() { // Product RS server event ProductSelections = ""; Product.MoveFirst(); while (!Product.IsEOF()) { ProductName = Product.GetColumnValue("ProductName"); MSRP = Product.GetColumnValue("SuggestedRetailPrice"); ProductCode = Product.GetColumnValue("ProductCode"); Size = Product.GetColumnValue("Size"); if (ProductSelections == "") { ProductSelections = "" } else { ProductSelections += "
"; } ProductSelections += ''; ProductSelections += Size + '   '; ProductSelections += '($' + MSRP + ')'; ProductSelections += ''; Product.MoveNext(); } if (ProductSelections == "") ProductSelections = "None of these are currently available." else ProductSelections += ""; } function Product_BeforeOpen() { // I check the FilterCriteria. If it exists, the recordset already // has a filter and we don't assign the action. I do this so the // navigation buttons will work properly if (Product.FilterCriteria == "") { Product.Action = "Filter(\"" + "ProductCategory='" + Request.QueryString("PCat") + "'" + "\")" } Product.Open = DSNLessRecordsetOpen Product.filename = "GSProduct2.mdb" } %>

Glass Sculptures

Return to Shopping Cart

Information

Return to Gallery

>

<%=("" + ProductCategory.GetColumnValue("LongDesc") + "")%>

Add to shopping cart:

(click on size to order)

<%=(ProductSelections)%>

Measurements are height by width.  The glass is handmade and the wood is nature made so sizes are approximate.