<% 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.Fields("Customize")="1" or rslar1.fields("Customize")="2" or rslar1.fields("Customize")="3") then Set imgStamp=New clsLarry1 imgStamp.ActionFileName="10Expand.asp?ProductCode="& request("ProductCode") imgStamp.ClipArtFolder="stamps/images/ClipArt/" imgStamp.ClsFolder="stamps/" imgStamp.Play()%> <% 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.Play()%> <% Else%> <% End if%>