<%@ LANGUAGE="VBSCRIPT" %> <% '!!!WARNING!!! 'DO NOT EDIT THIS PAGE UNDER FRONTPAGE EDITOR. 'USE NOTEPAD INSTEAD 'HOW TO USE: 'INSERT the following code to your HTML pages: ' 'WHERE myproduct is the Reference Code for the product item. 'QUALIFY the "view_stock.asp" with appropriate domain and path. %> <%Call CreateMyObject %> <% 'Page Constants: (Modify the wording to suit your need) Const SOLD_OUT = "Sold Out" '(iStock < iMinimum) Const BACK_ORDER = "Back Ordered" '(iStock < iWarning AND iStock <= 0) Const LOW_STOCK = "Low Stock" '(0= iWarning <> 0) Const NOT_SET = "Available" '(iStock = iWarning = iMinimum = 0) Const RED_CROSS = "red_cross.gif" Const YELLOW_TRIANGLE = "yellow_triangle.gif" Const GREEN_CHECK = "green_check.gif" Const IMG_WIDTH = "24" Const IMG_HEIGHT ="24" Const POINT_LOGIN = "Check Points" Const POINT_PREFIX = "" Const POINT_SUFFIX = " points" Const POINT_POPUP = "toolbar=no,location=no,directories=no,width=500,height=450,scrollbars=yes,resizable=yes,menubar=no" 'Page Variables Dim sStockStatus, iStock, iWarning, iMinimum Response.ExpiresAbsolute = #1/1/1980# Response.AddHeader "cache-control", "no-store, must-revalidate, private" Response.AddHeader "Pragma", "no-cache" Call InitStrings Call GetStockStatus(sStockStatus, iStock, iWarning, iMinimum) 'Feel free to change sStockStatus to suit your need Call OutputToPage(sStockStatus) Sub GetStockStatus(ByRef sStock, iStock, iWarning, iMinimum) If IsObject(MyObject) Then Call MyObject.GetStockStatus(sStock, iStock, iWarning, iMinimum) End If End Sub Sub OutputToPage(ByRef sOutput) If IsObject(MyObject) Then Call MyObject.OutputToPage(sOutput) End If End Sub Function FormatImageTag(sImage, sWidth, sHeight) If IsObject(MyObject) Then FormatImageTag = MyObject.FormatImageTag(sImage, sWidth, sHeight) End If End Function Sub InitStrings() On Error Resume Next If IsObject(MyObject) Then MyObject.SOLD_OUT = FormatImageTag(RED_CROSS, IMG_WIDTH, IMG_HEIGHT) & SOLD_OUT MyObject.BACK_ORDER = FormatImageTag(YELLOW_TRIANGLE, IMG_WIDTH, IMG_HEIGHT) & BACK_ORDER MyObject.LOW_STOCK = FormatImageTag(YELLOW_TRIANGLE, IMG_WIDTH, IMG_HEIGHT) & LOW_STOCK MyObject.IN_STOCK = FormatImageTag(GREEN_CHECK, IMG_WIDTH, IMG_HEIGHT) & IN_STOCK MyObject.NOT_SET = FormatImageTag(GREEN_CHECK, IMG_WIDTH, IMG_HEIGHT) & NOT_SET MyObject.POINT_LOGIN = POINT_LOGIN MyObject.POINT_PREFIX = POINT_PREFIX MyObject.POINT_SUFFIX = POINT_SUFFIX MyObject.POINT_POPUP = POINT_POPUP End If End Sub %> <%CloseDatabase%> function PopupLogin(sPage, sTitle, sOption) { window.open(sPage, sTitle, sOption); return; }