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