Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 Auction 2.0		  New Topic  Reply to Topic
 Printer Friendly
Previous Page
Author Previous Topic Topic Next Topic
Page: of 11

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 10 September 2010 :  16:13:05  Show Profile  Reply with Quote
Easy enough. Change the section in "inc_header.asp". See below.
Edited by - Carefree on 11 September 2010 19:26:11
Go to Top of Page

richfed
Average Member

United States
999 Posts
Posted - 11 September 2010 :  08:51:22  Show Profile  Visit richfed's Homepage  Reply with Quote
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.
Rich
[size=1]A Complete Idiot's Guide to MOD Implementation || On the Trail of the Last of the Mohicans[/size=1]
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 11 September 2010 :  19:25:40  Show Profile  Reply with Quote 

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 & ")"
Go to Top of Page

richfed
Average Member

United States
999 Posts
Posted - 12 September 2010 :  08:23:35  Show Profile  Visit richfed's Homepage  Reply with Quote
Perfect!!!

Thank you, Carefree!
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 12 September 2010 :  13:40:24  Show Profile  Reply with Quote
You're welcome.
Go to Top of Page

Webbo
Average Member

United Kingdom
982 Posts
Posted - 21 February 2011 :  17:33:37  Show Profile  Visit Webbo's Homepage  Reply with Quote
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.



Bobby can you remember what and where you changed things to resolve this?
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 21 February 2011 :  19:28:42  Show Profile  Visit bobby131313's Homepage  Reply with Quote
To inc_function_common I added 2 functions.

Right after ChkDate...


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


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.
Switch the order of your title tags
Go to Top of Page

Webbo
Average Member

United Kingdom
982 Posts
Posted - 22 February 2011 :  02:30:25  Show Profile  Visit Webbo's Homepage  Reply with Quote
Thanks Bobby, I'll get on with it after work later today

Regards,

Dave
Go to Top of Page

Webbo
Average Member

United Kingdom
982 Posts
Posted - 24 February 2011 :  17:32:02  Show Profile  Visit Webbo's Homepage  Reply with Quote
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?
Edited by - Webbo on 24 February 2011 17:32:16
Go to Top of Page
Page: of 11 Previous Topic Topic Next Topic  
Previous Page
 New Topic  Reply to Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.22 seconds. Powered By: Snitz Forums 2000 Version 3.4.07