The Forum has been Updated
The code has been upgraded to the latest .NET core version. Please check instructions in the Community Announcements about migrating your account.
i have just install Auction 2.0, but i cannot see the Auction in the admin sektion. have i done something wrong 
Posted
Easy enough. Change the section in "inc_header.asp". See below.
Posted
OK ... that seems to do what I want, except that it shows up in My Auction, even though I am not bidding on or selling anything. I would like it to show up in Auction. So that any auctions going on will show up as such to all users. Just to let them know at a glance that there is an auction[s] ongoing ... even if they are not yet involved in it.
Posted
Code:
if mLev > 0 then
Response.Write " |" & vbNewline & _
" <a href=""auction_my_bid.asp""" & dWStatus("My Auction Section...") & " tabindex=""-1""><acronym title=""My Auction Section..."">My Auction</acronym></a>"
end if
strNow = DatetoStr(strForumTimeAdjust)
strSql="SELECT COUNT(AUCTIONID) AS CNT FROM " & strTablePrefix & "AUCTIONITEMS WHERE ENDDATE>'" & strNow & "'"
set rsCAD = my_Conn.Execute(strSql)
if not rsCAD.EOF then
intAuctionActive = rsCAD("CNT")
rsCAD.Close
else
intAuctionActive = 0
end if
set rsCAD = Nothing
Response.Write " |" & vbNewline & _
" <a href=""auction.asp""" & dWStatus("Auction Section...") & " tabindex=""-1""><acronym title=""Auction Section..."">Auction</acronym></a> (" & intAuctionActive & ")"
Posted
Perfect!!!
Thank you, Carefree!
Thank you, Carefree!
Posted
You're welcome.
Posted
OK, that worked fine. It was actually only my chkTime function, didn't play well with the near future.
Bobby can you remember what and where you changed things to resolve this?
Posted
To inc_function_common I added 2 functions.
Right after ChkDate...
and right after ChkTime...
Then I changed all instances of ChkDate in my auction files to ChkDateAuction.
Worked for me, your mileage may vary. Please make backups first.
Right after ChkDate...
Code:
function chkDateAuction(fDate,separator,fTime)
if fDate = "" or isNull(fDate) then
if fTime then
chkTimeAuction(fDate)
end if
exit function
end if
select case strDateType
case "dmy"
chkDateAuction = Mid(fDate,7,2) & "/" & _
Mid(fDate,5,2) & "/" & _
Mid(fDate,1,4)
case "mdy"
chkDateAuction = Mid(fDate,5,2) & "/" & _
Mid(fDate,7,2) & "/" & _
Mid(fDate,1,4)
case "ymd"
chkDateAuction = Mid(fDate,1,4) & "/" & _
Mid(fDate,5,2) & "/" & _
Mid(fDate,7,2)
case "ydm"
chkDateAuction = Mid(fDate,1,4) & "/" & _
Mid(fDate,7,2) & "/" & _
Mid(fDate,5,2)
case "dmmy"
chkDateAuction = Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,1,4)
case "mmdy"
chkDateAuction = Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,7,2) & " " & _
Mid(fDate,1,4)
case "ymmd"
chkDateAuction = Mid(fDate,1,4) & " " & _
Monthname(Mid(fDate,5,2),1) & " " & _
Mid(fDate,7,2)
case "ydmm"
chkDateAuction = Mid(fDate,1,4) & " " & _
Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),1)
case "dmmmy"
chkDateAuction = Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,1,4)
case "mmmdy"
chkDateAuction = Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,7,2) & " " & _
Mid(fDate,1,4)
case "ymmmd"
chkDateAuction = Mid(fDate,1,4) & " " & _
Monthname(Mid(fDate,5,2),0) & " " & _
Mid(fDate,7,2)
case "ydmmm"
chkDateAuction = Mid(fDate,1,4) & " " & _
Mid(fDate,7,2) & " " & _
Monthname(Mid(fDate,5,2),0)
case else
chkDateAuction = Mid(fDate,5,2) & "/" & _
Mid(fDate,7,2) & "/" & _
Mid(fDate,1,4)
end select
select case Mid(Request.ServerVariables("SCRIPT_NAME"), InstrRev(Request.ServerVariables("SCRIPT_NAME"), "/")+1)
case "admin_accounts_pending.asp", _
"admin_config_datetime.asp", _
"pop_printer_friendly.asp"
'
' For any page that needs the actual date, add the file name to the above case statement.
'
case else
select case left(fDate,8)
case left(DateToStr(strForumTimeAdjust),8)
chkDateAuction = "Today"
chkDateAuction = "Today"
'the line above is to change the display of Today
case left(DateToStr(dateadd("d",-1,strForumTimeAdjust)),8)
chkDateAuction = "Yesterday"
end select
end select
if fTime then
chkDateAuction = chkDateAuction & separator & chkTimeAuction(fDate)
end if
end function
and right after ChkTime...
Code:
function chkTimeAuction(fTime)
if fTime = "" or isNull(fTime) then
exit function
end if
if strTimeType = 12 then
if cLng(Mid(fTime, 9,2)) > 12 then
chkTimeAuction = ChkTimeAuction & " " & _
(cLng(Mid(fTime, 9,2)) -12) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "PM"
elseif cLng(Mid(fTime, 9,2)) = 12 then
chkTimeAuction = ChkTimeAuction & " " & _
cLng(Mid(fTime, 9,2)) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "PM"
elseif cLng(Mid(fTime, 9,2)) = 0 then
chkTimeAuction = ChkTimeAuction & " " & _
(cLng(Mid(fTime, 9,2)) +12) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "AM"
else
chkTimeAuction = ChkTimeAuction & " " & _
Mid(fTime, 9,2) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2) & " " & "AM"
end if
else
ChkTimeAuction = ChkTimeAuction & " " & _
Mid(fTime, 9,2) & ":" & _
Mid(fTime, 11,2) & ":" & _
Mid(fTime, 13,2)
end if
end function
function widenum(fNum)
if fNum > 9 then
widenum = ""
else
widenum = " "
end if
end function
Then I changed all instances of ChkDate in my auction files to ChkDateAuction.
Worked for me, your mileage may vary. Please make backups first.
Posted
Thanks Bobby, I'll get on with it after work later today
Regards,
Dave
Regards,
Dave
Posted
That worked - Thanks :)
Question: Am I right in thinking that the winning bidder gets an email to tell them that the auction is finished and they're the winner, but the seller receives nothing ?
If so is it possible for the seller to also receive an email to tell them that the auction has finished?
Question: Am I right in thinking that the winning bidder gets an email to tell them that the auction is finished and they're the winner, but the seller receives nothing ?
If so is it possible for the seller to also receive an email to tell them that the auction has finished?