<%=headtitle%>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' 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 = 1978 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" pichugestring = "0" 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 IF rsPic.Fields("prod_piclg2") <> "" THEN pichugestring = rsPic.Fields("prod_piclg2") ELSE pichugestring = "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_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 IF pichugestring = "0" THEN IF rsFind.Fields("prod_piclg2") <> "" THEN pichugestring = rsFind.Fields("prod_piclg2") ELSE pichugestring = "0" END IF END IF picstring = "" IF pichugestring <> "0" THEN picstring = "" & picstring & "" END IF ' 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 * FROM edepts WHERE edept_id = '" & deptid & "'") catid = Cint(rsDept.Fields("edept_type")) deptpagelink = Replace(rsDept.Fields("edept_name"),"''","'") IF Len(deptpagelink) > 48 THEN deptpagelink = Left(deptpagelink,45) & " .." END IF deptpagelink = "" & deptpagelink & "" rsDept.Close Set rsDept = Nothing 'get dept link Set rsCat = adoConn.Execute("SELECT * FROM eCats WHERE ecat_id = '" & catid & "'") catpagelink = Replace(rsCat.Fields("ecat_name"),"''","'") IF Len(catpagelink) > 48 THEN catpagelink = Left(catpagelink,45) & " .." END IF catpagelink = "" & catpagelink & "" rsCat.Close Set rsCat = Nothing ' 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 headdesc = Replace(rsFind.Fields("prod_desc"),"''","'") headdesc = stripHTML(headdesc) headdesc = Left(headdesc,250) & " .." ' 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 != ''") 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 thispagelink = Replace(rsFind.Fields("prod_name"),"''","'") IF Len(thispagelink) > 48 THEN thispagelink = Left(thispagelink,45) & " .." END IF thispagelink = "" & thispagelink & "" %> <%=headtitle%>

Wifi Skype phones can be used anywhere in the world where a wireless broadband connection is available

Home

FAQs

My Basket

Check Out

Track Order

<% 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 IF Cint(rsMenu2.Fields("edept_id")) = deptid THEN %> <% ELSE %> <% END IF %> <% 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="NavlinkB">.. <%=Replace(rsMenu2.Fields("edept_name"),"''","'")%>
" class="NavlinkB">.. <%=Replace(rsMenu2.Fields("edept_name"),"''","'")%>
" class="NavlinkB"><%=Replace(rsMenu.Fields("ecat_name"),"''","'")%>
Special Offers

FAQs
Contact us
Delivery
About Us
Drivers & Downloads
Terms & Conditions
Privacy Policy
Returns & Refunds
Keep Informed
Useful Links
Bookmark Us
Tell a friend

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

<% Set rsFind3 = adoConn.Execute("SELECT * FROM prodFeatures WHERE pf_pid = '" & refid & "'") IF rsFind3.EOF OR rsFind3.RecordCount = 0 THEN rsFind3.Close Set rsFind3 = Nothing ELSE %> <% END IF ' end features %>

<% IF pichugestring <> "0" THEN Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " END IF %>

<%=picstring%>

" Response.Write "

View Larger Image

" Response.Write vbcrlf & "

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

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

<% fcount = 1 Do While fcount < 13 feat1 = rsFind3.Fields("pf_h" & fcount) feat1 = Replace(feat1,"''","'") feat2 = rsFind3.Fields("pf_b" & fcount) feat2 = Replace(feat2,"''","'") IF feat1 <> "" THEN Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " END IF fcount = fcount +1 Loop rsFind3.Close Set rsFind3 = Nothing feat1 = "" feat2 = "" %>

Features
" & feat1 & "	" & feat2 & "

<% IF rrpcount > 0 THEN %> <% END IF %>

Product

RRP

Price

Add to basket

<% 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_id ASC, prod_stock DESC") Do While NOT rsFind2.EOF pname = Replace(rsFind2.Fields("prod_name"),"''","'") pname = Left(pname,100) %>

<% IF piccount >0 THEN %> <% END IF %> <% IF rrpcount > 0 THEN %> <% END IF %> <% IF Cint(rsFind2.Fields("prod_stock")) >0 THEN %> <% ELSE Response.Write vbcrlf & "" END IF %>

<% IF rsFind2.Fields("prod_picdid") <> "" THEN Response.Write "

" ELSE Response.Write " " END IF %>

<%=pname%>

<% IF rsFind2.Fields("prod_rrp") <> "" THEN Response.Write "£" & FormatNumber(rsFind2.Fields("prod_rrp")) ELSE Response.Write " " END IF %>

£<%=FormatNumber(rsFind2.Fields("prod_price"))%>

Out of Stock
" Response.Write vbcrlf & "Email me when in stock

<% rsFind2.MoveNext Loop rsFind2.Close Set rsFind2 = Nothing %> <% Set rsReview = adoConn.Execute("SELECT * FROM pReviews WHERE rev_prod = '" & refid & "' AND rev_live = '1' LIMIT 0,3") IF rsReview.EOF OR rsReview.RecordCount = 0 THEN Response.Write vbcrlf & "

Be the first to add a Customer Review

" ELSE Response.Write vbcrlf & "

Customer Reviews

" Do While NOT rsReview.EOF Response.Write vbcrlf & "

" & rsReview.Fields("rev_review") & "
" Response.Write vbcrlf & " " & rsReview.Fields("rev_init") & ", " & rsReview.Fields("rev_locat") & "

" rsReview.MoveNext Loop Response.Write vbcrlf & "

See All Customer Reviews

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

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

" & vbcrlf & "

You may also be interested in these products

" Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " Set rsRelated2 = adoConn.Execute("SELECT prod_id, prod_pgn, prod_name, prod_price, prod_picdid FROM Productz WHERE prod_id = '" & rsFind.Fields("prod_rel2") & "' AND prod_show !='2' AND prod_picdid != ''") 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_picdid FROM Productz WHERE prod_id = '" & rsFind.Fields("prod_rel3") & "' AND prod_show !='2' AND prod_picdid != ''") 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 %>

<% Set rsFeat = adoConn.Execute("SELECT prod_id, prod_name, prod_price, prod_picdid, prod_pgn FROM Productz WHERE prod_show = '4' AND prod_picdid != '' ORDER BY prod_price ASC LIMIT 0,3") IF rsFeat.EOF OR rsFeat.RecordCount = 0 THEN rsFeat.Close Set rsFeat = Nothing ELSE %> <% Do While NOT rsFeat.EOF Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " rsFeat.MoveNext Loop %> <% rsFeat.Close Set rsFeat = Nothing END IF %> <% Set rsGuide = adoConn.Execute("SELECT pj_id, pj_title, pj_pic0, pj_url FROM Projectz WHERE pj_live = '1' ORDER BY pj_title ASC") IF rsGuide.EOF OR rsGuide.RecordCount = 0 THEN rsGuide.Close Set rsGuide = Nothing ELSE %> <% Do While NOT rsGuide.EOF Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " Response.Write vbcrlf & " " rsGuide.MoveNext Loop rsGuide.Close Set rsGuide = Nothing %> <% END IF %>


	Featured Products
	" Response.Write vbcrlf & " " Response.Write vbcrlf & "


	Shopper Guides
	" & Replace(rsGuide.Fields("pj_title"),"''","'") & "" Response.Write vbcrlf & "



Skype Wifi Telephones	© SilverStream (UK) Ltd 2006	Ecommerce Websites

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