<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 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 Set rsFind = adoConn.Execute("SELECT * FROM KeyPage WHERE k_ref = '1'") IF rsFind.Fields("k_setitle") = "" THEN headtitle = clientNm & " : " & Replace(rsFind.Fields("k_title"),"''","'") headtitle = stripHTML(headtitle) headtitle = Replace(headtitle,"XxXpic1XxX","") headtitle = Replace(headtitle,"XxXpic2XxX","") headtitle = Replace(headtitle,"XxXpic3XxX","") headtitle = Replace(headtitle,"XxXpic4XxX","") headtitle = Replace(headtitle,"XxXpic5XxX","") ELSE headtitle = Replace(rsFind.Fields("k_setitle"),"''","'") END IF IF rsFind.Fields("k_sedesc") = "" THEN headdesc = Replace(rsFind.Fields("k_text"),"''","'") headdesc = Replace(headdesc,"XxXpic1XxX","") headdesc = Replace(headdesc,"XxXpic2XxX","") headdesc = Replace(headdesc,"XxXpic3XxX","") headdesc = Replace(headdesc,"XxXpic4XxX","") headdesc = Replace(headdesc,"XxXpic5XxX","") headdesc = Replace(headdesc,"
"," ") headdesc = stripHTML(headdesc) headdesc = Left(headdesc,250) & " .." ELSE headdesc = rsFind.Fields("k_sedesc") END IF IF rsFind.Fields("k_sekw") = "" THEN pagekw = clientKyWd ELSE pagekw = rsFind.Fields("k_sekw") END IF IF rsFind.Fields("k_sefoot") = "" THEN myfooter = "" ELSE myfooter = rsFind.Fields("k_sefoot") END IF pagedesc = rsFind.Fields("k_text") pagedesc = Replace(pagedesc,"''","'") pagedesc = stripHTML(pagedesc) pagedesc = Left(pagedesc,250) %> <%=headtitle%>
Christmas Trees and decorations for sale online from Stockeld Park Christmas Trees and decorations for sale online from Stockeld Park
Home About Us View Basket Check Out
Christmas Trees
  Christmas Trees   Home
<% 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 %> <% rsMenu.MoveNext Loop rsMenu.Close Set rsMenu = Nothing %>
" class="NavlinkB"><%=Replace(rsMenu.Fields("ecat_name"),"''","'")%>
 
Popular Products
Special Offers
All Our Xmas Products
The Christmas Adventure
Other Stockeld Sites
Delivery
Contact Stockeld
Christmas Tree Tips
FAQs
Keep Informed
Customer Comments
 
Payments handled securely online with Sage Pay
 
 
Join Mailing List
You can unsubscribe at any time
Christmas Decorations

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

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

<% IF rsFind.Fields("k_pic1") <> "" THEN IF rsFind.Fields("k_pic1alt") <> "" THEN myalt = Replace(rsFind.Fields("k_pic1alt"),"'","") ELSE myalt = clientNm END IF picstring = "" IF rsFind.Fields("k_link1") <> "" THEN picstring = "" & picstring & "" END IF Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " ' picture 2 IF rsFind.Fields("k_pic2") <> "" THEN IF rsFind.Fields("k_pic2alt") <> "" THEN myalt = Replace(rsFind.Fields("k_pic2alt"),"'","") ELSE myalt = clientNm END IF picstring = "" IF rsFind.Fields("k_link2") <> "" THEN picstring = "" & picstring & "" END IF Response.Write vbcrlf & " " END IF ' picture 3 IF rsFind.Fields("k_pic3") <> "" THEN IF rsFind.Fields("k_pic3alt") <> "" THEN myalt = Replace(rsFind.Fields("k_pic3alt"),"'","") ELSE myalt = clientNm END IF picstring = "" IF rsFind.Fields("k_link3") <> "" THEN picstring = "" & picstring & "" END IF Response.Write vbcrlf & " " END IF Response.Write vbcrlf & " " Response.Write vbcrlf & "
" & picstring & "" & picstring & "" & picstring & "
" END IF rsFind.Close Set rsFind = Nothing Set rsFind = adoConn.Execute("SELECT * FROM KeyPage WHERE k_ref = '10'") ' picture 1 IF rsFind.Fields("k_pic1") <> "" THEN IF rsFind.Fields("k_pic1alt") <> "" THEN myalt = Replace(rsFind.Fields("k_pic1alt"),"'","") ELSE myalt = clientNm END IF picstring = "" IF rsFind.Fields("k_link1") <> "" THEN picstring = "" & picstring & "" END IF Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " ' picture 2 IF rsFind.Fields("k_pic2") <> "" THEN IF rsFind.Fields("k_pic2alt") <> "" THEN myalt = Replace(rsFind.Fields("k_pic2alt"),"'","") ELSE myalt = clientNm END IF picstring = "" IF rsFind.Fields("k_link2") <> "" THEN picstring = "" & picstring & "" END IF Response.Write vbcrlf & " " END IF ' picture 3 IF rsFind.Fields("k_pic3") <> "" THEN IF rsFind.Fields("k_pic3alt") <> "" THEN myalt = Replace(rsFind.Fields("k_pic3alt"),"'","") ELSE myalt = clientNm END IF picstring = "" IF rsFind.Fields("k_link3") <> "" THEN picstring = "" & picstring & "" END IF Response.Write vbcrlf & " " END IF Response.Write vbcrlf & " " Response.Write vbcrlf & "
" & picstring & "" & picstring & "" & picstring & "
" END IF IF rsFind.Fields("k_title") <> "" THEN Response.Write vbcrlf & "

" & Replace(rsFind.Fields("k_title"),"''","'") & "

" END IF Response.Write vbcrlf & "

" & Replace(rsFind.Fields("k_text"),"''","'") & "

" rsFind.Close Set rsFind = Nothing IF myfooter <> "" THEN Response.Write vbcrlf & "

" & myfooter & "

" END IF %>
Christmas decorations for sale online
Christmas decorations for sale online
 Christmas Trees & Christmas Decorations
© Stockeld Park 2006-2011
<% adoConn.Close Set adoConn = Nothing Set strCon = Nothing %>