<% firsttime = true path = session("path") if not len(request("filename")) > 1 then if len(session("filename")) < 1 then response.redirect("http://www.auction-net.co.uk") end if filename = session("filename") else filename = request("filename") session("filename") = filename end if if request("issearch") = "false" then session("search") = "" session("pages") = "" elseif request("issearch") = "true" then session("search") = request("search") apages = split(request("pages"),",") end if if len(request("pages")) > 0 then session("pages") = request("pages") end if if len(session("pages")) > 0 then apages = split(session("pages"),",") end if set rsAuctions = CreateObject("ADODB.Recordset") rsAuctions.Open "SELECT * FROM auctions" & _ " WHERE filename='" & filename & "'" _ , "DATABASE=" & session("database") & ";UID=" & session("dsn username") & _ ";PWD=" & session("dsn password") & ";DSN=" & session("dsn") if not rsAuctions.EOF then set rsAuctioneer = CreateObject("ADODB.Recordset") auctioneer = replace(rsAuctions("auctioneer"),"'","''") rsAuctioneer.Open "SELECT auctioneer,imagefile FROM auctioneers" & _ " WHERE auctioneer='" & auctioneer & "'" _ , "DATABASE=" & session("database") & ";UID=" & session("dsn username") & _ ";PWD=" & session("dsn password") & ";DSN=" & session("dsn") end if %> Auction Net: Auctions

<% 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) %>

Auction Net

Home Page


Auctions


Information


Search


Email Bid or Request Catalogue


Auctioneers

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 %>