<!--#include file="stamps/clsLarry1a.asp"-->
<!--#include file="stamps/clsLarry2.asp"--><%
Dim sqllar1,rslar1,imgStamp
sqllar1="SELECT Customize FROM Products WHERE ProductCode='"& request.QueryString("ProductCode") &"'"
set rslar1 = Server.CreateObject("ADODB.Recordset")
rslar1.Open sqllar1,"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/L5XL7L1D.mdb"), 0,1
If not rslar1.EOF and (rslar1("Customize")="1" or rslar1("Customize")="2" or rslar1("Customize")="3") then
	Set imgStamp=New clsLarry1
	imgStamp.ActionFileName="10Expand.asp?ProductCode="& request("ProductCode")
	imgStamp.ClipArtFolder="stamps/images/ClipArt/"
	imgStamp.ClsFolder="stamps/"
	imgStamp.ViewWithParams()
ElseIf not rslar1.EOF and (rslar1.fields("Customize")="4") then
	Set imgStamp=New clsLarry2
	imgStamp.ActionFileName="10Expand.asp?ProductCode="& request("ProductCode")
	imgStamp.ClipArtFolder="stamps/images/nameplateimage/"
'	imgStamp.ClsFolder="stamps/"
	imgStamp.View()%>
<%
End if
%>