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

bobby131313
Senior Member

USA
1163 Posts
Posted - 31 July 2010 :  10:35:09  Show Profile  Visit bobby131313's Homepage  Reply with Quote
Unfortunately I just found a real problem.

You can bid after an item has ended if you already have the page with the bidding form loaded in your browser.

So I'm guessing it's checking to see if the auction is ended when the form is loaded instead of when the bid is actually placed?
Switch the order of your title tags
Edited by - bobby131313 on 31 July 2010 10:44:25
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 31 July 2010 :  12:01:57  Show Profile  Reply with Quote
Easy fix, Bobby.

In "auction_biditem.asp":


Look for these lines (appx 60-68):
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


Below them, insert these:

	intAuctionID = cstr(Request.Form("intAuctionID"))
	strSQL = "SELECT ENDDATE FROM " & strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & intAuctionID
	Set rsItem = my_Conn.Execute(strSQL)
	if not rsItem.EOF then
		dtmEnd = rsItem("endDate")
		endAuction = DateToStr(strForumTimeAdjust)
		rsItem.Close
	end if
	set rsItem=Nothing
	if dtmEnd <= endAuction then
		Response.Write	strLang_Auction_00009 & _
			"<meta http-equiv=""Refresh"" content=""3; URL=auction_item.asp?intAuctionID=" & intAuctionID & """></td></tr></table>" & vbNewLine
		WriteFooter
		Response.End
	end if
Edited by - Carefree on 31 July 2010 12:22:19
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 31 July 2010 :  12:10:24  Show Profile  Visit bobby131313's Homepage  Reply with Quote
Cool, thanks! I thought that one might require some reworking.

I've got a listing ending in a few hours, I'll test it out.
Switch the order of your title tags
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 31 July 2010 :  12:12:56  Show Profile  Visit bobby131313's Homepage  Reply with Quote
Problem with bidding now...

Microsoft SQL Server Native Client 10.0 error '80040e14'
Incorrect syntax near '='.
/forum/auction_bidItem.asp, line 74

Line 74 is..

Set rsItem = my_conn.execute(strSQL)

in the code you had me add.
Switch the order of your title tags
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 31 July 2010 :  12:19:20  Show Profile  Reply with Quote
Post a link to your auction_item.asp in .txt format so I can check whether he used QueryString or a hidden value for the Auction Item number.
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 31 July 2010 :  12:21:36  Show Profile  Visit bobby131313's Homepage  Reply with Quote
http://www.coincommunity.com/forum/auction_item.txt
Switch the order of your title tags
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 31 July 2010 :  12:22:47  Show Profile  Reply with Quote
OK - using form. Changes made above.
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 31 July 2010 :  12:28:24  Show Profile  Visit bobby131313's Homepage  Reply with Quote
Awesome, working good.

Will post back when the next item ends.
Switch the order of your title tags
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 31 July 2010 :  12:53:15  Show Profile  Visit bobby131313's Homepage  Reply with Quote
I moved up the end time in the DB, works perfectly. Auction ended message, then redirects back to the listing. Thank you!

Now maybe I'm pushing my luck or missing something...

I don't see any easy way to see what you've won as a bidder?

How difficult would an "Item's I've won" section be in auction_my_bid.asp?
Switch the order of your title tags
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 31 July 2010 :  14:49:07  Show Profile  Reply with Quote
Not hard to do. I'll write it this afternoon if David doesn't beat me to it.
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 31 July 2010 :  15:01:32  Show Profile  Visit bobby131313's Homepage  Reply with Quote
Thank you!

I'm not missing it am I? It looks to me that if you don't remember what you bid, you won't know right?

Looks like in the lists, the items you've bid on, the bids are red (I've changed it to green though) but it doesn't mean that you're winning, just that you placed a bid.
Switch the order of your title tags
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 31 July 2010 :  15:04:42  Show Profile  Visit bobby131313's Homepage  Reply with Quote
Maybe it should be an "Items that I'm winning or have won section".... what do you guys think?
Switch the order of your title tags
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 31 July 2010 :  17:40:49  Show Profile  Reply with Quote
Here you go, back-up your current file:

"auction_mybid.asp"


<%
'###############################################################################
'##
'##         							Snitz Forums 2000 v3.4.07
'##
'###############################################################################
'##
'## Copyright © 2000-09 Michael Anderson, Pierre Gorissen,
'##         							Huw Reddick and Richard Kinser
'##
'## This program is free. You can redistribute and/or modify it under the
'## terms of the GNU General Public License as published by the Free Software
'## Foundation; either version 2 or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000 must remain intact in
'## the scripts and in the HTML output.  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 an 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:
'##
'##		        Free Software Foundation, Inc.
'##		        59 Temple Place, Suite 330
'##		        Boston, MA 02111-1307
'##
'## 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_my_bid.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_00600 & "</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 bgcolor=""" & strPageBGColor & """ width=""100%"" align=""center"" cellpadding=""0"" cellspacing=""0"" border=""1"" style=""border-collapse:collapse;"">" & vbNewLine & _
		"	<tr valign=""middle"" height=""40"">" & vbNewLine & _
		"		<td align=""center"" colspan=""2"" bgcolor=""" & strHeadCellColor & """>" & vbNewLine & _
		"			<font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strHeadFontColor & """><b>" & strForumTitle & " - " & strLang_Auction_00600 & "</b></font>" & vbNewLine & _
		"		</td>" & vbNewLine & _
		"	</tr>" & vbNewLine & _
		"	<tr>" & vbNewLine & _
		"		<td width=""100%"" valign=""top"" align=""center"">" & vbNewLine
	Set rsItem = Server.CreateObject("ADODB.RecordSet")
	rsItem.Open "SELECT * FROM " & strTablePrefix & "AUCTIONITEMS ORDER BY ENDDATE", _
	My_Conn, adOpenStatic, adCmdText
	rsItem.filter = "seller = " & MemberID
	Response.Write	"			<table bgcolor=""" & strPageBGColor & """ align=""center"" width=""100%"" cellpadding=""0"" cellspacing=""1"" border=""1"" style=""border-collapse:collapse;"">" & vbNewLine & _
		"			<br><center><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00601 & "</b></font></center><br>" & vbNewLine & _
		"				<tr valign=""middle"" height=""30"" bgcolor=""" & strCategoryCellColor & """>" & vbNewLine & _
		"					<th width=""10%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>" & strLang_Auction_00416 & "</font></th>" & vbNewLine & _
		"					<th width=""10%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>" & strLang_Auction_00432 & "</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
	endAuction = DateToStr(strForumTimeAdjust)
	While NOT rsItem.EOF
		AuctionID = rsItem("AuctionID")
		strAuctionImage = rsItem("ImgURL")
		intSeller = rsItem("Seller")
		strItemName = rsItem("itemName")
		strItemDesc = rsItem("ITEMDESC")
		Minbid = rsItem("openingbid")
		Curbid = rsItem("currentbid")
		dtmEnd = rsItem("endDate")
		Response.Write	"				<tr valign=""top"" height=""54"">" & vbNewLine & _
			"					<td width=""10%"" align=""center"">" & vbNewLine
		strSql="SELECT * FROM " & strTablePrefix & "AUCTIONBIDS WHERE AUCTIONID=" & AuctionID & " 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 (MinBid=CurBid AND intSeller=MemberID) OR mLev > 2 then
			Response.Write	"						<a href=""auction_edititem.asp?mode=edit&auctionid=" & rsItem("AUCTIONID") & "&seller=" & rsItem("SELLER") & """" & dWStatus(strLang_Auction_00206) & ">" & getCurrentIcon(strIconPencil,strLang_Auction_00206,"hspace=""0""") & "</a>" & vbNewLine & _
				"						<a href=""auction_edititem.asp?mode=delete&auctionid=" & rsItem("AUCTIONID") & "&seller=" & rsItem("SELLER") & """" & dWStatus(strLang_Auction_00210) & ">" & getCurrentIcon(strIconTrashcan,strLang_Auction_00210,"hspace=""0""") & "</a>" & vbNewLine
		end if
		Response.Write	"					</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=" & rsItem("auctionID") & """><img src=""" & rsItem("IMGURL") & """ border=""0"" width=""50""></a>" & vbNewLine
		end if
		if dtmEnd > endAuction then
			strColor=strDefaultFontColor
		else
			strColor=strHiLiteFontColor
		end if
		if intBuyer > 0 and dtmEnd < endAuction then
			strBid=strLang_Auction_00415
		else
			strBid=strLang_Auction_00412
		end if			
		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=" & rsItem("auctionID") & """>" & rsItem("itemName") & "</a></b> - <span class=""spnMessageText"" id=""auctionmsg"">" & left(formatStr(rsItem("ITEMDESC")), 200) & "</span id=""auctionmsg"">...</font>" & vbNewLine & _
			"					</td>" & vbNewLine & _
			"					<td width=""20%"" valign=""top"" align=""center"">"& strBid & ": " & vbNewLine
		if dtmEnd > endAuction or intBuyer <> MemberID then
			if dtmEnd < endAuction AND (intBuyer=0 or not isNumeric(intBuyer)) then
				Response.Write	"						<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strColor & """>" & strLang_Auction_00424 & vbNewLine
			else
				Response.Write	"						<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strColor & """><b>" & strLang_Auction_Currency & "" & formatNumber(CurBid, 2) & "</b></font>" & vbNewLine
			end if
		end if
		if dtmEnd < endAuction then 
			strDate=strLang_Auction_00010
		else
			strDate=chkDate(dtmEnd," ",true)
		end if
		Response.Write	"					</td>" & vbNewLine & _
			"					<td width=""20%"" align=""center"">" & vbNewLine & _
			"							<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strColor & """>" & strDate & "</font>" & vbNewLine & _
			"					</td>" & vbNewLine & _
			"				</tr>" & vbNewLine
		rsItem.moveNext
	Wend
	Response.Write	"			</table>" & vbNewLine & _
		"		</td>" & vbNewLine & _
		"	</tr>" & vbNewLine & _
		"	<tr>" & vbNewLine & _
		"		<td width=""100%"" valign=""top"" align=""center"">" & vbNewLine & _
		"			<table bgcolor=""" & strPageBGColor & """ width=""100%"" cellpadding=""0"" cellspacing=""1"" border=""1"" style=""border-collapse:collapse;"">" & vbNewLine & _
		"				<br><center><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00602 & "</b></font></center><br>" & vbNewLine & _
		"				<tr valign=""middle"" 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_00432 & "</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
	rsItem.Close
	set rsItem = Nothing
	strSql = "SELECT DISTINCT(AUCTIONID) FROM " & strTablePrefix & "AUCTIONBIDS WHERE BUYER=" & MemberID
	set rsBuyer=my_Conn.Execute(strSql)
	if not rsBuyer.EOF then 
		rsBuyer.MoveFirst
		While not rsBuyer.EOF
			intAuctionID=rsBuyer("AUCTIONID")
			strSql="SELECT MAX(MAXPRICE) FROM " & strTablePrefix & "AUCTIONBIDS WHERE AUCTIONID=" & intAuctionID
			set rsPrice=my_Conn.Execute(strSql)
			intMaxPrice=0
			if not rsPrice.EOF then
				intMaxPrice=rsPrice(0)
				rsPrice.Close
			end if
			set rsPrice=Nothing
			strSql="SELECT * FROM " & strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & intAuctionID & " AND ENDDATE > '" & endAuction & "'"
			set rsItem=my_Conn.Execute(strSql)
			if not rsItem.EOF then
				strAuctionImage = rsItem("ImgURL")
				strItemName = rsItem("itemName")
				strItemDesc = rsItem("ITEMDESC")
				strCurrentbid = rsItem("currentbid")
				strEndDate = rsItem("endDate")
				Response.Write	"	<tr height=""54"">" & vbNewLine & _
					"		<td>" & vbNewLine & _
					"			 " & vbNewLine & _
					"		</td>" & vbNewLine & _
					"		<td valign=""middle"" align=""center"">" & vbNewLine
				if strAuctionImage = "" or strAuctionImage = "http://" then
					Response.Write	"			 " & vbNewLine
				else
					Response.Write	"			<a HREF=""auction_item.asp?intAuctionID=" & intAuctionID & """><img src=""" & strAuctionImage & """ border=""0"" width=""50""></a>" & vbNewLine
				end if
				if strCurrentBid=intMaxPrice then
					strColor=strHiliteFontColor
				else
					strColor=strDefaultFontColor
				end if
				strDate = chkDate(strEndDate, " " ,true)
					Response.Write	"					</td>" & vbNewLine & _
						"					<td width=""40%"">" & vbNewLine & _
						"						<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b><a HREF=""auction_item.asp?intAuctionID=" & intAuctionID & """>" & strItemName & "</a></b> - <span class=""spnMessageText"" id=""auctionmsg"">" & left(formatStr(strItemDesc), 200) & "</span id=""auctionmsg"">...</font>" & vbNewLine & _
						"					</td>" & vbNewLine & _
						"					<td width=""20%"" align=""center"">" & vbNewLine & _
						"						<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strColor & """><b>" & strLang_Auction_Currency & "" & formatNumber(strCurrentBid, 2) & "</b></font>" & vbNewLine & _
						"					</td>" & vbNewLine & _
						"					<td width=""20%"" align=""center"">" & vbNewLine & _
						"						<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strColor & """>" & strDate & "</font>" & vbNewLine & _
						"					</td>" & vbNewLine & _
						"				</tr>" & vbNewLine
				rsItem.Close
			end if
			Set rsItem=Nothing
			rsBuyer.MoveNext
		Wend
		rsBuyer.Close
	end if
	Set rsBuyer = Nothing
	Response.Write	"			</table>" & vbNewLine & _
		"<p><br><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00605 & "</b></font></p>" & vbNewLine & _
		"<table bgcolor=""" & strPageBGColor & """ width=""100%"" cellpadding=""0"" cellspacing=""1"" border=""1"" style=""border-collapse:collapse;"">" & 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_00432 & "</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
	strSql = "SELECT DISTINCT(AUCTIONID) FROM " & strTablePrefix & "AUCTIONBIDS WHERE BUYER=" & MemberID
	set rsBuyer=my_Conn.Execute(strSql)
	if not rsBuyer.EOF then
		rsBuyer.MoveFirst
		While not rsBuyer.EOF
			intAuctionID=rsBuyer("AUCTIONID")
			strSql="SELECT MAX(MAXPRICE) FROM " & strTablePrefix & "AUCTIONBIDS WHERE AUCTIONID=" & intAuctionID & " AND BUYER=" & MemberID
			set rsPrice=my_Conn.Execute(strSql)
			if not rsPrice.EOF then
				intMaxPrice=rsPrice(0)
				rsPrice.Close
				strSql="SELECT * FROM " & strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & intAuctionID & " AND ENDDATE < '" & endAuction & "'"
				set rsItem=my_Conn.Execute(strSql)
				if not rsItem.BOF and not rsItem.EOF then
					if intMaxPrice=rsItem("CURRENTBID") then
						strAuctionImage = rsItem("ImgURL")
						strItemName = rsItem("itemName")
						strItemDesc = rsItem("ITEMDESC")
						strCurrentbid = rsItem("currentbid")
						strEndDate = rsItem("endDate")
						Response.Write	"	<tr height=""54"">" & vbNewLine & _
							"		<td>" & vbNewLine & _
							"			 " & vbNewLine & _
							"		</td>" & vbNewLine & _
							"		<td valign=""middle"" align=""center"">" & vbNewLine
						if strAuctionImage = "" or strAuctionImage = "http://" then
							Response.Write	"			 " & vbNewLine
						else
							Response.Write	"			<a HREF=""auction_item.asp?intAuctionID=" & intAuctionID & """><img src=""" & strAuctionImage & """ border=""0"" width=""50""></a>" & vbNewLine
						end if
						strColor = strVisitedLinkColor
						strDate = strLang_Auction_00010
							Response.Write	"					</td>" & vbNewLine & _
								"					<td width=""40%"">" & vbNewLine & _
								"						<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b><a HREF=""auction_item.asp?intAuctionID=" & intAuctionID & """>" & strItemName & "</a></b> - <span class=""spnMessageText"" id=""auctionmsg"">" & left(formatStr(strItemDesc), 200) & "</span id=""auctionmsg"">...</font>" & vbNewLine & _
								"					</td>" & vbNewLine & _
								"					<td width=""20%"" align=""center"">" & vbNewLine & _
								"						<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strColor & """><b>" & strLang_Auction_Currency & "" & formatNumber(strCurrentbid, 2) & "</b></font>" & vbNewLine & _
								"					</td>" & vbNewLine & _
								"					<td width=""20%"" align=""center"">" & vbNewLine & _
								"						<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strColor & """>" & strDate & "</font>" & vbNewLine & _
								"					</td>" & vbNewLine & _
								"				</tr>" & vbNewLine
						rsItem.Close
					end if
				end if
				Set rsItem=Nothing
			end if
			set rsPrice=Nothing
			rsBuyer.MoveNext
		Wend
		rsBuyer.Close
	end if
	Set rsBuyer = Nothing
