Snitz Forums 2000 - Auction 2.0

Author

Topic

Page: of 11

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 04 August 2010 : 02:47:12

OK - replaced the file with the version I'm using, with a few changes to the language calls.


<%
'#################################################################################
'## 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)
'##
'## File: auction_item.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" -->
<%
strHiBid="green"
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_00400 & "</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%"" cellpadding=""0"" cellspacing=""0"" border=""0"">" & vbNewLine & _
		"	<tr>" & vbNewLine & _
		"		<td align=""center"" colspan=""2"" bgcolor=""" & strHeadCellColor & """>" & vbNewLine & _
		"			<b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>" & strForumTitle & " - " & strLang_Auction_00400 & "</font></b>" & vbNewLine & _
		"		</td>" & vbNewLine & _
		"	</tr>" & vbNewLine & _
		"	<tr>" & vbNewLine & _
		"		<td width=""100%"" valign=""top"" align=""center""><p> </p>" & vbNewLine
	'get form information
	endAuction = DateToStr(strForumTimeAdjust)
	intAuctionID = cInt(Request.QueryString("IntAuctionID"))
	strSql = "SELECT * FROM " & strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID="& intAuctionID
	set rsItem = my_Conn.Execute(strSql)
	if rsItem.EOF then
		Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_00401 & " <b><font color=""#AA0000"">"& intAuctionID &"</font></b> " & strLang_Auction_00402 & "</font><br /><br />"
	else
		strName = rsItem("itemName")
		strDesc = rsItem("itemDesc")
		strImage = rsItem("imgURL")
		curMin = rsItem("openingBid")
		curCurrent = rsItem("currentBid")
		dtmStart = rsItem("startDate")
		dtmEnd = rsItem("endDate")
		intSeller = rsItem("seller")
		curNext = curCurrent + 1.00
		strtext = "SELECT M_EMAIL, M_NAME FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID=" & intSeller
		set rsEmail = My_Conn.Execute(strtext)
		strEmail = cStr(rsEmail("M_EMAIL"))
		strSellerName = cStr(rsEmail("M_NAME"))
		rsItem.Close
		set rsItem = Nothing
			rsEmail.Close
			set rsEmail = Nothing
		strSql = "SELECT * FROM " & strTablePrefix & "AUCTIONBIDS WHERE AuctionID=" & intAuctionID & " ORDER BY MAXPRICE DESC"
		set rsBuyer = my_Conn.Execute(strSql)
		if not rsBuyer.EOF then
			intBuyer = rsBuyer("Buyer")
			rsBuyer.Close
		end if
		set rsBuyer = Nothing
		if intBuyer > 0 then
			strSql = "SELECT M_EMAIL, MEMBER_ID, M_NAME FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID=" & intBuyer
			set rsBuyer = my_Conn.Execute(strSql)
			if not rsBuyer.EOF then
				strBuyerMail = rsBuyer("M_EMAIL")
				strBuyerName = rsBuyer("M_NAME")
				strBuyer = rsBuyer("MEMBER_ID")
				rsBuyer.Close
			end if
			set rsBuyer = Nothing
		end if
		Response.Write	"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeadFontSize & """ color=""" & strDefaultFontColor & """><b>" & strName & "</b></font>" & vbNewLine & _
			"<table width=""100%"" cellpadding=""4"" cellspacing=""0"" border=""0"">" & vbNewLine
		if strImage <> "" and strImage <> "http://" then
			Response.Write	"	<tr>" & vbNewLine & _
				"		<td width=""30%"" valign=""top"" align=""center"">" & vbNewLine & _
				"			<img src=""" & strImage & """ align=""center"" width=""500"" alt=""" & strLang_Auction_00403 & ": " & strName & """>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine
		end if
		Response.Write	"	<tr valign=""middle"">" & vbNewLine & _
			"		<td width=""70%"">" & vbNewLine & _
			"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & formatStr(strDesc) & "</font>" & vbNewLine & _
			"		</td>" & vbNewLine & _
			"	<tr>" & vbNewLine & _
			"</table>" & vbNewLine & _
			"<hr color=""#cccccc"" size=""1"" noshade>" & vbNewLine & _
			"<center><table width=""70%"" cellpadding=""4"" cellspacing=""0"" border=""0"">" & vbNewLine & _
			"	<tr valign=""middle"">" & vbNewLine & _
			"		<td width=""30%"">" & vbNewLine
		If dtmEnd <= endAuction then
			Response.Write	"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>" & strLang_Auction_00404 & "</font><br /><br />" 
		else
			Response.Write	"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
				"	<tr>" & vbNewLine & _
				"		<td width=""30%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_00405 & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td width=""70%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_00406 & " #" & intAuctionID & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
				"	<tr>" & vbNewLine & _
				"		<td width=""30%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_00409 & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td width=""70%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><a href=""auction_feedback.asp?FBID=" & intSeller & """>" & strSellerName & "</a>" & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
				"	<tr>" & vbNewLine & _
				"		<td width=""30%""> " & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td width=""70%"">" & vbNewLine & _
				"				<form action=""auction_bidItem.asp"" method=""post"" id=""form1"" name=""form1"">" & vbNewLine & _
				"					<input type=""hidden"" name=""intAuctionID"" value=""" & intAuctionID & """>" & vbNewLine & _
				"					<input type=""hidden"" name=""curCurrent"" value=""" & curCurrent & """>" & vbNewLine & _
				"					<input type=""hidden"" name=""strSeller"" value=""" & strSeller & """>" & vbNewLine & _
				"					<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00407 & ":</b> " & strLang_Auction_Currency & "<input type=""text"" name=""newBid"" size=""10"" value=""" & formatNumber(curNext, 2) & """></font><br />" & vbNewLine & _
				"					<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00408 & ":</b> " & strLang_Auction_Currency & "1.00</font>" & vbNewLine
			if intSeller <> MemberID then
				Response.Write	"					<p><input type=""submit"" value=""" & strLang_Auction_00420 & """ id=""submit1"" name=""submit1""></p>" & vbNewLine
			end if
			Response.Write	"				</form>" & vbNewLine
		end if
		If dtmEnd < endAuction then
			Response.Write	"<center>" & vbNewLine & _
				"<table border=""0"" cellpadding=""5"" cellspacing=""0"" width=""600"">" & vbNewLine & _
				"	<tr>" & vbNewLine & _
				"		<td width=""30%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00409 & ":</b></font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td width=""70%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><a href=""auction_feedback.asp?FBID=" & intSeller & """>" & strSellerName & "</a></font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine
			if intSeller <> MemberID then
				Response.Write	"	<tr>" & vbNewLine & _
					"		<td width=""30%"">" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00410 & ":</b></font>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"		<td width=""70%"">" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><a href=""JavaScript:openWindow7('pop_mail.asp?id=" & intSeller & "')"">" & strSellerName & "</a></font>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"	</tr>" & vbNewLine
			end if
			Response.Write	"	<tr>" & vbNewLine & _
				"		<td width=""30%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00411 & ":</b></font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td width=""70%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_Currency & "" & formatNumber(curCurrent, 2) & "</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine
		end if
		Response.Write	"	<tr>" & vbNewLine & _
			"		<td width=""30%"">" & vbNewLine
		strColor=strDefaultFontColor
		if intBuyer = MemberID then strColor=strHiBid
			Response.Write	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strColor & """><b>"
		if intBuyer > 0 and dtmEnd < endAuction then
 			Response.Write	strLang_Auction_00415
		else
			Response.Write	strLang_Auction_00412
		end if
		Response.Write	"		: </b></font></td>" & vbNewLine & _
			"			<td width=""70%"">" & vbNewLine
		if dtmEnd < endAuction AND (intBuyer=0 or not isNumeric(intBuyer)) then
			Response.Write	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_00424 & "</font>" & vbNewLine
		else
			Response.Write	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strColor & """><b>" & strLang_Auction_Currency & formatNumber(curCurrent, 2) & "</b></font>" & vbNewLine
		end if
		Response.Write	"		</td>" & vbNewLine & _
			"	</tr>" & vbNewLine
		if (intSeller = MemberID) and (dtmEnd <= endAuction) and (intBuyer > 0) then
			Response.Write	"	<tr>" & vbNewLine & _
				"		<td width=""30%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><b>" & strLang_Auction_00417 & ":</b></font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td width=""70%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><a href=""auction_feedback.asp?FBID=" & intBuyer & """>" & strBuyerName & "</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine
			if intBuyer > 0 then
				Response.Write	"	<tr>" & vbNewLine & _
					"		<td width=""30%"">" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><b>" & strLang_Auction_00418 & ":</b></font>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"		<td width=""70%"">" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><a href=""JavaScript:openWindow7('pop_mail.asp?id=" & intBuyer & "')"">" & strBuyerName & "</a></font>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"	</tr>" & vbNewLine
			end if
		end if
		if (intSeller = MemberID) or mLev > 2 then
			Response.Write	"	<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
		end if
		Response.Write	"	<tr>" & vbNewLine & _
			"		<td width=""30%"">" & vbNewLine & _
			"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_00413 & ":</font>" & vbNewLine & _
			"		</td>" & vbNewLine & _
			"		<td width=""70%"">" & vbNewLine & _
			"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & StrToDate(dtmStart) & "</font>" & vbNewLine & _
			"		</td>" & vbNewLine & _
			"	</tr>" & vbNewLine
		if dtmEnd <= endAuction then
			strBid = strLang_Auction_00422
		else
			strBid = strLang_Auction_00414
		end if
		Response.Write	"	<tr>" & vbNewLine & _
			"		<td width=""30%"">" & vbNewLine & _
			"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strBid & ":</font>" & vbNewLine & _
			"		</td>" & vbNewLine & _
			"		<td width=""70%"">" & vbNewLine & _
			"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & StrToDate(dtmEnd) & "</font>" & vbNewLine & _
			"		</td>" & vbNewLine & _
			"	</tr>" & vbNewLine
		myTimeNow = now()
		myTimeEnd = StrtoDate(dtmEnd)
		If dtmEnd >= endAuction then
			Response.Write	"	<tr valign=""middle"">" & vbNewLine & _
				"		<td width=""30%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_00421 & ":</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td width=""70%"">" & vbNewLine
			intMinute = DateDiff("n",MyTimeNow,MyTimeEnd)
			intHour = int(intMinute/60)
			intDay = int(intMinute/1440)
			if intDay > 0 then
				intHour = intHour-(24*intDay)
				intMinute = intMinute-(60*intHour)-(1440*intDay)
			else
				if intHour > 0 then
					intHour = int(intMinute/60)
					intMinute = intMinute-(60*intHour)
				end if
			end if
			strMinute = strLang_Auction_00429
			if intMinute > 1 or intMinute = 0 then strMinute = strLang_Auction_00430
			if DateDiff("n",MyTimeNow,MyTimeEnd)/60=>1 then
				if DateDiff("h",MyTimeNow,MyTimeEnd)>23 then
					strDay = strLang_Auction_00425
					if DateDiff("h",MyTimeNow,MyTimeEnd) > 47 then strDay=strLang_Auction_00426
					Response.Write	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & intDay & strDay & vbNewLine
					strHour = strLang_Auction_00427
					if DateDiff("h",MyTimeNow,MyTimeEnd)-(DateDiff("d",MyTimeNow,MyTimeEnd)*24) > 1 then strHour = strLang_Auction_00428
					Response.Write	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & intHour & strHour & vbNewLine & _
						intMinute & strMinute & "</font>" & vbNewLine
				else
					strHour = strLang_Auction_00427
					if DateDiff("h",MyTimeNow,MyTimeEnd) > 1 then strHour=strLang_Auction_00428
					Response.Write	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & intHour & strHour & vbNewLine & _
						intMinute & strMinute & "</font>" & vbNewLine
				end if
			else
				Response.Write	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>"& intMinute & strMinute & " </font>" & vbNewLine
			end if
			Response.Write	"							</td>" & vbNewLine & _
				"						</tr>" & vbNewLine
		end if
		Response.Write	"					</table>" & vbNewLine & _
			"				</center>" & vbNewLine & _
			"			</font>" & vbNewLine & _
			"		</td>" & vbNewLine & _
			"	</tr>" & vbNewLine & _
			"</table></center>" & vbNewLine
 	end if
	Response.Write	"		</td>" & vbNewLine & _
		"	</tr>" & vbNewLine & _
		"</table>" & vbNewLine
end if
%><!--#include file="auction_stats.asp" --><%
WriteFooter()
%>

Replace the 400 section of the language file with this:


'###### Auction - auction_Item.asp ######'
strLang_Auction_00400 = "View Auction Item"
strLang_Auction_00401 = "Auction Item"
strLang_Auction_00402 = "does not exist."
strLang_Auction_00403 = "Auction Item"
strLang_Auction_00404 = "The Auction for this item has ended."
strLang_Auction_00405 = "Bid on This Item"
strLang_Auction_00406 = "Item"
strLang_Auction_00407 = "Your bid"
strLang_Auction_00408 = "Bid Increment"
strLang_Auction_00409 = "Seller Feedback"
strLang_Auction_00410 = "Email Seller"
strLang_Auction_00411 = "Starting bid"
strLang_Auction_00412 = "Current bid"
strLang_Auction_00413 = "Bidding started"
strLang_Auction_00414 = "Bidding ends"
strLang_Auction_00415 = "Winning bid"
strLang_Auction_00416 = "Tools"
strLang_Auction_00417 = "Bidding on your own items is <b>NOT</b> allowed"
strLang_Auction_00418 = "Profile for"
strLang_Auction_00419 = "Bidder List"
strLang_Auction_00420 = "Enter Bid"
strLang_Auction_00421 = "Time Remaining"
strLang_Auction_00422 = "Bidding ended"
strLang_Auction_00423 = "Leave Feedback"
strLang_Auction_00424 = "No bids made"
strLang_Auction_00425 = " day, "
strLang_Auction_00426 = " days, "
strLang_Auction_00427 = " hour, "
strLang_Auction_00428 = " hours, "
strLang_Auction_00429 = " minute"
strLang_Auction_00430 = " minutes"
strLang_Auction_00431 = "Image"

Sean Sounds
Starting Member

20 Posts

Posted - 06 August 2010 : 13:44:01

Here are 3 things I think would be a nice addition for using this mod efficiently.

1.)
On the My Auction page under the Items I'm Bidding On section, I would like to identify the status of each item I'm bidding on right from the list in this manner:

green = Items where I'm the high bidder.
red = Items I've bid on but are no longer the high bidder

Since this is the page which holds a consolidated view of all items you've bid on(from all categories), this would be the most useful place to have these indicators for something as time critical as an auction.

Reason:

If I have 30 items I'm bidding on, I don't want to be forced to open each item to see if I'm the high bidder or not. Time may be of the essence for soon to end auctions.

2.)
In the Items I'm Selling section, the amount should turn green for the Seller to let the Seller know a user has bid on his/her item (remain the default forum color if there are no bids). Currently, the simple amount change from the opening amount would tell the Seller that the item has a bid on it, but it would be nice to see the green amount when selling a lot of items.

3.)
The color feature I've mentioned in number 1.) would also be relevant on the auction_category.asp page with one added color for clarity.

green = Items where I'm the high bidder.
red = Items I've bid on but are no longer the high bidder
default forum color = Items that have no bids at all.

Could these features be added?

bobby131313
Senior Member

USA
1163 Posts

Posted - 06 August 2010 : 15:49:19

Sorry guys, got sidetracked for a fews. Carefree your file works great but it seems to have an issue with my auction_bidItem.asp. No matter what amount you place as a bid, it says "Your bid must be greater than (insert current bid amount here)"

I'm going to compare the files and see if I can get it working.

Switch the order of your title tags

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 06 August 2010 : 22:58:30

Change line 95 to say:


	newBid = cDbl(Request.form("curBid"))

I used a different variable to reflect a new bid.

bobby131313
Senior Member

USA
1163 Posts

Posted - 07 August 2010 : 11:15:33

There are several other places that would need to be changed also.

I did something else instead, let me know if I shouldn't have please. I changed the form field name on your item page from newBid to curBid. It seems to be working fine....

Switch the order of your title tags

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 07 August 2010 : 12:41:25

That'll have the exact same effect, yes.

bobby131313
Senior Member

USA
1163 Posts

Posted - 08 August 2010 : 11:38:31

Shoot... just found another bug.

The delete function doesn't work. You click the trash can, click yes to confirm, the message tells you the auction has been deleted.... but it's still there.

Switch the order of your title tags

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 09 August 2010 : 04:42:11

In "auction_edititem.asp"


Look for the following lines:

%>
<!--#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" -->
<%


Below them, replace the line referring to AuctionID with these:

AuctionID=chkString(Request.QueryString("auctionid"),"SQLString")
Seller=chkString(Request.QueryString("seller"),"SQLString")


Further down in the program, look for the following lines:

	if isNumeric(Request.QueryString("AuctionID")) then
		AuctionID = cInt(Request.QueryString("AuctionID"))
	else
		Response.Redirect "auction.asp"
	end if
	if isNumeric(Request.QueryString("Seller")) then
		Seller = cInt(Request.QueryString("Seller"))
	else
		Response.Redirect "auction.asp"
	end if


Replace them with these:

	if isNumeric(AuctionID) then
		AuctionID = cInt(AuctionID)
	else
		Response.Redirect "auction.asp"
	end if
	if isNumeric(Seller) then
		Seller = cInt(Seller)
	else
		Response.Redirect "auction.asp"
	end if

bobby131313
Senior Member

USA
1163 Posts

Posted - 09 August 2010 : 11:13:46

Well, that didn't break it but it didn't fix it either. Still exactly the same behavior. Here's my original file just in case you want to look at it. Querystring being generated from clicking the trash can is formatted like this ?mode=delete&auctionid=25&seller=5480

Switch the order of your title tags

Edited by - bobby131313 on 09 August 2010 11:34:31

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 09 August 2010 : 12:48:00

The first problem arises because the QueryString variable (auctionid) is in small letters, but the original "auction_edititem.asp" file is trying to read it using mixed cap & small letters "AuctionID" and that won't work.

Secondly, the original "auction_edititem.asp" file checks the value of the variable "Seller" without ever defining it.

Finally, there are two checks for "Mode" which also need to be in small letters.

Try this:


<%
'#################################################################################
'## 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)
'##
'## File: auction_editItem.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" -->
<%
AuctionID=chkString(Request.QueryString("auctionid"),"SQLString")
Seller=chkString(Request.QueryString("seller"),"SQLString")
Response.Write	"<table border=""0"" width=""100%"" cellpadding=""4"" cellspacing=""1"">" & vbNewLine & _
	"	<tr>" & vbNewLine & _
	"		<td 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_00700 & "</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
	strErr=""
	if isNumeric(AuctionID) then
		AuctionID = cInt(AuctionID)
	else
		Response.Redirect "auction.asp"
	end if
	if isNumeric(Seller) then
		Seller = cInt(Seller)
	else
		Response.Redirect "auction.asp"
	end if
	if Request.QueryString("mode")="edit" then
		Response.Write	"<table width=""100%"" cellpadding=""0"" cellspacing=""0"" border=""0"">" & vbNewLine & _
			"	<tr>" & vbNewLine & _
			"		<td align=""center"" colspan=""2"" bgcolor=""" & strHeadCellColor & """>" & vbNewLine & _
			"			<b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>" & strForumTitle & " - " & strLang_Auction_00700 & "</font></b>" & vbNewLine & _
			"		</td>" & vbNewLine & _
			"	</tr>" & vbNewLine
		if mLev < 3 then
			strSql="SELECT * FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID & " AND (SELLER=" & SELLER & ")"
		else
			strSql="SELECT * FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID
		end if
		Set rsEdit=my_Conn.Execute(strSql)
		if not rsEdit.EOF then
			strName = rsEdit("ItemName")
			curMin = rsEdit("CurrentBid")
			curOpening = rsEdit("OPENINGBID")
			strStartDate = rsEdit("StartDate")
			strLength = chkDate(rsEdit("EndDate"), " " ,true)
			strDesc = rsEdit("ItemDesc")
			strImage = rsEdit("ImgURL")
			rsEdit.Close
			Response.Write	"	<tr>" & vbNewLine & _
				"		<td>" & vbNewLine & _
				"			 <p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_00701 & "</font></p>" & vbNewLine & _
				"			<p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strName & "</b><br />" & vbNewLine & _
				"			" & strLang_Auction_00202 & ": <b>" & strLang_Auction_Currency & "" & formatNumber(curMin) & "</b><br />" & vbNewLine & _
				"			" & strLang_Auction_00702 & ": <b>" & strLength & "</b></font><p>" & vbNewLine & _
				"			<hr color=""#cccccc"" size=""1"" noshade>" & vbNewLine & _
				"			<p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & formatStr(Trim(CleanCode(strDesc))) & "<br /><br />" & vbNewLine
			if Request.form("strImage") = "" or Request.form("strImage") = "http://" then
				Response.Write	"			 </p>" & vbNewLine
			else
				Response.Write	"			<center><img src=""" & strImage & """ width=""400""></center></p>" & vbNewLine
			end if
			Response.Write	"			<hr color=""#cccccc"" size=""1"" noshade>" & vbNewLine & _
				"			<form ACTION=""auction_save.asp?AuctionID=" & AuctionID & """&mode=edit&"" METHOD=""post"" id=""form1"" name=""form1"">" & vbNewLine & _
				"				<input TYPE=""hidden"" NAME=""strName"" VALUE=""" & strName & """>" & vbNewLine & _
				"				<input TYPE=""hidden"" NAME=""curMin"" VALUE=""" & curMin & """>" & vbNewLine & _
				"				<input TYPE=""hidden"" NAME=""curOpening"" VALUE=""" & curOpening & """>" & vbNewLine & _
				"				<input TYPE=""hidden"" NAME=""strLength"" VALUE=""" & strLength & """>" & vbNewLine & _
				"				<input TYPE=""hidden"" NAME=""strStartDate"" VALUE=""" & strStartDate & """>" & vbNewLine & _
				"				<input TYPE=""hidden"" NAME=""strDesc"" VALUE=""" & strDesc & """>" & vbNewLine & _
				"				<input TYPE=""hidden"" NAME=""strImage"" VALUE=""" & strImage & """>" & vbNewLine & _
				"				<center>" & vbNewLine
			if curMin = curOpening then
				Response.Write	"				<input TYPE=""submit"" NAME=""button"" VALUE=""" & strLang_Auction_00206 & """ id=""submit2"" name=""submit2""></center>" & vbNewLine
			end if
			Response.Write	"			</form>" & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
				"</table>" & vbNewLine			
		else
			Set rsEdit=Nothing
			Response.Redirect "auction.asp"
			Response.End
		end if
		Set rsEdit = Nothing
	elseif Request.QueryString("mode")="delete" then
		intDel = 0
		if mLev < 3 then
			strSql = "SELECT * FROM " & strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID & " AND (SELLER=" & SELLER & ")"
			set rsDet=my_Conn.Execute(strSql)
			if not rsDet.EOF then
				intDel = 1
				rsDet.Close
			end if
			set rsDet = Nothing
			strSql="DELETE FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID & " AND (SELLER=" & SELLER & ")"
		else
			intDel = 1
			strSql="DELETE FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID
		end if
		set rsEdit=my_Conn.Execute(strSql)
		set rsEdit=Nothing
		if intDel = 1 then 
			strSql="DELETE FROM "& strTablePrefix & "AUCTIONBIDS WHERE AUCTIONID=" & AuctionID
			set rsEdit=my_Conn.Execute(strSql)
			set rsEdit=Nothing
		end if
		Response.Write	"	<tr><td align=""center"" width=""100%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><br><br>" & strLang_Auction_00703 & "<br><br></font></td></tr><table><p>" & vbNewLine & _
			"<meta http-equiv=""Refresh"" content=""3; URL=auction.asp"">" & vbNewLine
	end if			
end if
WriteFooter()
%>

bobby131313
Senior Member

USA
1163 Posts

Posted - 09 August 2010 : 14:07:37

Looks like that got it. The confirmation page is gone but that's ok.

Thanks!

Switch the order of your title tags

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 09 August 2010 : 14:18:49

You're welcome.

bobby131313
Senior Member

USA
1163 Posts

Posted - 10 August 2010 : 11:58:18

Another bug.

Quotation marks are an issue in the title and the description.

They show up in the preview fine, but when you save the listing, they only post to the DB up to, but not including, the first quotation mark in the field. No error messages though.

auction_sellItemProcess.txt

Switch the order of your title tags

Edited by - bobby131313 on 10 August 2010 12:17:53

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 10 August 2010 : 12:51:25

In "auction_save.asp",


Look for the following lines (appx 77-81 ):

	if mLev = "0" then
		Response.Write	"<div align=""center"">" & vbNewLine & _
			"	<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """> <p>" & strLang_Auction_00301 & "</p></b></font>" & vbNewLine & _
			"</div>" & vbNewLine
	else 

Now change the portion after them to say:

		strCategory = chkString(cStr(Request.Form("strCategory")), "SQLString")
		strName = chkString(cStr(Request.Form("strName")), "SQLString")
		curMin = cStr(Request.Form("curMin"))
		strStartDate = cStr(Request.Form("strStartDate"))
		strLength = cStr(Request.Form("strLength"))
		strDesc = chkString(cStr(Request.Form("strDesc")), "SQLString")
		strImage = chkString(cStr(Request.Form("strImage")), "SQLString")
		if strImage = "" then
			strImage = "http://"
		end if

bobby131313
Senior Member

USA
1163 Posts

Posted - 10 August 2010 : 13:03:23

Unfortunately that didn't do it. Same thing happening.

auction_save.txt

Switch the order of your title tags

Page: of 11

Topic