<% function displaydate(mydate) adate = split(mydate) adate(0) = formatdatetime(adate(0),1) displaydate = adate(0) if ubound(adate) = 1 then atime = split(adate(1),":") if atime(0) > 11 then atime(2) = "PM" else atime(2) = "AM" if atime(0) > 12 then atime(0) = atime(0) - 12 displaydate = adate(0) & " " & atime(0) & ":" & atime(1) & " " & atime(2) end if end function %> Auction Net: Auctions (Full Auction Catalogues from Leading Provincial Auction Houses)

Auctions

Click on the View Details button to view the full lot descriptions of the sale.

<% if len(request("auctioneer")) > 0 then show = true else show = false end if set rsAuctions = CreateObject("ADODB.Recordset") auctioneer = replace(request("auctioneer"),"'","''") command = "SELECT * FROM auctions" if show then command = command & " WHERE auctioneer ='" & auctioneer & "'" command = command & " ORDER BY date DESC" rsAuctions.Open command _ , "DATABASE=" & session("database") & ";UID=" & session("dsn username") & _ ";PWD=" & session("dsn password") & ";DSN=" & session("dsn") if rsAuctions.EOF then noauctions = true else noauctions = false end if 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 if show then iComm.commandtext = "SELECT imagefile FROM dbo.auctioneers " & _ "WHERE auctioneer='" & auctioneer & "'" set RS = iComm.execute %> <% if not RS.EOF then %> <%end if%>
"> " border=0>
<% if noauctions then %>

There are currently no live sales available for this auctioneer, please click on the Contact Us button on the right for further information on future sales.
<% end if %> <% end if%> <% while not rsAuctions.eof auctioneer = replace(rsAuctions("auctioneer"),"'","''") iComm.commandtext = "SELECT active FROM dbo.auctioneers " & _ "WHERE auctioneer='" & auctioneer & "'" set RS = iComm.execute if not lcase(RS("active")) = "n" then%>

<% if not show then %> <% end if %>
<%if rsAuctions("images") = "y" then%> <%end if%> ">
TITLE: <%=rsAuctions("title")%><%if lcase(rsAuctions("finished")) = "y" then %> ALREADY HELD<%end if%>
AUCTIONEER: <%=rsAuctions("auctioneer")%>
DATE: <%=displaydate(rsAuctions("date"))%>

<% end if rsAuctions.MoveNext wend %>

Auction Net

Home Page


Information


Search


Email Bid or Request Catalogue


Auctioneers

HOMEPAGE | INFO | SEARCH | E-MAIL | AUCTIONEERS