end if
Response.Write	"				</table>" & vbNewLine & _
	"			</font>" & vbNewLine & _
	"		</td>" & vbNewLine & _
	"	</tr>" & vbNewLine & _
	"</table>" & vbNewLine
WriteFooter()
%>


"auction_language.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)
'##
'## File: auction_language.asp
'##
'## Get the latest version of this MOD at
'## http://www.snitzbitz.com/mods/
'#################################################################################

'###### Auction - auction_category.asp ######'
strLang_Auction_Currency = "$"
strLang_Auction_00000 = "Auction"
strLang_Auction_00001 = "Item"
strLang_Auction_00002 = "Current Bid"
strLang_Auction_00003 = "Auction Ends at"
strLang_Auction_00004 = "There are currently no Auction Items listed in this Category"
strLang_Auction_00005 = "List an Item for Sale"
strLang_Auction_00006 = "You must be logged in to use the Auction Area"
strLang_Auction_00007 = "No Category Selected"
strLang_Auction_00008 = "Auction Category"
strLang_Auction_00009 = "Auction Ended"


'###### Auction - auction_sellItem.asp ######'
strLang_Auction_00100 = "Sell at Auction"
strLang_Auction_00101 = "Item Name"
strLang_Auction_00102 = "Item Description"
strLang_Auction_00103 = "Image Location"
strLang_Auction_00104 = "Opening Bid"
strLang_Auction_00105 = "Auction Length"
strLang_Auction_00106 = "3 days"
strLang_Auction_00107 = "5 days"
strLang_Auction_00108 = "7 days"
strLang_Auction_00109 = "10 days"
strLang_Auction_00110 = "14 days"
strLang_Auction_00111 = "Add To Auction"
strLang_Auction_00112 = "Clear Changes"
strLang_Auction_00113 = "Submit Changes"
strLang_Auction_00114 = "Time limit has expired to edit"
strLang_Auction_00115 = "Select a Category"
strLang_Auction_00116 = "A bid has been made and can not be edited"


