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

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 28 July 2010 :  05:45:47  Show Profile  Reply with Quote
I just spotted something, sorry. I left an English language response "Bidder Deleted" in "auction_bidders.asp", had to move that to the "auction_language.asp" file instead. Corrected the code above.
Edited by - Carefree on 28 July 2010 05:46:16
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 28 July 2010 :  11:17:11  Show Profile  Visit bobby131313's Homepage  Reply with Quote
Looking pretty good. Thanks guys!

Is the bidder list only supposed to show if the auction is over? That's the only time it shows for me. Auctions still running I get "Auction not found." It's my feeling that the seller and the admins should be able to see that list any time.
Switch the order of your title tags
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 28 July 2010 :  11:30:48  Show Profile  Visit bobby131313's Homepage  Reply with Quote
Hey if I want to have a select group of my members test this, I can just run the dbs file again to wipe everything out before it goes public right?
Switch the order of your title tags
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 28 July 2010 :  11:41:39  Show Profile  Reply with Quote
quote:
Is the bidder list only supposed to show if the auction is over? That's the only time it shows for me.

Sorry, put the link in the wrong place in "auction_item.asp", above post has been edited. Where David put it in the SnitzBitz version will work without change.


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 & _


Insert these lines there:

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


quote:
Auctions still running I get "Auction not found."

That result does not have any bearing on whether an auction is running. It will only appear if (a) an auction with that ID number is not in the database or (b) someone who is not a moderator/admin or is not the seller tries to view it.
Edited by - Carefree on 28 July 2010 13:19:37
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 28 July 2010 :  11:49:19  Show Profile  Reply with Quote
quote:
Originally posted by bobby131313

Hey if I want to have a select group of my members test this, I can just run the dbs file again to wipe everything out before it goes public right?


Yes. Keep in mind, if you created custom categories definitions, etc., those will be lost if you re-run the dbs file. If you haven't, no big deal. If you have (and want to keep them), you'll need to use a modified version like this:


Auction Mod Version 2.6

[DROP]
AUCTIONBIDS
[END]

[DROP]
AUCTIONITEMS
[END]

[DROP]
AUCTIONFEEDBACK
[END]

[CREATE]
AUCTIONBIDS

AUCTIONID#int#IDENTITY (1,1)#
BUYER#int#NULL#
MAXPRICE#varchar(10)#NULL#
BIDTIME#varchar(20)#NULL#
[END]

[CREATE]
AUCTIONITEMS
AUCTIONID
AUCTIONCATID#int#NULL#
SELLER#int#NOT NULL#
ITEMNAME#varchar(150)#NOT NULL#
ITEMDESC#memo#NOT NULL#
IMGURL#varchar(150)#NULL#
OPENINGBID#varchar(10)#NULL#
CURRENTBID#varchar(10)#NULL#
STARTDATE#varchar(20)#NOT NULL#
ENDDATE#varchar(20)#NOT NULL#
[END]

[CREATE]
AUCTIONFEEDBACK

AUCTIONID#int#NOT NULL#
BUYERID#int#NULL#
SELLERID#int#NULL#
BUYERSCORE#int#NULL#
SELLERSCORE#int#NULL#
BUYERCOMMENT#varchar(50)#NULL#
SELLERCOMMENT#varchar(50)#NULL#
DATEBUYER#varchar(20)#NULL#
DATESELLER#varchar(20)#NULL#
[END]
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 28 July 2010 :  11:58:36  Show Profile  Visit bobby131313's Homepage  Reply with Quote
quote:
That result does not have any bearing on whether an auction is running. It will only appear if (a) an auction with that ID number is not in the database or (b) someone who is not a moderator/admin or is not the seller tries to view it.


Hmmm... that doesn't seem to be the case with me. I'm an admin and only seeing bidder lists on ended auctions. Let me make sure I'm not doing something stupid before going nuts though....
Switch the order of your title tags
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 28 July 2010 :  12:13:25  Show Profile  Visit bobby131313's Homepage  Reply with Quote
OK, confirmed. Logged in as a regular user, looking at my own auction, I get "Auction not found" on running auctions.

Same thing logged in as Admin looking at any running auction.

Closed auctions work fine.
Switch the order of your title tags
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 28 July 2010 :  12:29:48  Show Profile  Visit bobby131313's Homepage  Reply with Quote
Now after replacing the files today I can't list an item...

