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 | Next Page
Author Previous Topic Topic Next Topic
Page: of 11

Webbo
Average Member

United Kingdom
982 Posts
Posted - 05 July 2010 :  17:46:37  Show Profile  Visit Webbo's Homepage  Reply with Quote
I've created the tables manually and have it working

There is another 'sort' error with MySql in the file: auction_feedback.asp at line #198 ...


quote:
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[MySQL][ODBC 5.1 Driver][mysqld-5.1.44-community-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '5 DATEBUYER, BUYERCOMMENT FROM FORUM_AUCTIONFEEDBACK WHERE SELLERID = 3 ORDER BY' at line 1

/forum/auction_feedback.asp, line 198


I've tried a fix but cannot seem to get it right

Cheers,

Dave
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts
Posted - 06 July 2010 :  15:35:02  Show Profile  Reply with Quote
At line 197, change the following:


strSql="SELECT TOP 5 DATEBUYER, BUYERCOMMENT FROM " & strMemberTablePrefix & "AUCTIONFEEDBACK WHERE SELLERID = " & FeedbackID & " ORDER BY DATEBUYER DESC"


To:


if strDBType = "mysql" then
	strsql = "SELECT DATEBUYER, BUYERCOMMENT FROM " & strMemberTablePrefix & "AUCTIONFEEDBACK WHERE SELLERID = " & FeedbackID & " ORDER BY DATEBUYER DESC LIMIT 0,5"
else
	strSql = "SELECT TOP 5 DATEBUYER, BUYERCOMMENT FROM " & strMemberTablePrefix & "AUCTIONFEEDBACK WHERE SELLERID = " & FeedbackID & " ORDER BY DATEBUYER DESC"
end if


Then at line 219, cahange:


	strSql="SELECT TOP 5 DATESELLER, SELLERCOMMENT FROM " & strMemberTablePrefix & "AUCTIONFEEDBACK WHERE BUYERID = " & FeedbackID & " ORDER BY DATESELLER DESC"


To this:


if strDBType = "mysql" then
	strsql = "SELECT DATESELLER, SELLERCOMMENT FROM " & strMemberTablePrefix & "AUCTIONFEEDBACK WHERE BUYERID = " & FeedbackID & " ORDER BY DATEBUYER DESC LIMIT 0,5"
else
	strSql="SELECT TOP 5 DATESELLER, SELLERCOMMENT FROM " & strMemberTablePrefix & "AUCTIONFEEDBACK WHERE BUYERID = " & FeedbackID & " ORDER BY DATEBUYER DESC"
end if


Has to do with the way MySQL calls the TOP command. Like I said, I only did basic testing with MySQL. I have updated SnitzBitz.com with the new file.
Cheers,

David Greening
Go to Top of Page

Webbo
Average Member

United Kingdom
982 Posts
Posted - 06 July 2010 :  17:06:37  Show Profile  Visit Webbo's Homepage  Reply with Quote
Excellent David, many thanks :)
Go to Top of Page

Webbo
Average Member

United Kingdom
982 Posts
Posted - 11 July 2010 :  04:59:53  Show Profile  Visit Webbo's Homepage  Reply with Quote
Hmm, the emails aren't being sent to advise of end of auction - they are working however if you have been outbid or have made a bid, plus the admin is being notified of new auctions
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 25 July 2010 :  18:50:28  Show Profile  Visit bobby131313's Homepage  Reply with Quote
I've got this working pretty well except for one thing I've noticed....

You can't edit an auction without starting it over. Say I just want to add a link to some more pictures to the description, you must pick a number of days again and it resets the days and the time.
Switch the order of your title tags
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts
Posted - 26 July 2010 :  05:56:19  Show Profile  Reply with Quote
This is by design Bobby. If you are going to change the action item description with additional information, then the date should start from there to be fair to others.
Cheers,

David Greening
Go to Top of Page

Sean Sounds
Starting Member

20 Posts
Posted - 26 July 2010 :  20:14:58  Show Profile  Reply with Quote
quote:
Originally posted by Classicmotorcycling

This is by design Bobby. If you are going to change the action item description with additional information, then the date should start from there to be fair to others.