'###### Auction - auction_sellItemProcess.asp ######'
strLang_Auction_00200 = "Auction Listing Preview"
strLang_Auction_00201 = "Please check your information for accuracy, then click "Save Item" to add your auction or "Edit Item" to make changes."
strLang_Auction_00202 = "Starting bid"
strLang_Auction_00203 = "Auction length"
strLang_Auction_00204 = "days"
strLang_Auction_00205 = "Save Item"
strLang_Auction_00206 = "Edit Item"
strLang_Auction_00207 = "Category Choosen"
strLang_Auction_00208 = "Item Name"


'###### Auction - auction_save.asp ######'
strLang_Auction_00300 = "Auction Save"
strLang_Auction_00301 = "To list items for sale, you must be a member of the forum."
strLang_Auction_00302 = "Your item has been added"
strLang_Auction_00303 = "New Auction Entry"
strLang_Auction_00304 = "A new Auction Entry for"
strLang_Auction_00305 = "has occured at"
strLang_Auction_00306 = "Go and check out"
strLang_Auction_00307 = "to view the new item listed by Member ID"
strLang_Auction_00308 = "Regards"
strLang_Auction_00309 = "Webmaster"


'###### 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"


'###### Auction - auction_bidItem.asp ######'
strLang_Auction_00500 = "Auction Bid Item"
strLang_Auction_00501 = "Your bid must be greater than"
strLang_Auction_00502 = "You've been outbid!"
strLang_Auction_00503 = "A moment ago, you were the high bidder"
strLang_Auction_00504 = "for the"
strLang_Auction_00505 = "up for auction at"
strLang_Auction_00506 = "Auction Site"
strLang_Auction_00507 = "Now someone has placed"
strLang_Auction_00508 = "a bid of"
strLang_Auction_00509 = "You may increase your bid"
strLang_Auction_00510 = "by going to"
strLang_Auction_00511 = "Many thanks."
strLang_Auction_00512 = "Your bid has been recorded. Thank you! You will be e-mailed if and when you are outbid."
strLang_Auction_00513 = "DISCLAIMER:"
strLang_Auction_00514 = "does not guarantee the validity of any publicly posted auction listed on this free service. Buyers must deal directly with the seller and not with"
strLang_Auction_00515 = "Any purchases resulting from publicly posted auctions listed on this service are made at the risk of the buyer and no claim shall be made against"
strLang_Auction_00516 = "reserves the right to refuse or delete any auction listing at any time"


