<% if not rsAuctioneer.EOF then %> <%end if%> "> " border=0> <% if not rsAuctions.EOF then nolots = rsAuctions("lots") pages = rsAuctions("pages") fline = rsAuctions("fline") dim spages() redim spages(pages) if request("issearch") = "true" then page = 10000 else page = request("page") end if if request("page") = "0" then page = 1 session("search") = "" end if if not isempty(apages) then for i = 0 to ubound(apages) if request("issearch") = "true" and cint(apages(i)) < cint(page) then page = apages(i) end if spages(apages(i)) = 1 next end if if cint(page) < 1 then page = 1 %> <%=rsAuctions("title")%> VIEW AUCTION DETAILS <% btns="" btns = btns & "" btns = btns & "" if not len(session("search")) > 0 then btns = btns & "" elseif not isempty(spages) then btns = btns & "" btns = btns & "" end if btns = btns & " LOTS: " & nolots - fline + 1 & _ ", PAGES: " & pages & " " for i = 1 to pages rightno = "/right/" & i mod 10 & ".gif" if i > 99 then leftno2 = "/left/" & int(i/100) & ".gif" leftno = "/left/" & int((i mod 100)/10) & ".gif" elseif i > 9 then leftno = "/left/" & int(i/10) & ".gif" leftno2 = "" else leftno = "/left/blank.gif" leftno2 = "" end if if not i = cint(page) then wpage = "" if cint(i) > 99 then wpage = wpage & "" end if wpage = wpage & "" & _ "" else wpage = "" if cint(i) > 99 then wpage = wpage & "" end if wpage = wpage & "" & _ "" end if btns = btns & wpage if i < 101 then if i mod 25 = 0 then btns = btns & " " & vbcrlf elseif i > 100 then if i mod 20 = 0 then btns = btns & " " & vbcrlf end if next btns = btns & " " & session("search") & " was found on these pages: " btns = btns & "        (show all pages) " brcount = 0 for i = 0 to ubound(spages) if spages(i) = 1 then brcount = brcount + 1 rightno = "/right/" & i mod 10 & ".gif" if i > 99 then leftno2 = "/left/" & int(i/100) & ".gif" leftno = "/left/" & int((i mod 100)/10) & ".gif" elseif i > 9 then leftno = "/left/" & int(i/10) & ".gif" leftno2 = "" else leftno = "/left/blank.gif" leftno2 = "" end if if not i = cint(page) then wpage = "" if cint(i) > 99 then wpage = wpage & "" end if wpage = wpage & "" & _ "" else wpage = "" if cint(i) > 99 then wpage = wpage & "" end if wpage = wpage & "" & _ "" end if btns = btns & wpage if brcount mod 20 = 0 then btns = btns & " " & vbcrlf end if next btns = btns & " " response.write(btns) %> <% set fc = CreateObject("Scripting.FileSystemObject") # Response.Write(path & "pages\" & page & "." & rsAuctions("filename")) set c = fc.OpenTextFile(path & "pages\\" & page & "." & rsAuctions("filename")) write = 0 if not len(session("search")) > 0 then while (not c.atendofstream) response.write(c.readline & vbcrlf) wend else i = 0 searchstring = session("search") if instr(searchstring,"*") > 0 then searchstring = left(searchstring,len(searchstring)-1) end if while not c.atendofstream if not len(lastline) > 0 then firstline = c.readline else firstline = lastline end if lastline = "" if instr(lcase(firstline)," 0 then line = c.readline while (not c.atendofstream) and (not instr(lcase(line)," ") > 0) line = line & c.readline wend if not c.atendofstream then aLine = split(line," ") line = aLine(0) lastline = " " & aLine(1) startpos = instr(lcase(line),lcase(searchstring)) if startpos > 0 then line1 = left(line,startpos - 1) found = mid(line,startpos,len(searchstring)) line2 = right(line,len(line) - startpos - len(searchstring)+1) line = line1 & "" & found & "" & line2 if not instr(lcase(line)," ") >0 then response.write(firstline & vbcrlf) response.write(line & vbcrlf) else aline = split(line," ") if not ubound(aline) > 0 then aline = split(line," ") response.write(" " & aline(1)) while not c.atendofstream response.write(c.readline & vbcrlf) wend if page < pages then response.write(" Note: The search string " & searchstring & " " & _ "might also apply to the pages immediately following page " & _ page & " ") end if end if end if end if end if if len(lastline) < 1 and not c.atendofstream then lastline = c.readline end if wend c.close end if %> <% end if %> <% nbsp = "            " details = nbsp & rsAuctions("details") if instr(details,chr(10)) > 0 then details = replace(details,chr(10)," " & nbsp) else details = replace(details,chr(13)," " & nbsp) end if details = replace(details," "," ") %> <% indate = rsAuctions("date") getdate indate, mydate, mytime %> <% for i = 2 to 5 if not isnull(rsAuctions("date" & i)) then if not instr(rsAuctions("date" & i),"1900") > 0 then indate = rsAuctions("date" & i) getdate indate, mydate, mytime %> <% end if end if next %> AUCTIONEER: <%=rsAuctions("auctioneer")%> AUCTION: <%=rsAuctions("title")%> DATE: <%=switchmd(mydate)%>   TIME: <%=mytime%> 2nd DATE: <%=switchmd(mydate)%>   TIME: <%=mytime%> LOCATION: <%=rsAuctions("location")%> CONTACT: <%=rsAuctions("contactinfo")%> DETAILS: <%=details%> BACK TO TOP OF PAGE <% response.write(btns) %> HOMEPAGE | AUCTIONS | INFO | SEARCH | E-MAIL | AUCTIONEERS

<% sub getdate (indate,mydate,mytime) dim aDate aDate = split(indate," ") mytime = "" if ubound(aDate) > 0 then aTime = split(aDate(1),":") if ubound(aTime) > 0 then aDate(1) = aTime(0) & ":" & aTime(1) for i = 1 to ubound(aDate) mytime = mytime & aDate(i) & " " next mydate = switchmd(aDate(0)) else mytime = "" mydate = switchmd(indate) end if end sub function switchmd (indate) dim mydate mydate = indate if len(mydate) > 0 then adate = split(mydate,"/") if ubound(adate) = 2 then mydate = adate(1) & "/" & adate(0) & "/" & adate(2) end if switchmd = mydate end function %>