Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 Auction 2.0

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
Check here to subscribe to this topic.
   

T O P I C    R E V I E W
superskytten1 Posted - 11 June 2010 : 23:47:37
i have just install Auction 2.0, but i cannot see the Auction in the admin sektion. have i done something wrong
15   L A T E S T    R E P L I E S    (Newest First)
Webbo Posted - 24 February 2011 : 17:32:02
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?
Webbo Posted - 22 February 2011 : 02:30:25
Thanks Bobby, I'll get on with it after work later today

Regards,

Dave
bobby131313 Posted - 21 February 2011 : 19:28:42
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.
Webbo Posted - 21 February 2011 : 17:33:37
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?
Carefree Posted - 12 September 2010 : 13:40:24
You're welcome.
richfed Posted - 12 September 2010 : 08:23:35
Perfect!!!

Thank you, Carefree!
Carefree Posted - 11 September 2010 : 19:25:40

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 & ")"
richfed Posted - 11 September 2010 : 08:51:22
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.
Carefree Posted - 10 September 2010 : 16:13:05
Easy enough. Change the section in "inc_header.asp". See below.
richfed Posted - 10 September 2010 : 07:11:37
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.


Can anyone code this? It would be very helpful, I would think. When a user logs on, they would immediately see how many "live" auctions there were ... inducing, hopefully, a click on the link.
richfed Posted - 05 September 2010 : 19:27:34
Thanks ... that part is fixed.
Classicmotorcycling Posted - 05 September 2010 : 15:42:40
I have fixed it in the download. Was playing with some stuff and forgot to change it back before I copied the files.
richfed Posted - 05 September 2010 : 11:06:17
Here is a screenshot of what I see [I fixed the image URL that the user had posted incorrectly] when logged in as Admin. I can see no way to bid. I think the user may have posted the auction incorrectly, but I see no way to fix it. Obviously, something wrong with the "winning bidder" entry.
richfed Posted - 05 September 2010 : 10:47:57
Just installed the latest version of this MOD from SnitzBitz because someone was actually going to list an auction - first time on my forum so I am pretty unfamiliar with the functions of the MOD. Two things:
  • 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.


Thanks -

EDIT ---> Scratch the first one ... I see it. Perhaps, the edit icon should appear in various views? A little hard to find, I think.

EDIT #2 ---> I see no way to actually place a bid on the listed item. Am I nuts?
Carefree Posted - 18 August 2010 : 21:59:01
No bids desired - this was a fun test:

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.05 seconds. Powered By: Snitz Forums 2000 Version 3.4.07