'###### Auction - auction_my_bid.asp ######'
strLang_Auction_00600 = "My Auction Items"
strLang_Auction_00601 = "Items I am Selling"
strLang_Auction_00602 = "Items I am Bidding on"
strLang_Auction_00603 = "No Items Bidded on"
strLang_Auction_00604 = "Bidding Started"
strLang_Auction_00605 = "Items I Won"


'###### Auction - auction_editItem.asp ######'
strLang_Auction_00700 = "Edit my Auction Items"
strLang_Auction_00701 = "Please confirm that this is the item you wish to edit"
strLang_Auction_00702 = "Auction Currently Ending"
strLang_Auction_00703 = "Auction Item successfully deleted."
strLang_Auction_00704 = "Are you sure you want to delete this Auction Item"


'###### Auction - auction.asp ######'
strLang_Auction_00800 = "Auction Categories"
strLang_Auction_00801 = "No categories found"
strLang_Auction_00802 = "Category successfully deleted."
strLang_Auction_00803 = "Add a New Auction Category"
strLang_Auction_00804 = "Are you sure you want to delete this Auction Category?"
strLang_Auction_00805 = "Yes"
strLang_Auction_00806 = "No"


'###### Auction - auction_sendfeedback.asp ######'
strLang_Auction_00900 = "Send Feedback"
strLang_Auction_00901 = "You must be logged in to give feedback about an auction"
strLang_Auction_00902 = "Invalid Auction ID"
strLang_Auction_00903 = "Must supply an Auction ID"
strLang_Auction_00904 = "Invalid Auction Score"
strLang_Auction_00905 = "<b>Error:</b> Comment may not exceed 50 characters"
strLang_Auction_00906 = "Giving Feedback is only possible for Buyers or sellers after an Auction has ended"
strLang_Auction_00907 = "You must be either Winner or Seller to give feedback for an Auction"
strLang_Auction_00908 = "You have already left feedback for this Auction<br /><br />Feedback can only be given once per Auction and may not be changed afterwards"
strLang_Auction_00909 = "<b>Important:</b> Please enter a valid Score and comment"
strLang_Auction_00910 = "Score"
strLang_Auction_00911 = "(1-10 where 10 is <b>Good</b> and 1 is Poor)"
strLang_Auction_00912 = "Comment"
strLang_Auction_00913 = "(Maximum 50 characters)"
strLang_Auction_00914 = "Submit Feedback"
strLang_Auction_00915 = "Feedback has been posted. Thank you for your Feedback"
strLang_Auction_00916 = "Auction Feedback"
strLang_Auction_00917 = "You must be logged in to view Auction Feedback"
strLang_Auction_00918 = "Feedback Page for"
strLang_Auction_00919 = "<b>Note:</b> 5 is the highest possible score, 1 the lowest"
strLang_Auction_00920 = "The closer a seller's reputation is to 5.0 the better"
strLang_Auction_00921 = "Number of Feedbacks received as a Seller"
strLang_Auction_00922 = "Average Feedback score as a Seller"
strLang_Auction_00923 = "Number of Feedbacks received as a Buyer"
strLang_Auction_00924 = "Average Feedback score as a Buyer"
strLang_Auction_00925 = "Total Average Feedback score (As Buyer and seller)"


