<% '============================= 'search is a simple text box search where 'a user will displayed a list of results 'the searchable feilds are *who posted*, *topic title* 'and *msg body* dim error, error_msg, search_results if (Request.Form("search") <> "") then 'they want to for *something* call forum_search(trim(Request.Form("search")), false) end if %> [ admin ]

Looking for a naughty post? Maybe someone has been really rude? This is the best way to find that post and remove it!!

?search=yes" method="post">
search for: " />

<% if isarray(search_results) then %>

<% for i=0 to ubound(search_results,2) if i mod 2 <> 0 then bgcolor = " bgcolor=#f6f6f6" else bgcolor = "" end if %> <% next %>
+---------------------
title who posted last post no. post
+---------------------
><% if search_results(0,i) = "untitled" then 'its a msg reply, not a top level topic Response.Write("
  • "& server.HTMLEncode(search_results(5,i)) &"
    • ") else 'its a top level topic Response.Write("" & server.HTMLEncode(search_results(0,i)) & "") end if %>    		 ><% if isnull(search_results(3,i)) then 'its not a registered user, so print there name Response.Write(server.HTMLEncode(search_results(2,i))) else 'its a registered user :] Response.Write(server.HTMLEncode(search_results(3,i))) end if %> ><% if hours_from_now(search_results(1,i)) < 25 then Response.Write(hours_from_now(search_results(1,i)) & " hrs") else Response.Write(days_from_now(search_results(1,i)) & " days") end if %> ><% if search_results(0,i) = "untitled" then Response.Write("reply") else Response.Write(post_count(search_results(6,i))) end if %>

    <% elseif (Request.QueryString("search") = "yes") and (Request.Form("search") <> "") then 'show no text :[ %>

    Your search for <%=Request.Form("search")%> returned no results. Check over the tips below, try searching for less or using a an underscore '_' as a wildcard in your search string.

    <% end if %>