Unfortunately, this opens up a lot of dishonesty with the sellers. If an item has 1 bid (or low bids) and the seller isn't satisfied with the sell amount, then all he/she would need to do is edit the auction item causing it to reset. This will cause the potential winning bidder to be cheated out of the item. Now he/she has to wait longer and risk the chance of more potential bidders outbidding them.

It would be nice if the time is only reset if there are "no" bids on the item. The edit option could be allowed if there are bids for the admin with the option to reset the clock or not based on the situation.
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts
Posted - 26 July 2010 :  20:52:29  Show Profile  Reply with Quote
I can see it from both sides, but I felt it as unfair if a seller changes the item, then they could say that the bidder was only bidding on a picture (for example) and not the item that was originally listed, then there is that floor in it. There is the risk that the seller has in changing the item, and that is if they change the description and or the price, then will the user that was bidding on it bid again if they raise the price and possibly loose a sale all together. Or do we have it that they are allowed to edit the item and the user doesn't get what they originally hoped for.
quote:
Originally posted by Sean Sounds

Unfortunately, this opens up a lot of dishonesty with the sellers. If an item has 1 bid (or low bids) and the seller isn't satisfied with the sell amount, then all he/she would need to do is edit the auction item causing it to reset. This will cause the potential winning bidder to be cheated out of the item. Now he/she has to wait longer and risk the chance of more potential bidders outbidding them.

It would be nice if the time is only reset if there are "no" bids on the item. The edit option could be allowed if there are bids for the admin with the option to reset the clock or not based on the situation.
There is no easy way to allow the edit to occur and you get a seller who might of originally put in a wrong description, and that would be unfair to the bidder, so I took the easy way and reset the auction. That is a good reason to have the correct description from the start.
Cheers,

David Greening
Go to Top of Page

leatherlips
Senior Member

USA
1838 Posts
Posted - 26 July 2010 :  22:05:31  Show Profile  Visit leatherlips's Homepage  Reply with Quote
I don't have this mod installed but what if you allowed the seller to edit the auction as long as there are no bids? Once there is a bid the editing is no longer allowed. Just a suggestion.
Mangione Magic Forum - The Music of Chuck Mangione

My Mods: Googiespell MOD | Link To Reply MOD | Petition MOD | Contact Page MOD | Share This Topic MOD | MP3 MOD | PageEar MOD | Google Viewer MOD
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 26 July 2010 :  22:24:13  Show Profile  Visit bobby131313's Homepage  Reply with Quote
quote:
I don't have this mod installed but what if you allowed the seller to edit the auction as long as there are no bids? Once there is a bid the editing is no longer allowed. Just a suggestion.


And a good one.
Switch the order of your title tags
Go to Top of Page

Sean Sounds
Starting Member

20 Posts
Posted - 27 July 2010 :  00:21:39  Show Profile  Reply with Quote
quote:
Originally posted by bobby131313

quote:
I don't have this mod installed but what if you allowed the seller to edit the auction as long as there are no bids? Once there is a bid the editing is no longer allowed. Just a suggestion.


And a good one.

Yeah. That's what I was suggesting in addition to the time being reset during the editing. I also added that the Admin should maintain the option to edit (even after there is a bid) just in case there was a serious issue with the description and the Seller could not make the change because a bid occurred before the Seller could make the correction. The Admin's change could be made and allow the auction to continue without the time being reset. In addition, an email could automatically be sent to the bidder(s) indicating that a change was made by the Admin to the item so the bidder(s) and Seller could review it.
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts
Posted - 27 July 2010 :  07:21:23  Show Profile  Reply with Quote
Ok, I have updated the MOD to Auction Mod v2.6 to incorporate if an item has a bid on it, it can not be edited.
quote:
Originally posted by leatherlips

I don't have this mod installed but what if you allowed the seller to edit the auction as long as there are no bids? Once there is a bid the editing is no longer allowed. Just a suggestion.
If there is no bid then it can be edited. I have not fully tested, but tested enough to show it can not be edited..
Cheers,

David Greening
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 27 July 2010 :  10:46:48  Show Profile  Visit bobby131313's Homepage  Reply with Quote
Thank you, will test today.

I was just informed of something else though. A seller just had an auction end and he says he can't see anywhere who won?

