|
|
<%
Dim szSrch
Dim bFound
bFound = 0
szSrch = Request("searchterm")
Response.write("| Results for " & szSrch & " |
")
If ((szSrch<>"") AND (Len(szSrch)>2)) Then
For i=0 to UBound(logo)
If (InStr(LCase(logo(i))," " & LCase(szSrch))<>0) Then
bFound = 1
szNip = Split(logo(i),"|")
Response.write("" & szNip(0) & " " & Replace(szNip(1),szSrch,"" & szSrch & "") & " |
")
End If
Next
If (bFound = 0) Then
Response.write("| No results found |
")
End if
End if
%>