Type the subject matter you wish to search for in to the box below, then click 'SEARCH'. (You can search for the beginning of a word using "*", e.g. church*) <% iRequest = request.form aqu = split(request("qu"),"*") if ubound(aqu) > 1 then ok = false elseif ubound(aqu) = 1 then if len(aqu(1)) = 0 then ok = true else ok = true end if if len(request("qu")) > 2 and ok then %><% set Query = Server.CreateObject("IXSSO.Query") Query.Columns = "vpath" Query.SetQueryFromURL(iRequest) set RS = Query.CreateRecordSet("sequential") set d = server.createobject("scripting.dictionary") while not RS.EOF vpath = RS(0) if instr(vpath,"/data/pages/") =1 then vpath = right(vpath,len(vpath) - 12) aPath = split(vpath,".") vpath = "" for i = 1 to ubound(aPath) vpath = vpath & apath(i) if i < ubound(aPath) then vpath = vpath & "." next fnos = d.item(vpath) if len(fnos) > 0 then fnos = fnos & "," fnos = fnos & aPath(0) d.item(vpath) = fnos end if RS.movenext wend set iConn = server.createobject("ADODB.Connection") iConn.Open "DATABASE=" & session("database") & ";UID=" & session("dsn username") & ";PWD=" & session("dsn password") & ";DSN=" & session("dsn") Set iComm = server.CreateObject("ADODB.Command") Set iComm.ActiveConnection = iConn for each key in d.keys %> <% iComm.CommandText = "SELECT * FROM dbo.auctions WHERE filename='" & key & "'" set aRS = iComm.Execute if not aRS.EOF then if not lcase(aRS("finished")) = "o" then %> "> <% end if end if next%> <%elseif request("searching") = "true" then %> <%end if %> Search for: "> Auction(s) Found: <%=aRS("Title")%> <%if lcase(aRS("finished")) = "y" then %> ALREADY HELD <%end if%> NO RECORDS FOUND