<% dim programtitle,programfooter rs.open "layout",conn,1,3 if not rs.eof then ssemail=rs("ssemail") programtitle=rs("programtitle") programfooter=rs("programfooter") end if rs.close %> <% sql="select * from layout" rs.open sql,conn,1,3 email=rs("email") rs.close dim sqlstr, name,pric,lookup,desc,imag,purl,keyword lookup=request.querystring("lookup") sqlstr="select id,name from prodname where ID="& lookup rs.open sqlstr, conn,1,3 if not rs.eof then ptype=rs("id") name=rs("name") %> <% else response.write("
Sorry...This Item has Either Been Removed, is Out of Stock, or Discontinued By the Manufacturer.
") end if rs.close%> <%=name%>
<% sql="select * from layout" rs.open sql,conn,1,3 email=rs("email") rs.close %> <% sqlstr="select id,name,qty, price,description,image,url,keyword from prodname where ID="& lookup rs.open sqlstr, conn,1,3 if not rs.eof then pric=rs("price") pqty=rs("qty") desc=rs("description") imag=rs("image") purl=rs("url") keyword=rs("keyword") %>

<%=name%>

<% if (imag<>" ") then %>
<%=rs(">

<%=name%>
~ ~ ~ ~ ~ ~ ~ ~ ~
<%=desc%>
~ ~ ~ ~ ~ ~ ~ ~ ~
Item#  <%=rs("id")%>
<% end if if (purl <> " ") then %>
<% end if %>
Price Each:   $ <%=pric%>
Quantity:  
Total: $  
  


">Find More <%=rs("keyword")%> Here...


<%=name%>
<% else response.write("

Sorry...This Item has Either Been Removed, is Out of
Stock, or Discontinued By the Manufacturer.



Try Doing a Keyword Search to See
if We Have it in Another Category...
") end if rs.close%>