Microsoft VBScript runtime error '800a01a8'
Object required: 'rsAuctItem'
/forum/auction_sellItem.asp, line 193 

end if
rsAuctItem.Close
Set rsAuctItem = Nothing
end if
Switch the order of your title tags
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 28 July 2010 :  12:55:05  Show Profile  Reply with Quote
That must be a result of an EOF condition in the database.

Try this for "auction_sellItem.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_sellItem.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 = Request.QueryString("AuctionID")
dim strErr
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_00100 & "</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_00100 & "</font></b>" & vbNewLine & _
		"		</td>" & vbNewLine & _
		"	</tr>" & vbNewLine & _
		"	<tr>" & vbNewLine & _
		"		<td width=""100%"" valign=""top"" align=""center""><p> </p>" & vbNewLine
	if Request.QueryString("mode") = "edit" then
		strsql = "SELECT * FROM " & strMemberTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID
		set rsAuctItem = my_Conn.Execute(strSql)
		if not rsAuctItem.EOF then
			strName = rsAuctItem("ITEMNAME")
			curOpening = rsAuctItem("OPENINGBID")
			curMin = rsAuctItem("CURRENTBID")
			strStartDate = chkDate(rsAuctItem("STARTDATE"), " " ,true)
			strLength = rsAuctItem("ENDDATE")
			strDesc = rsAuctItem("ITEMDESC")
			strImage = rsAuctItem("IMGURL")
			strEditItem = chkDate(DateToStr(DateAdd("h", dtDateTime, strForumTimeAdjust)), " " ,true)
			if strImage = "" then
				strImage = "http://"
			end if
			rsAuctItem.Close
			if curMin = curOpening then
				if Request.QueryString("mode") = "edit" then
					Response.Write	"<p><form ACTION=""auction_sellItemProcess.asp?mode=edit&AuctionID=" & AuctionID & """ METHOD=""post"" id=""form1"" name=""form1"">" & vbNewLine
				else
					Response.Write	"<p><form ACTION=""auction_sellItemProcess.asp"" METHOD=""post"" id=""form1"" name=""form1"">" & vbNewLine
				end if
				Response.Write	"<table width=""100%"" cellpadding=""0"" cellspacing=""0"" border=""0"">" & vbNewLine & _
					"	<tr>" & vbNewLine & _
					"		<td align=""right"" width=""50%"">" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00115 & ":</b></font>  " & vbNewLine & _
					"		</td width=""50%"">" & vbNewLine & _
					"		<td>" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine
				strSql = "SELECT CATEGORYNAME, AUCTIONCATID FROM " & strTablePrefix & "AUCTIONCATEGORIES"
				set rsCatDrop = my_Conn.Execute(strSql)
				Response.Write	"			<select name=""strCategory"" id=""strCategory"" size=""1"">" & vbNewLine
				While Not rsCatDrop.EOF
					Response.Write	"				<option value=""" & rsCatDrop("AUCTIONCATID") & """>" & rsCatDrop("CATEGORYNAME") & "</option>" & vbNewLine
					rsCatDrop.MoveNext
				Wend
				rsCatDrop = Close
				Set rsCatDrop = Nothing
				Response.Write	"			</select>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"	</tr>" & vbNewLine & _
					"	<tr>" & vbNewLine & _
					"		<td align=""right"" width=""50%"">" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00101 & ":</b></font>  " & vbNewLine & _
					"		</td width=""50%"">" & vbNewLine & _
					"		<td>" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><input TYPE=""text"" NAME=""strName"" VALUE=""" & strName & """ size=""39""><br /></font>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"	</tr>" & vbNewLine & _
					"	<tr>" & vbNewLine & _
					"		<td VALIGN=""top"" align=""right"">" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00102 & ":</b></font>  " & vbNewLine & _
					"		</td>" & vbNewLine & _
					"		<td>" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><textarea NAME=""strDesc"" COLS=""30"" ROWS=""5"">" & Trim(CleanCode(strDesc)) & "</textarea><br /></font>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"	</tr>" & vbNewLine & _
					"	<tr>" & vbNewLine & _
					"		<td align=""right"">" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00103 & ":</b></font>  " & vbNewLine & _
					"		</td>" & vbNewLine & _
					"		<td>" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><input TYPE=""text"" NAME=""strImage"" VALUE=""" & strImage & """ size=""39""><br /></font>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"	</tr>" & vbNewLine & _
					"	<tr>" & vbNewLine & _
					"		<td align=""right"">" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00104 & ":</b></font>  " & vbNewLine & _
					"		</td>" & vbNewLine & _
					"		<td>" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><input TYPE=""text"" NAME=""curMin"" VALUE=""" & curMin & """ maxlength=""13"" size=""39""><br /></font>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"	</tr>" & vbNewLine & _
					"	<tr>" & vbNewLine & _
					"		<td align=""right"">" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00105 & ":</b></font>  " & vbNewLine & _
					"		</td>" & vbNewLine & _
					"		<td>" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & vbNewLine & _
					"				<select NAME=""strLength"">" & vbNewLine & _
					"					<option VALUE=""3"">" & strLang_Auction_00106 & "</option>" & vbNewLine & _
					"					<option VALUE=""5"">" & strLang_Auction_00107 & "</option>" & vbNewLine & _
					"					<option VALUE=""7"" SELECTED>" & strLang_Auction_00108 & "</option>" & vbNewLine & _
					"					<option VALUE=""10"">" & strLang_Auction_00109 & "</option>" & vbNewLine & _
					"					<option VALUE=""14"">" & strLang_Auction_00110 & "</option>" & vbNewLine & _
					"				</select>" & vbNewLine & _
					"			</font>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"	</tr>" & vbNewLine & _
					"</table>" & vbNewLine
				if Request.QueryString("mode")="edit" then
					Response.Write	" <br /><center><input TYPE=""submit"" VALUE=""" & strLang_Auction_00113 & """ id=""submit1"" name=""submit1"">  <input TYPE=""reset"" VALUE=""" & strLang_Auction_00112 & """ id=""reset1"" name=""reset1""></center>" & vbNewLine
				else
					Response.Write	" <br /><center><input TYPE=""submit"" VALUE=""" & strLang_Auction_00111 & """ id=""submit1"" name=""submit1"">  <input TYPE=""reset"" VALUE=""" & strLang_Auction_00112 & """ id=""reset1"" name=""reset1""></center>" & vbNewLine
				end if
				Response.Write	"</form>" & vbNewLine
			else
				Response.Write	"<center><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><b>" & strLang_Auction_00116 & "</font></center><br />" & vbNewLine
			end if
			Response.Write	"</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
				"</table>" & vbNewLine
		end if
	end if
	Set rsAuctItem = Nothing
end if
WriteFooter()
%>
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 28 July 2010 :  13:00:51  Show Profile  Reply with Quote
quote:
Originally posted by bobby131313

OK, confirmed. Logged in as a regular user, looking at my own auction, I get "Auction not found" on running auctions.

Same thing logged in as Admin looking at any running auction.

Closed auctions work fine.


Could you post links to your "auction_bidders.asp" and "auction_language.asp" files in .txt format?
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 28 July 2010 :  13:04:54  Show Profile  Visit bobby131313's Homepage  Reply with Quote
http://www.coincommunity.com/forum/auction_bidders.txt
http://www.coincommunity.com/forum/auction_language.txt

The error on selling is now gone, but the sell form is not displaying at all. :-(
Switch the order of your title tags
Go to Top of Page

Carefree
Advanced Member

Philippines
4207 Posts
Posted - 28 July 2010 :  13:10:20  Show Profile  Reply with Quote
I'll look at the bidders issue. The new version of auction_sellitem is drastically different from the one I use, all I tried to do was fix the EOF problem. I'll let David handle the form display. One other thing I need to see is your "auction_item.asp" in .txt format.
Edited by - Carefree on 28 July 2010 13:12:35
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 28 July 2010 :  13:22:41  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 - 28 July 2010 :  14:17:42  Show Profile  Reply with Quote
"Auction_Item.asp"
"Auction_Bidders.asp"
"Auction_Language.asp"

Tested here and it worked properly (displays while auction in progress). Discovered the issue, there was an "OR" where it should have been an "AND".

Code above has been edited.
Edited by - Carefree on 29 July 2010 02:08:16
Go to Top of Page

bobby131313
Senior Member

USA
1163 Posts
Posted - 29 July 2010 :  10:38:35  Show Profile  Visit bobby131313's Homepage  Reply with Quote
Thanks Carefree, I've replaced the files, but I'll have to see why I the form won't show before I can test since I have no listings running now.
Switch the order of your title tags
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.18 seconds. Powered By: Snitz Forums 2000 Version 3.4.07