'###### Auction - auction_feedback.asp ######'
strLang_Auction_01000 = "s"
strLang_Auction_01001 = "Auction Feedback"
strLang_Auction_01002 = "<b>Error:</b> To view auction feedack you must be logged in"
strLang_Auction_01003 = "<b>Note:</b> A score of <b>10</b> is the highest possible score with <b>1</b> being the lowest score"
strLang_Auction_01004 = "The closer a Seller's reputation is to <b>10.0</b> the better the reputation<br />A score of <b>0</b> means the Seller has not received any Feedback currently"
strLang_Auction_01005 = "Number of Feedbacks received as a Seller"
strLang_Auction_01006 = "Average Feedback score as a Seller"
strLang_Auction_01007 = "Last 5 Comments received as a Seller"
strLang_Auction_01008 = "Number of Feedbacks received as a Buyer"
strLang_Auction_01009 = "Average Feedback score as a Buyer"
strLang_Auction_01010 = "Last 5 Comments received as a Buyer"
strLang_Auction_01011 = "Total Average Feedback score (as Buyer and Seller)"
strLang_Auction_01012 = "Currently no Comments"
strLang_Auction_01013 = "Invalid Member ID for Feedback"


'###### Auction - auction_admin.asp ######'
strLang_Auction_01100 = "Administration"
strLang_Auction_01101 = "You Need to have a category name"
strLang_Auction_01102 = "Existing Categories"
strLang_Auction_01103 = "Category Name"
strLang_Auction_01104 = "Category Description"
strLang_Auction_01105 = "Update Category"
strLang_Auction_01106 = "Add Category"
strLang_Auction_01107 = "Your Category has been successfully added."
strLang_Auction_01108 = "Your Category has been successfully updated."
strLang_Auction_01109 = "Click Here"
strLang_Auction_01110 = "to continue to Category administration functions."


'##### 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"
%>
Edited by - Carefree on 31 July 2010 19:33:57
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 31 July 2010 :  18:11:57  Show Profile  Visit bobby131313's Homepage  Reply with Quote
OK, there's some <hr>'s stacking up. Two instances of </tr><hr> just need the <hr> removed and it looks good, however the new table is pulling everything I bid on that's ended, not just the winners.
Switch the order of your title tags
Edited by - bobby131313 on 31 July 2010 18:21:35
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 31 July 2010 :  18:53:01  Show Profile  Reply with Quote
Just edited the file, try new code.
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.2 seconds. Powered By: Snitz Forums 2000 Version 3.4.07