<%@ Language=VBScript %> <%Response.Buffer=True%> <% OpenConnection1 If Request.QueryString("K")<>"" then txtKey=Request.QueryString("K") color="#0099FF" else txtKey="zzz" color=SiteColors(1) end If Set rs=Server.CreateObject("ADODB.Recordset") ProductID=cint(Request.QueryString("PID")) Sel="SELECT * FROM Products WHERE ProductID=" & ProductID rs.Open Sel,DB,1,3 If rs.EOF then Response.Redirect("newequip.asp") CatID=rs("nCatID") txtProduct=rs("txtProduct") txtDescription=rs("txtDescription") txtManufacturer=rs("txtManufacturer") txtManURL=rs("txtManURL") txtImage=rs("txtImage") rs.Close %>

<%If txtImage<>"" then%> <%End If%>

<%=Highlighter(txtProduct,txtKey,color)%>
<%Sel="SELECT * FROM P_Specs WHERE nProductID=" & ProductID & " ORDER BY nSortOrder" rs.Open Sel,DB,1,3 If Not rs.EOF then%> <%While Not rs.EOF%> <%rs.MoveNext Wend rs.Close End If If txtManufacturer<>"" AND txtManURL<>"" then%> <%ElseIf txtManufacturer<>"" then%> <%End If%> <%=DisPrepText(Highlighter(txtDescription,txtKey,color))%>   Specifications... • <%=Highlighter(rs("txtSpecification"),txtKey,color)%> Manufactured by <%=txtManufacturer%> Manufactured by <%=Highlighter(txtManufacturer,txtKey,color)%>

 

<% Function Highlighter(astring,searchtext,txtcolor) If Trim(astring) <>"" then astring=Replace(astring,searchtext,"" & searchtext & "",1,-1,1) End If Highlighter=astring End Function %>