<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% thissesh = Request.Cookies("BR") ' shelf page Function stripHTML(strHTML) 'Strips the HTML tags from strHTML Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = "<(.|\n)+?>" 'Replace all HTML tag matches with the empty string strOutput = objRegExp.Replace(strHTML, "") 'Replace all < and > with < and > strOutput = Replace(strOutput, "<", "<") strOutput = Replace(strOutput, ">", ">") stripHTML = strOutput 'Return the value of strOutput Set objRegExp = Nothing End Function refid = 119 Set rsFind = adoConn.Execute("SELECT * FROM Productz WHERE prod_id = '" & refid & "'") ' redirect if deleted IF rsFind.EOF OR rsFind.Recordcount = 0 THEN rsFind.Close Set rsFind = Nothing adoConn.Close Set adoConn = Nothing Response.Status = "302 Object moved" Response.Redirect "../" END IF Set rsPic = adoConn.Execute("SELECT prod_pic, prod_piclg, prod_piclg2 FROM Productz WHERE prod_id = '" & refid & "'") IF rsPic.EOF OR rsPic.RecordCount = 0 THEN picstring = "0" ELSE IF rsPic.Fields("prod_piclg2") <> "" THEN picstring = rsPic.Fields("prod_piclg2") ELSE IF rsPic.Fields("prod_piclg") <> "" THEN picstring = rsPic.Fields("prod_piclg") ELSE IF rsPic.Fields("prod_pic") <> "" THEN picstring = rsPic.Fields("prod_pic") ELSE picstring = "0" END IF END IF picstring = "0" END IF END IF rsPic.Close Set rsPic = Nothing ' check it's a top level product, if not redirect. IF Cint(rsFind.Fields("prod_typ")) = 2 THEN refid = rsFind.Fields("prod_main") rsFind.Close Set rsFind = Nothing Set rsFind = adoConn.Execute("SELECT * FROM Productz WHERE prod_id = '" & refid & "'") END IF IF picstring = "0" THEN IF rsFind.Fields("prod_piclg2") <> "" THEN picstring = rsFind.Fields("prod_piclg2") ELSE IF rsFind.Fields("prod_piclg") <> "" THEN picstring = rsFind.Fields("prod_piclg") ELSE IF rsFind.Fields("prod_pic") <> "" THEN picstring = rsFind.Fields("prod_pic") ELSE picstring = "nopic.jpg" END IF END IF END IF END IF picstring = "" ' update view counter adoConn.Execute("UPDATE Productz SET prod_count = prod_count +1 WHERE prod_id = '" & refid & "'") ' get dept and shelf ids for menu deptid = Cint(rsFind.Fields("prod_dept")) Set rsDept = adoConn.Execute("SELECT edept_name, edept_type, edept_pgn FROM edepts WHERE edept_id = '" & deptid & "'") catid = Cint(rsDept.Fields("edept_type")) shelflink = "" & Replace(rsDept.Fields("edept_name"),"''","'") & "" rsDept.Close Set rsDept = Nothing ' get department details for breadcrumb trail Set rsCat = adoConn.Execute("SELECT ecat_name, ecat_pgn FROM eCats WHERE ecat_id = '" & catid & "'") deptlink = "" & Replace(rsCat.Fields("ecat_name"),"''","'") & "" rsCat.Close Set rsCat = Nothing thispagelink = "" & Left(Replace(rsFind.Fields("prod_name"),"''","'"),36) & "" thispagename = rsFind.Fields("prod_pgn") 'breadcrumb trail breadtrail = " " & deptlink & " > " & shelflink & " > " & thispagelink ' get page title IF rsFind.Fields("prod_pagetitle") = "" THEN headtitle = Replace(rsFind.Fields("prod_name"),"''","'") ELSE headtitle = Replace(rsFind.Fields("prod_pagetitle"),"''","'") END IF 'get head description IF rsFind.Fields("prod_sedesc") = "" THEN headdesc = Replace(rsFind.Fields("prod_desc"),"''","'") headdesc = stripHTML(headdesc) headdesc = Left(headdesc,250) & " .." ELSE headdesc = Replace(rsFind.Fields("prod_sedesc"),"''","'") END IF ' get keywords IF rsFind.Fields("prod_kw") = "" THEN headkeyword = rsFind.Fields("prod_kw") ELSE headkeyword = clientKyWd END IF Set rsRRP = adoConn.Execute("SELECT prod_rrp FROM Productz WHERE prod_typ = '2' AND prod_main = '" & refid & "' AND prod_show != '2' AND prod_rrp != '0.00'") rrpcount = rsRRP.RecordCount rrpcount = Cint(rrpcount) rsRRP.Close Set rsRRP = Nothing Set rsPicCount = adoConn.Execute("SELECT prod_picdid FROM Productz WHERE prod_typ = '2' AND prod_main = '" & refid & "' AND prod_show != '2' AND prod_picdid != '' AND prod_piclg != ''") piccount = rsPicCount.RecordCount piccount = Cint(piccount) rsPicCount.Close Set rsPicCount = Nothing %> <%=headtitle%>

