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

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

quote:

---

Originally posted by bobby131313

Hmmmm...... the custom Today/Yesterday mod messing with it probably? My chkDate function has been modified several times.....

---

quote:

---

OK, this is due to my modifications and I think I can work it out myself. chkDate and chkTime from a fresh download works fine.

I'll just try renaming them for the auction......

---

quote:

---

OK, that worked fine. It was actually only my chkTime function, didn't play well with the near future.

---

quote:

---

Is there a way to make the Auction link on inc_header.asp show that a Auction is going on - like PMs show up when you have one? Just a number would do ... indicating that x number of auctions are underway.

---

• First of all, the user placed a broken link for the image. I see no function that allows me to go in and attempt to fix/edit that. Is that even possible?
• Secondly, is there a way to make the Auction link on inc_header.asp show that a Auction is going on - like PMs show up when you have one? Just a number would do ... indicating that x number of auctions are underway.