<% Sub CountDown() dateNow = FormatDateTime(now(),0) ' response.write "Date is " & dateNow & "
" intSecs = DateDIff("s", dateNow,"11/10/2024 09:00:00 PM") 'end time intSecsStart = DateDiff("s", dateNow,"11/04/2024 12:01:00 PM") if intSecsStart > 0 then response.write "

Preview Only

" blnPreview = 1 else if intsecs > 0 then intDays = int(intSecs/86400) intSecs = intSecs - intDays * 86400 if intDays <> 1 then strDs = "s" intHour = Int(intSecs/3600) intSecs = intSecs - intHour * 3600 if intHour <> 1 then strHs = "s" intMin = Int(intSecs/60) intSecs = intSecs - intMin * 60 if intMin <> 1 then strMs = "s" response.write "
" response.write "

Time left: " & intDays & " day" & strDs & ", " & intHour & " hour" & strHs & ", " response.write intMin & " minute" & strMs & ", " & intSecs & " seconds

" else response.write "

Time's Up! - Thank you!

" end if end if End Sub %>

FALL 2024 AUCTION

<% Call Countdown response.write "

This page gives an image view of all the items on offer in the current auction. Click on the item to see its details.

" ' response.write "Session variables " & session("Token") & ", " & session("userID") & ", " & session("username") & "
" Set objCmd = Server.CreateObject("ADODB.Command") objCmd.CommandType = adCmdStoredProc objCmd.CommandText = "usp_RetrieveImages" objCmd.ActiveConnection = stConn set rs = objCmd.Execute do until rs.eof ItemID = rs("ItemID") ItemURL = rs("ImageURL") response.write "" response.write "  " rs.movenext loop Set objCmd = Nothing %>