Christmas Trees and decorations for sale online from Stockeld Park

About Us

View Basket

Check Out

<%=breadtrail%>

<% Set rsMenu = adoConn.Execute("SELECT ecat_id, ecat_name, ecat_pgn FROM eCats WHERE ecat_live = '1' ORDER BY ecat_do ASC") Do While NOT rsMenu.EOF IF Cint(rsMenu.Fields("ecat_id")) = catid THEN %> <% Set rsMenu2 = adoConn.Execute("SELECT edept_id, edept_name, edept_type, edept_pgn FROM edepts WHERE edept_type = '" & catid & "' AND edept_live = '1' ORDER BY edept_do ASC") Do While NOT rsMenu2.EOF %> <% rsMenu2.MoveNext Loop rsMenu2.Close Set rsMenu2 = Nothing %> <% ELSE %> <% END IF rsMenu.MoveNext Loop rsMenu.Close Set rsMenu = Nothing %>

" class="NavlinkB"><%=Replace(rsMenu.Fields("ecat_name"),"''","'")%>

" class="NavlinkB2"><%=Replace(rsMenu2.Fields("edept_name"),"''","'")%>

" class="NavlinkB"><%=Replace(rsMenu.Fields("ecat_name"),"''","'")%>

<%=Replace(rsFind.Fields("prod_name"),"''","'")%>

<%=picstring%>

<%=Replace(rsFind.Fields("prod_desc"),"''","'")%>

<% IF rrpcount > 0 THEN %> <% END IF %> <% IF rrpcount > 0 THEN %> <% END IF %> <% linecount = 1 Set rsFind2 = adoConn.Execute("SELECT prod_id, prod_name, prod_price, prod_rrp, prod_picdid, prod_pgn, prod_stock FROM Productz WHERE prod_typ = '2' AND prod_main = '" & refid & "' AND prod_show != '2' ORDER BY prod_price ASC, prod_stock DESC") Do While NOT rsFind2.EOF pname = Replace(rsFind2.Fields("prod_name"),"''","'") pname = Left(pname,100) %> <% IF rrpcount > 0 THEN %> <% END IF ' end rrpcount%> <% linecount = linecount +1 rsFind2.MoveNext Loop rsFind2.Close Set rsFind2 = Nothing %> <% IF rrpcount > 0 THEN %> <% END IF %>


