<% dim txt pct = 0 do while not rs.eof pct = pct + 1 txt = rs("refnum") psmonth = mid(rs("startdate"),5,2) psyear = mid(rs("startdate"),3,2) psday = right(rs("startdate"),2) psdate = psday & "/" & psmonth & "/" & psyear pemonth = mid(rs("enddate"),5,2) peyear = mid(rs("enddate"),3,2) peday = right(rs("enddate"),2) pedate = peday & "/" & pemonth & "/" & peyear %> <% rs.movenext loop %>

Item :	Description :	Current Bid :	Starts	Ends	Buy/Bid
<%=rs("item")%> <% Set fs=Server.CreateObject("Scripting.FileSystemObject") If (fs.FileExists("d:\www\rollersnakes.co.uk\online_shop\images\" & txt & ".jpg"))=true Then set fs = nothing %> <% Else %> <% end if %>	<%=rs("description")%>	£ <% if rs("startbid") <> "" then if rs("startbid") <> "" and rs("currentbid") = "0" then response.write formatnumber(rs("startbid"),2) else response.write formatnumber(rs("currentbid"),2) end if end if %>	<%=psdate%>	<%=pedate%>	View Item "> Bid Now &prodid=<%=rs("refnum")%>&qty=1&price=<%=rs("buynowprice")%>"> Buy Now
The Buy Now Price For The Above Item Is      £ <%=formatnumber(rs("buynowprice"),2)%>