<%=setitle%>

<%@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%>