Product		RRP	Price	Add to cart	In Cart
<% IF rsFind2.Fields("prod_picdid") <> "" THEN Response.Write " " ELSE Response.Write " " END IF %>	<%=pname%>	<% IF rsFind2.Fields("prod_rrp") <> "0.00" THEN Response.Write "£" & FormatNumber(rsFind2.Fields("prod_rrp")) ELSE Response.Write " " END IF %>	£<%=FormatNumber(rsFind2.Fields("prod_price"))%>	<% IF rsFind2.Fields("prod_stock") > 0 THEN %> "> <% ELSE Response.Write "Out of Stock" END IF ' get current cart quantity Set rsCart = adoConn.Execute("SELECT c_pq FROM Cart WHERE c_userID = '" & thissesh & "' AND c_prodID = '" & rsFind2.Fields("prod_id") & "' AND c_proc = '0'") IF rsCart.EOF OR rsCart.RecordCount = 0 THEN basketq = 0 ELSE basketq = rsCart.Fields("c_pq") END IF rsCart.Close Set rsCart = Nothing %>	<% IF basketq > 0 THEN Response.Write " (" & basketq & ") " ELSE Response.Write " " & basketq & " " END IF %>

<% Set rsReview = adoConn.Execute("SELECT rev_id, rev_review, rev_init, rev_locat FROM pReviews WHERE rev_prod = '" & refid & "' AND rev_live = '1' ORDER BY rev_id ASC") IF rsReview.EOF OR rsReview.RecordCount = 0 THEN Response.Write vbcrlf & "

Be the first to add a Product Review

" ELSE Response.Write vbcrlf & "

Customer Reviews

" toshow = 0 Do While NOT rsReview.EOF AND toshow < 4 Response.Write vbcrlf & "

" & Replace(rsReview.Fields("rev_review"),"''","'") & "
" Response.Write vbcrlf & " " & rsReview.Fields("rev_init") & ", " & Replace(rsReview.Fields("rev_locat"),"''","'") toshow = toshow +1 rsReview.MoveNext Loop IF rsReview.RecordCount > 3 THEN Response.Write vbcrlf & "

See All Customer Reviews

" END IF Response.Write vbcrlf & "

Add your own review

" END IF rsReview.Close Set rsReview = Nothing %>

<% Set rsRelated = adoConn.Execute("SELECT prod_id, prod_pgn, prod_name, prod_price, prod_pic FROM Productz WHERE prod_id = '" & rsFind.Fields("prod_rel1") & "' AND prod_show !='2' AND prod_pic != ''") IF rsRelated.EOF OR rsRelated.RecordCount = 0 THEN rsRelated.Close Set rsRelated = Nothing ELSE Response.Write vbcrlf & "

Customers who bought these also purchased ..

" Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " Set rsRelated2 = adoConn.Execute("SELECT prod_id, prod_pgn, prod_name, prod_price, prod_pic FROM Productz WHERE prod_id = '" & rsFind.Fields("prod_rel2") & "' AND prod_show !='2' AND prod_pic != ''") IF rsRelated2.EOF OR rsRelated2.RecordCount = 0 THEN rsRelated2.Close Set rsRelated2 = Nothing ELSE Response.Write vbcrlf & " " rsRelated2.Close Set rsRelated2 = Nothing END IF Set rsRelated3 = adoConn.Execute("SELECT prod_id, prod_pgn, prod_name, prod_price, prod_pic FROM Productz WHERE prod_id = '" & rsFind.Fields("prod_rel3") & "' AND prod_show !='2' AND prod_pic != ''") IF rsRelated3.EOF OR rsRelated3.RecordCount = 0 THEN rsRelated3.Close Set rsRelated3 = Nothing ELSE Response.Write vbcrlf & " " rsRelated3.Close Set rsRelated3 = Nothing END IF Response.Write vbcrlf & " " Response.Write vbcrlf & "

" rsRelated.Close Set rsRelated = Nothing END IF %>


Returns & Refunds \| Privacy Policy \| Terms & Conditions \| Delivery \| Useful Links \| Sitemap

Christmas Decorations	© Stockeld Park 2006-2011	Ecommerce Web Design

<% rsFind.Close Set rsFind = Nothing adoConn.Close Set adoConn = Nothing Set strCon = Nothing %>