<% ItemsproID = request.QueryString("ItemsproID") sql_str = "select * from items_products where ItemsproID="& ItemsproID Set products = server.CreateObject("adodb.Recordset") products.open sql_str,ifshop,1,3 %>
     
 

<% if products("image") <> "N/A" then Set fs= CreateObject("Scripting.FileSystemObject") directoryfile = server.MapPath(".") & "/" & products("image") set myImg = loadpicture(directoryfile) iwidth = round(myImg.width / 26.4583) iHeight = round(myImg.height / 26.4583) if iwidth>=500 then truewidth = 350 else truewidth = iwidth End if %> <%End if%> <% if products("Definition") <> "N/A" then%> <%End if%> <% if products("Usage") <> "N/A" then%> <%End if%> <% if products("Typical") <> "N/A" then%> <%End if%> <% if products("Contact") <> "" then%> <%End if%>
<%=products("Title")%>
">
 Definition
<%=products("Definition")%>
 Usage
<%=products("Usage")%>
 Typical Composition
<%=products("Typical")%>
 Contact
<%=products("contact")%>