<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#INCLUDE file="EC001.asp"-->
<!--#INCLUDE file="EC002.asp"-->
<%
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 = "<p align=""center""><img src=""prodpics/" & kt_pic2 & """ border=""1"" alt=""" & kt_alt & """></p>"
ELSE
IF kt_pic1 <> "" THEN
kt_pic = "<p align=""center""><img src=""prodpics/" & kt_pic1 & """ border=""1"" alt=""" & kt_alt & """></p>"
ELSE
kt_pic = ""
END IF
END IF
'create bread trail
breadtrail = "<a href=""display.asp?psu=" & refid & """ title=""" & kt_alt & """>" & kt_name & ", " & kt_pn & "</a>"
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 = "<a href=""" & cat_pgn & """ title=""" & cat_title & """>" & cat_menu & "</a> >> " & 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 = "<a href=""" & prime_pgn & """ title=""" & prime_title & """>" & prime_menu & "</a> >> " & breadtrail
'header stuff
setitle = kt_name & " | " & kt_pn
sedesc = kt_desc
sedesc = Replace(sedesc,"'","")
sedesc = Replace(sedesc,"<br>"," ")
sedesc = stripHTML(sedesc)
sedesc = Left(sedesc,250)
END IF
rsFind.Close
Set rsFind = Nothing
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title><%=setitle%></title>
<META NAME="description" content="<%=sedesc%>">
<META NAME="keywords" content="<%=clientKyWd%>">
<META NAME="robots" content="index,follow">
<META NAME="distribution" content="global">
<META NAME="RATING" CONTENT="General">
<META http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="ktassemblies2.css" rel="stylesheet" type="text/css">
<script language="JavaScript" TYPE="text/javascript" src="headerstuff.js"></script>
<!--14-02-08-->
</head>
<body>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr class="headbg">
<td width="510" height="100"><a href="http://www.ktassemblies.co.uk/"><img src="images/kt-assemblies-logo-08.gif" alt="KT Assemblies Ltd" width="70" height="100" border="0"></a></td>
<td width="270"><a href="http://www.ktassemblies.co.uk/"><img src="images/kt-assemblies-right-08.gif" alt="KT Assemblies Ltd" width="270" height="100" border="0"></a></td>
</tr>
</table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="155" class="header">Menu</td>
<td width="5"> </td>
<td class="header"><%=kt_name%> | <%=kt_pn%></td>
</tr>
</table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="152" valign="top" bgcolor="#000099"><img src="images/1px.gif" width="1" height="1" alt="6v, 12v and 24v PSUs"></td>
<td width="5" rowspan="2"> </td>
<td rowspan="2" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="centrepanel"><%=breadtrail%></td>
</tr>
<tr>
<td height="5"></td>
</tr>
<tr>
<td class="centrepanel">
<%
IF kt_pic <> "" THEN
Response.Write vbcrlf & " " & kt_pic
Response.Write vbcrlf & " <p> </p>"
END IF
Response.Write vbcrlf & " <p>Part No. " & kt_pn
IF kt_wt <> "" THEN
Response.Write ", " & kt_wt & "kg"
END IF
Response.Write "</p>"
Response.Write vbcrlf & " <p>" & kt_name & "</p>"
Response.Write vbcrlf & " <p>" & kt_desc & "</p>"
if kt_pdf <> "" then
response.write vbcrlf & "<p><a href=""pdf/getPdf.php?file="&kt_pdf&"""><img src=""images/image.gif"" border=""0"" /></a><font size=""1""> (click to download PDF spec sheet)</font></p>"
end if
%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td width="160" valign="top" class="outer_columns"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="1"></td>
</tr>
<tr>
<td><a href="index.php" class="NavlinkB">:: Welcome</a> </td>
</tr>
<tr>
<td><a href="search.php" class="NavlinkB">:: Product Search</a></td>
</tr>
<tr>
<td><a href="browse.php" class="NavlinkB">:: Products</a></td>
</tr>
<tr>
<td><a href="gallery.php" class="NavlinkB">:: Gallery</a></td>
</tr>
<tr>
<td><a href="technical.php" class="NavlinkB">:: Technical Help</a></td>
</tr>
<tr>
<td><a href="faq.php" class="NavlinkB">:: FAQs</a></td>
</tr>
<tr>
<td><a href="catReq.php" class="NavlinkB">:: Catalogue</a></td>
</tr>
<tr>
<td><a href="contact_us.php" class="NavlinkB">:: Online Enquiry</a></td>
</tr>
<tr>
<td><a href="contact_us.php" class="NavlinkB">:: Contact</a></td>
</tr>
<tr>
<td><a href="delivery.php" class="NavlinkB">:: Delivery</a></td>
</tr>
<tr>
<td><a href="about.php" class="NavlinkB">:: About Us</a></td>
</tr>
<tr>
<td><a href="mailto:?subject=I%20thought%20this%20site%20might%20interest%20you&body=I%20came%20across%20KT%20Assemblies%20Ltd%20and%20thought%20it%20might%20be%20of%20interest%20to%20you.%0D%0A%0AThey%20make%20bespoke%20security%20power%20supplies%20and%20components.%0D%0A%0Ahttp://www.ktassemblies.co.uk/index.html" class="NavlinkB">::
Tell A Friend</a></td>
</tr>
<tr>
<td><a href="javascript:addbookmark();" class="NavlinkB">:: Bookmark</a></td>
</tr>
<tr>
<td><a href="sitemap.html" class="NavlinkB">:: Site Map</a></td>
</tr>
<tr>
<td><a href="http://www.multimap.com/maps/?hloc=GB|TN389NL" target="_blank" class="NavlinkB">::
Street Map</a></td>
</tr>
<tr>
<td> </td>
</tr>
</table></td>
</tr>
</table>
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3" class="bottom_bar"><img src="images/bot-bar-back.gif" width="10" height="13" alt="power supply units"></td>
</tr>
<tr>
<td width="250"><b><a href="http://www.ktassemblies.co.uk">Security Power
Supplies</a></b></td>
<td width="280"><div align="center"><font size="1">© KT Assemblies Ltd
2003 - 2008</font></div></td>
<td width="250"><div align="right"><b><a href="http://www.effectivewebs.co.uk/" title="Website Designer" target="_blank">Web
Designers: Effective Webs</a></b></div></td>
</tr>
<tr>
<td colspan="3" class="bottom_bar"><img src="images/bot-bar-back.gif" width="10" height="13" alt="power supply units"></td>
</tr>
<tr>
<td><a href="terms.html">Terms & Conditions</a></td>
<td> </td>
<td> </td>
</tr>
</table>
</body>
</html>
<%
adoConn.Close
Set adoConn = Nothing
%>