<%@ LANGUAGE="VBSCRIPT" %> <% p_prod_id = Request.querystring("p_prod_id") p_cat_nm = Request.querystring("p_cat_nm") p_prod_nm = Request.querystring("p_prod_nm") set ahpDB = Server.CreateObject("ADODB.Connection") ahpDB.Open "ahpDS" set prodInfoSet = ahpDB.Execute("select * from e_prod where prod_id = " & p_prod_id) if prodInfoSet.EOF then Response.Write "Product Number "&p_prod_id&" does not exist." else p_name = prodInfoSet("prod_nm") p_text = prodInfoSet("prod_text") p_rrp = prodInfoSet("prod_rrp") p_prod_im_1 = prodInfoSet("prod_im_1") p_prod_im_2 = prodInfoSet("prod_im_2") p_price1 = prodInfoSet("prod_price1") p_cat_id = prodInfoSet("cat_id") %> <% set ahpDB = Server.CreateObject("ADODB.Connection") ahpDB.Open "ahpDS" set catInfoSet = ahpDB.Execute("select * from e_cat where cat_id = " &p_cat_id) p_cat_nm = catInfoSet("cat_nm") set catIDSet = ahpDB.Execute("select * from e_cat") ahpDB.Close %> Atlantic Products - <%= p_cat_nm %> | <%= p_prod_nm %>
<% set outpostDB = Server.CreateObject("ADODB.Connection") outpostDB.Open "ahpDS" set catInfoSet = outpostDB.Execute("select * from e_prod where cat_id = " & p_cat_id) set catIDSet = outpostDB.Execute("select * from e_prod where cat_id = " &p_cat_id) while not catIDSet.EOF p_prod_id = catIDSet("prod_id") p_prod_nm = catIDSet("prod_nm") %> <% catIDSet.MoveNext wend catInfoSet.Close set catInfoSet = Nothing outpostDB.Close set outpostDB = Nothing %>
  <%= catIDSet("prod_nm") %>

<%= p_text %>

" name=img1 id=img1 width="70" alt="<%=prodInfoSet("prod_nm")%>" border="0">

" name=img2 id=img2 width="70" alt="<%=prodInfoSet("prod_nm")%>" border="0">

<% end if prodInfoSet.Close set prodInfoSet = Nothing %>