<%@ Language=VBScript %> <%Response.Buffer=True%> <% OpenConnection1 Set rs=Server.CreateObject("ADODB.Recordset") CatID=cint(Request.QueryString("C")) txtMan=Request.QueryString("M") txtMandb=dbReplace(txtMan) txtKey=Trim(dbReplace(Request.QueryString("K"))) %>

<%If Request.QueryString("L")="T" Then Sel="SELECT ProductID,txtProduct,txtTeaser FROM Products WHERE nCatID=" & CatID rs.Open Sel,DB,1,3 If rs.EOF then%> <%Else%> <%Else%>

View by Category...  -Select Category- <%Sel="SELECT * FROM PCategories" rs.Open Sel,DB,1,3 While Not rs.EOF%> " <%=IsSelected(rs("CatID"),CInt(CatID))%>><%=rs("txtCategory")%> <%rs.MoveNext Wend rs.Close%>
View by Manufacturer...  -Select Manufacturer- <%Sel="SELECT DISTINCT txtManufacturer FROM Products" rs.Open Sel,DB,1,3 While Not rs.EOF%> " <%=IsSelected(rs("txtManufacturer"),txtMan)%>><%=rs("txtManufacturer")%> <%rs.MoveNext Wend rs.Close%>
Search by Keyword/Phrase...
There is currently no New Equipment available in this category. Please check back soon!!
<%While Not rs.EOF%> <%rs.MoveNext Wend rs.Close%> " title="Click here to view the details of <%=rs("txtProduct")%>">   <%=rs("txtProduct")%> <%=rs("txtTeaser")%>   <%End If ElseIf Request.QueryString("LM")="T" Then Sel="SELECT ProductID,txtProduct,txtTeaser FROM Products WHERE txtManufacturer='" & txtMandb & "'" rs.Open Sel,DB,1,3 If rs.EOF then%>
There is currently no New Equipment available from this Manufacturer. Please check back soon!!
<%While Not rs.EOF%> <%rs.MoveNext Wend rs.Close%> " title="Click here to view the details of <%=rs("txtProduct")%>"> <%=rs("txtProduct")%> <%=rs("txtTeaser")%>   <%End If ElseIf Request.QueryString("LK")="T" Then Sel="SELECT DISTINCT ProductID FROM Products WHERE txtProduct LIKE '%" & txtKey & "%' OR txtDescription LIKE '%" & txtKey & "%' OR txtManufacturer LIKE '%" & txtKey & "%' OR txtTeaser LIKE '%" & txtKey & "%' OR ProductID IN (SELECT nProductID FROM P_Specs WHERE txtSpecification LIKE '%" & txtKey & "%')" rs.Open Sel,DB,1,3 If rs.EOF then%>
Sorry - your search returned 0 results. Try another keyword or search method. <%Else%>
<%Set pr=Server.CreateObject("ADODB.Recordset") While Not rs.EOF Sel="SELECT txtProduct, txtTeaser FROM Products WHERE ProductID=" & rs("ProductID") pr.Open Sel,DB,1,3%> <%pr.Close rs.MoveNext Wend rs.Close%> <%End If%> " title="Click here to view the details of <%=pr("txtProduct")%>"> <%=Highlighter(pr("txtProduct"),txtKey)%> <%=Highlighter(pr("txtTeaser"),txtKey)%>   <%End If%>

 

<% Function IsSelected(value,data) If value=data then IsSelected="Selected" Else IsSelected="" End If End Function %> <% Function Highlighter(astring,searchtext) holder = searchtext If Trim(astring) <>"" then astring=Replace(astring,searchtext,"" & holder & "",1,-1,1) End If Highlighter=astring End Function %>