<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% refid = Request("psu") 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 kt_cat, kt_pn, kt_name, kt_desc, kt_wt, kt_pic1, kt_pic2, kt_pdf FROM KTProducts WHERE kt_id = '" & refid & "' AND kt_live = '1'") IF rsFind.EOF OR rsFind.RecordCount = 0 THEN rsFind.Close Set rsFind = Nothing adoConn.Close Set adoConn = Nothing Response.Redirect "index.html" ELSE kt_cat = rsFind.Fields("kt_cat") kt_pn = rsFind.Fields("kt_pn") kt_name = rsFind.Fields("kt_name") kt_name = Replace(kt_name,"''","'") kt_desc = rsFind.Fields("kt_desc") kt_desc = Replace(kt_desc,"''","'") kt_wt = rsFind.Fields("kt_wt") kt_pic1 = rsFind.Fields("kt_pic1") kt_pic2 = rsFind.Fields("kt_pic2") kt_alt = kt_name & ", " & kt_pn kt_alt = Replace(kt_alt,"'","") kt_pdf = rsFind.Fields("kt_pdf") ' sort image IF kt_pic2 <> "" THEN kt_pic = "

" ELSE IF kt_pic1 <> "" THEN kt_pic = "

" ELSE kt_pic = "" END IF END IF 'create bread trail breadtrail = "" & kt_name & ", " & kt_pn & "" Set rsCat = adoConn.Execute("SELECT cat_menu, cat_title, cat_pgn, cat_prime FROM projCats WHERE cat_id = '" & kt_cat & "'") cat_menu = rsCat.Fields("cat_menu") cat_menu = Replace(cat_menu,"''","'") cat_title = rsCat.Fields("cat_title") cat_title = Replace(cat_menu,"'","") cat_pgn = rsCat.Fields("cat_pgn") cat_prime = rsCat.Fields("cat_prime") rsCat.Close Set rsCat = Nothing breadtrail = "" & cat_menu & " >> " & breadtrail Set rsPrime = adoConn.Execute("SELECT prime_menu, prime_title, prime_pgn FROM PrimeCat WHERE prime_id = '" & cat_prime & "'") prime_menu = rsPrime.Fields("prime_menu") prime_menu = Replace(prime_menu,"''","'") prime_title = rsPrime.Fields("prime_title") prime_title = Replace(prime_title,"'","") prime_pgn = rsPrime.Fields("prime_pgn") rsPrime.Close Set rsPrime = Nothing breadtrail = "" & prime_menu & " >> " & breadtrail 'header stuff setitle = kt_name & " | " & kt_pn sedesc = kt_desc sedesc = Replace(sedesc,"'","") sedesc = Replace(sedesc,"
"," ") sedesc = stripHTML(sedesc) sedesc = Left(sedesc,250) END IF rsFind.Close Set rsFind = Nothing %> <%=setitle%>
KT Assemblies Ltd KT Assemblies Ltd
Menu   <%=kt_name%> | <%=kt_pn%>
6v, 12v and 24v PSUs  
<%=breadtrail%>
<% IF kt_pic <> "" THEN Response.Write vbcrlf & " " & kt_pic Response.Write vbcrlf & "

 

" END IF Response.Write vbcrlf & "

Part No. " & kt_pn IF kt_wt <> "" THEN Response.Write ", " & kt_wt & "kg" END IF Response.Write "

" Response.Write vbcrlf & "

" & kt_name & "

" Response.Write vbcrlf & "

" & kt_desc & "

" if kt_pdf <> "" then response.write vbcrlf & "

(click to download PDF spec sheet)

" end if %>
:: Welcome
:: Product Search
:: Products
:: Gallery
:: Technical Help
:: FAQs
:: Catalogue
:: Online Enquiry
:: Contact
:: Delivery
:: About Us
:: Tell A Friend
:: Bookmark
:: Site Map
:: Street Map
 
power supply units
Security Power Supplies
© KT Assemblies Ltd 2003 - 2008
Web Designers: Effective Webs
power supply units
Terms & Conditions    
<% adoConn.Close Set adoConn = Nothing %>