Edited to add: I'm thinking the seller and admins should be able to see a bidder list all the time?
Switch the order of your title tags
Edited by - bobby131313 on 27 July 2010 11:30:09
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 27 July 2010 :  21:56:58  Show Profile  Reply with Quote
Here Bobby, my 2-cents worth:

Save this as "auction_bidders.asp"


<%
'#################################################################################
'## Snitz Forums 2000 v3.4.07
'#################################################################################
'## Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen,
'##                       Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'###############################################################################
'## MOD: Auction Mod v2.6 for Snitz Forums v3.4.07
'## Author: David Greening (Classicmotorcycling)
'## Bidders concept: Carefree
'##
'## File: auction_bidders.asp
'##
'## Get the latest version of this MOD at
'## http://www.snitzbitz.com/mods/
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_posting.asp"-->
<!--#INCLUDE FILE="auction_language.asp" -->
<%
Response.Write	"<table border=""0"" width=""100%"" cellpadding=""4"" cellspacing=""1"">" & vbNewLine & _
	"	<tr>" & vbNewLine & _
	"		<td colspan=""2"" valign=""top"" nowrap>" & vbNewLine & _
	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
	"          		" & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " <a href=""auction.asp"">" & strLang_Auction_00000 & "</a><br />" & vbNewLine & _
	"          		" & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & strLang_Auction_01200 & "</font>" & vbNewLine & _
	"		</td>" & vbNewLine & _
	"	</tr>" & vbNewLine & _
	"</table>" & vbNewLine
if mLev = 0 then
	Response.Write	"<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
			"	<tr>" & vbNewLine & _
			"		<td align=""center"">" & vbNewLine & _
			"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><b>" & strLang_Auction_00006 & "</b></font><br /><br />" & vbNewLine & _
			"		</td>" & vbNewLine & _
			"	</tr>" & vbNewLine & _
			"</table>" & vbNewLine
