<%@ LANGUAGE = "VBScript" %> <% '----------------------------------------------------------- ' ASPilot.com - Search Engine ' ------------------------------ ' Copyright © 2004 Spliethof Inc ' ' This file lists all the search engine funtions for the cart PilotInitialize GetCurrentCustomer MarkCurrentCustomerActive mode = EStr(Request.QueryString("mode")) sorry = "



Sorry, nothing was found.

Tip: If browsing is not yielding the results you are looking for, why not try using our search engine?

 

 
" strsrch = Trim(Request.Form("srch")) If strsrch = "" Then strsrch = Request.QueryString("srch") srch = Replace(StripSymbols(strsrch), " ", "%") If srch = "" Then srch = "XX" searchBy = Request.Form("searchBy") If searchBy = "" Then searchBy = Request.QueryString("searchBy") mypage = Request.Form("pgNum") If Not IsNumeric(mypage) Then mypage = 1 ElseIf mypage = "" Then mypage = 1 Else mypage = Int(Request.Form("pgNum")) End If If Not PilotPageBegin("search", Empty) Then Response.Redirect g.HomePageURL & "pilot.asp" B2BCheckLogin "search" If mode = "" Then Response.Write img1 & pc ElseIf mode = "results" Then If searchBy = "" Then searchBy = "Products" Set rs = Server.CreateObject("ADODB.RecordSet") rs.CursorLocation = adUseClient sqlsrch = Replace(srch, "XX", "%%%' OR field LIKE '%%%") If searchBy = "Products" Then sqlQry = "SELECT TOP "&MAXRECORDS&" ITEMID, SKU, ITEMNAME, MANUFNAME, DESCRIP FROM qInventoryByManuf WHERE SKU LIKE '%%%"&Replace(sqlsrch, "field", "SKU")&"%%%' OR ITEMNAME LIKE '%%%"&Replace(sqlsrch, "field", "ITEMNAME")&"%%%' OR DESCRIP LIKE '%%%"& Replace(sqlsrch, "field", "DESCRIP") &"%%%' ORDER BY ManufName ASC, ITEMNAME ASC;" If searchBy = "Snippets" Then sqlQry = "SELECT TOP "&MAXRECORDS&" * FROM TBLCODE_SNIPPETS WHERE CODE_TITLE LIKE '%%%"&Replace(sqlsrch, "field", "CODE_TITLE")&"%%%' OR CODE_DESCRIP LIKE '%%%"&Replace(sqlsrch, "field", "CODE_DESCRIP")&"%%%' OR CODE_SNIPPET LIKE '%%%"&Replace(sqlsrch, "field", "CODE_SNIPPET")&"%%%' ORDER BY CODE_TITLE ASC;" If searchBy = "Support" Then sqlQry = "SELECT TOP "&MAXRECORDS&" * FROM TBLSUPPORT WHERE QUESTION LIKE '%%%"&Replace(sqlsrch, "field", "QUESTION")&"%%%' OR ANSWER LIKE '%%%"&Replace(sqlsrch, "field", "ANSWER")&"%%%' ORDER BY QUESTION ASC;" If searchBy = "Clients" Then sqlQry = "SELECT TOP "&MAXRECORDS&" * FROM TBLCLIENTS WHERE CLIENT LIKE '%%%"&Replace(sqlsrch, "field", "CLIENT")&"%%%' OR DESCRIP LIKE '%%%"&Replace(sqlsrch, "field", "DESCRIP")&"%%%' OR URL LIKE '%%%"&Replace(sqlsrch, "field", "URL")&"%%%' ORDER BY CLIENT ASC;" rs.Open sqlQry, cnPILOT, adOpenStatic If Not rs.EOF Then rs.MoveFirst rs.PageSize = 30 maxcount = CInt(rs.PageCount) rs.AbsolutePage = mypage howmanyrecs = 0 LinkCount = 0 If srch = "XX" Then thesrch = "all" Else thesrch = Replace(srch, "%", " ") Response.Write"

Searching "&searchBy&" for """&thesrch&""" found "&rs.recordcount&" result"&CheckShowS(rs.recordcount)&":" If maxcount > 1 Then Response.Write"
Page "&mypage&" of "&maxcount&"" Response.Write"

" While Not rs.EOF And howmanyrecs < rs.pagesize If LinkCount Mod 2 = 0 Then bgColor = " bgcolor=""#"&clr2&"""" Else bgColor = "" Response.Write"" If searchBy = "Products" Then lemanf = rs("MANUFNAME") hilite1 = HiLight(lemanf, srch, "#FFFF99") hilite2 = HiLight(rs("ITEMNAME"), srch, "#FFFF99") hilite3 = HiLight(Excerpt(rs("DESCRIP"),100,170), srch, "#FFFF99") Response.Write"" ElseIf searchBy = "Snippets" Then hilite1 = HiLight(rs("CODE_TITLE"), srch, "#FFFF99") hilite2 = HiLight(Excerpt(rs("CODE_DESCRIP"),100,170), srch, "#FFFF99") Response.Write"" ElseIf searchBy = "Support" Then hilite1 = HiLight(rs("QUESTION"), srch, "#FFFF99") hilite2 = HiLight(Excerpt(rs("ANSWER"),100,170), srch, "#FFFF99") Response.Write"" ElseIf searchBy = "Clients" Then hilite1 = HiLight(rs("CLIENT"), srch, "#FFFF99") hilite2 = HiLight(Excerpt(rs("DESCRIP"),100,170), srch, "#FFFF99") Response.Write"" Else Response.Write sorry End If Response.Write"" rs.MoveNext howmanyrecs = howmanyrecs + 1 LinkCount = LinkCount + 1 CheckConnection Wend Response.Write"

"&hilite1&" "&hilite2&" : "&hilite3&"

"&hilite1&" : "&hilite2&"

"&hilite1&" : "&hilite2&"

"&hilite1&" : "&hilite2&"

" If maxcount > 1 Then Call ShowNavBar("search", "search") rs.Close Else Response.Write sorry End If Set rs = Nothing Else Response.Write sorry End If TemplateAfterPC PilotPageEnd %>