else
	Response.Write	"<table width=""100%"" align=""center"" cellpadding=""0"" cellspacing=""0"" border=""1"">" & vbNewLine & _
			"	<tr height=""40"">" & vbNewLine & _
			"		<td align=""center"" colspan=""2"" bgcolor=""" & strHeadCellColor & """>" & vbNewLine & _
			"			<b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>" & strForumTitle & " - " & strLang_Auction_01200 & "</font></b>" & vbNewLine & _
			"		</td>" & vbNewLine & _
			"	</tr>" & vbNewLine & _
			"	<tr>" & vbNewLine & _
			"		<td width=""100%"" valign=""top"" align=""center""><p> </p>" & vbNewLine
	endAuction = DateToStr(strForumTimeAdjust)
	intAuctionID = Request.Querystring("IntAuctionID")
	strSql = "SELECT * FROM " & strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID="& intAuctionID
	set rsData=my_Conn.Execute(strSql)
	if rsData.EOF then
		Response.Write	strLang_Auction_01206 & vbNewLine & _
			"<meta http-equiv=""Refresh"" content=""3; URL=auction_item.asp?intAuctionID=" & intAuctionID & """>" & vbNewLine
		WriteFooter
		Response.End
	else
		AuctionID=rsData("AUCTIONID")
		Seller=rsData("SELLER")
		strAuctionImage=rsData("ImgURL")
		strItemName=rsData("ITEMNAME")
		strItemDesc=rsData("ITEMDESC")
		MinBid=rsData("OPENINGBID")
		CurBid=rsData("CURRENTBID")
		dtmEnd=rsData("ENDDATE")
		rsData.Close
	end if
	set rsData=Nothing
	if MinBid = CurBid then 'No bids
		Response.Write	"<br /><p><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_01211 & "</b></font></p><br />" & vbNewLine & _
				"<meta http-equiv=""Refresh"" content=""3; URL=auction_item.asp?intAuctionID=" & AuctionID & """></td></tr></table>" & vbNewLine
		WriteFooter
		Response.End
	end if
	strSql="SELECT * FROM " & strTablePrefix & "AUCTIONBIDS WHERE AUCTIONID=" & AUCTIONID & " ORDER BY MAXPRICE DESC"
	set rsBids=my_Conn.Execute(strSql)
	if rsBids.EOF then
		Response.Write	"<p><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_01211 & "</b></font></p>" & vbNewLine & _
				"<meta http-equiv=""Refresh"" content=""3; URL=auction_item.asp?intAuctionID=" & AuctionID & """></td></tr></table>" & vbNewLine
		WriteFooter
		Response.End
	elseif mLev < 3 AND Seller <> MEMBERID then
		Response.Write	"<p><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_01208 & "</b></font></p>" & vbNewLine & _
				"<meta http-equiv=""Refresh"" content=""3; URL=auction_item.asp?intAuctionID=" & AuctionID & """></td></tr></table>" & vbNewLine
		WriteFooter
		Response.End
	else
		Response.Write	"<p><br /><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_01213 & "</b></font></p>" & vbNewLine & _
			"<table width=""100%"" cellpadding=""0"" cellspacing=""1"" border=""1"">" & vbNewLine & _
			"	<tr height=""30"" bgcolor=""" & strCategoryCellColor & """>" & vbNewLine & _
			"		<th width=""10%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """> </font></th>" & vbNewLine & _
			"		<th width=""10%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>" & strLang_Auction_01212 & "</font></th>" & vbNewLine & _
			"		<th width=""40%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>" & strLang_Auction_00001 & "</font></th>" & vbNewLine & _
			"		<th width=""20%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>" & strLang_Auction_00002 & "</font></th>" & vbNewLine & _
			"		<th width=""20%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>" & strLang_Auction_00003 & "</font></th>" & vbNewLine & _
			"	</tr>" & vbNewLine & _
			"		<td width=""10%""> </td>" & vbNewLine & _
			"		<td width=""10%"" valign=""middle"" align=""center"">" & vbNewLine
		if strAuctionImage = "" or strAuctionImage = "http://" then
			Response.Write	"			 " & vbNewLine
		else
			Response.Write	"			<a HREF=""auction_item.asp?intAuctionID=" & AuctionID & """><img src=""" & strAuctionImage & """ border=""0"" width=""50""></a>" & vbNewLine
		end if
		strColor="red"
		if intBuyer = MemberID  or intSeller = MemberID then strColor="green"
		Response.Write	"		</td>" & vbNewLine & _
				"		<td width=""40%"" align=""left"" valign=""top"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b><a HREF=""auction_item.asp?intAuctionID=" & AuctionID & """>" & strItemName & "</a></b> - <span class=""spnMessageText"" id=""auctionmsg"">" & left(formatStr(strItemDesc), 200) & "</span id=""auctionmsg"">...</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td width=""20%"" valign=""top"" align=""center"">" & vbNewLine
		if curBid <> MinBid then
			Response.Write	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>" & strLang_Auction_00415 & ": </font>" & vbNewLine
		else
			Response.Write	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00412 & ": </b></font>" & vbNewLine
		end if
		if dtmEnd > endAuction then
			Response.Write	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_01211 & vbNewLine
		else
			Response.Write	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_Currency & formatNumber(CurBid, 2) & "</b></font>" & vbNewLine
		end if
		if dtmEnd < endAuction then 
			strDate=strLang_Auction_00009
		else
			strDate=strtoDate(dtmEnd)
		end if
		Response.Write	"		</td>" & vbNewLine & _
				"		<td width=""20%"" valign=""top"" align=""center"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strDate & "</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
				"</table><p> <br>" & vbNewLine & _
				"<p><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_01200 & "</b></font></p>" & vbNewLine & _
				"<table align=""center"" width=""100%"" cellpadding=""0"" cellspacing=""1"" border=""1"">" & vbNewLine & _
				"	<tr height=""30"" valign=""middle"" bgcolor=""" & strCategoryCellColor & """>" & vbNewLine & _
				"		<th width=""10%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """> </font></th>" & vbNewLine & _
				"		<th width=""10%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>" & strLang_Auction_01210 & "</font></th>" & vbNewLine & _
				"		<th width=""40%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>" & strLang_Auction_01204 & "</font></th>" & vbNewLine & _
				"		<th width=""20%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>" & strLang_Auction_01209 & "</font></th>" & vbNewLine & _
				"		<th width=""20%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>" & strLang_Auction_01207 & "</font></th>" & vbNewLine & _
				"	</tr>" & vbNewLine		
		Buyer=rsBids("BUYER")
		rsBids.MoveFirst
		intColor = -1
		While not rsBids.EOF
			strColor=strForumFirstCellColor
			if intColor=-1 then strColor = strForumCellColor
			intBid=rsBids("MAXPRICE")
			intBidder=rsBids("BUYER")
			strTime=rsBids("BIDTIME")
			strSql="SELECT MEMBER_ID, M_NAME FROM "& strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID=" & intBidder
			set rsLink=my_Conn.Execute(strSql)
			if not rsLink.EOF then
				strLinkName=rsLink("M_NAME")
				strLink="<a href=""pop_profile.asp?mode=display&id=" & intBidder & """>" & strLinkName & "</a> "
				strMail="<a href=""JavaScript:openWindow7('pop_mail.asp?id=" & intBidder & "')"">" & strLang_Auction_01210 & "</a>"
			else
				strLink = strLang_Auction_01214
			end if
			Response.Write	"	<tr valign=""middle"">" & vbNewLine & _
					"		<td align=""center"" bgcolor=""" & strColor & """ width=""10%""> </td>" & vbNewLine & _
					"		<td align=""center"" bgcolor=""" & strColor & """ width=""10%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strMail & "</font></td>" & vbNewLine & _
					"		<td align=""center"" bgcolor=""" & strColor & """ width=""40%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLink & "</font></td>" & vbNewLine & _
					"		<td align=""center"" bgcolor=""" & strColor & """ width=""20%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_Currency & formatNumber(IntBid, 2) & "</font></td>" & vbNewLine & _
					"		<td align=""center"" bgcolor=""" & strColor & """ width=""20%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strToDate(strTime) & "</font></td>" & vbNewLine & _
					"	</tr>"& vbNewLine
			intColor=intColor*-1
			rsBids.MoveNext
		Wend
		rsBids.Close
	end if
	set rsBids=Nothing
	Response.Write	"			</font>" & vbNewLine & _
		"			</table>" & vbNewLine & _
		"		</td>" & vbNewLine & _
		"	</tr>" & vbNewLine & _
		"</table>" & vbNewLine & _
end if
WriteFooter()
%>


Append this to the bottom of "auction_language.asp", immediately above the 
%>




'##### Auction - auction_bidders.asp #####'
strLang_Auction_01200 = "Auction Bidders"
strLang_Auction_01201 = "Current Bid"
strLang_Auction_01202 = "Bidding Started"
strLang_Auction_01203 = "Bidding Ends"
strLang_Auction_01204 = "Bidder"
strLang_Auction_01205 = "Winning Bidder"
strLang_Auction_01206 = "Auction not found"
strLang_Auction_01207 = "Bid Time"
strLang_Auction_01208 = "Bids can only be viewed by seller."
strLang_Auction_01209 = "Bid Amount"
strLang_Auction_01210 = "E-mail"
strLang_Auction_01211 = "No bids made"
strLang_Auction_01212 = "Image"
strLang_Auction_01213 = "Auction Item"
strLang_Auction_01214 = "Bidder Deleted"


In "auction_item.asp"


Look for the following lines (appx 148-152):

	end if
end if

Response.Write	"<center>" & vbNewLine & _
		"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""600"">" & vbNewLine & _

After them, insert these:

		"	<tr>" & vbNewLine & _
		"		<td width=""30%"">" & vbNewLine & _
		"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """> </font>" & vbNewLine & _
		"		</td>" & vbNewLine & _
		"		<td width=""70%"">" & vbNewLine & _
		"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><a href=""auction_bidders.asp?intAuctionID=" & intAuctionID & """>" & strLang_Auction_01200 & "</a></font>" & vbNewLine & _
		"		</td>" & vbNewLine & _
		"	</tr>" & vbNewLine
Edited by - Carefree on 29 July 2010 02:16:57
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts
Posted - 28 July 2010 :  04:54:45  Show Profile  Reply with Quote
OK, it has been updated to include the MOD from Carefree (after fixing the format issue, thaks for that Carefree) so you can see who has bid on the item.
Cheers,

David Greening
Go to Top of Page
Page: of 11 Previous Topic Topic Next Topic  
Previous Page | Next 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.16 seconds. Powered By: Snitz Forums 2000 Version 3.4.07