Auction 2.0
Snitz™ Forums 2000https://forum.snitz.com/forumTopic/Posts/69374?pagenum=1
05 November 2025, 01:59
Topic
superskytten1
Auction 2.0
11 June 2010, 23:47
Auction 2.0
11 June 2010, 23:47
i have just install Auction 2.0, but i cannot see the Auction in the admin sektion. have i done something wrong 
Replies ...
Classicmotorcycling
12 June 2010, 01:36
12 June 2010, 01:36
No, there is no Admin functions for this yet....
superskytten1
12 June 2010, 04:15
thank you for the information, have a nice day
12 June 2010, 04:15
thank you for the information, have a nice day
richfed
18 June 2010, 06:55
18 June 2010, 06:55
I have this installed on my forum, but it's not yet been used, so I am unfamiliar as to functions. I see, reading through another thread, that there has been a little spat over this MOD's development. Surely, I don't want to stir the pot AT ALL. Classicmotorcycling, I am using Version 2.0 as downloaded at SnitzBitz. I simply want to use your MOD as intended. I am a bit confused, though, as to whether or not this MOD has a PayPal function in it that works. Would appreciate feedback. Thanks ...
The MOD, by the way, installed flawlessly and easily!
The MOD, by the way, installed flawlessly and easily!
Classicmotorcycling
18 June 2010, 18:14
18 June 2010, 18:14
I have not added the PayPal and do not see a need to add the PayPay as the Auction is between the Seller and the Winner bidder (which most do not have PayPal) and they can work out their own payment system, be it PayPal or what ever else they deceide to use.
Before you know it if you put in a payment system and the winning bidder doesn't receive their item, the seller says they did not get payment, then you will start to get blamed for providing the payment option that doesn't work or even better that you are stealling payments, hench why I do not want anything to do with the payment interface.
It is just a service that you (all that decide to use any MODS) as a forum owner need to understand that it is just that, an extra service for your members and not a replacement for the professional stuff out there which makes money from those services.
Before you know it if you put in a payment system and the winning bidder doesn't receive their item, the seller says they did not get payment, then you will start to get blamed for providing the payment option that doesn't work or even better that you are stealling payments, hench why I do not want anything to do with the payment interface.
It is just a service that you (all that decide to use any MODS) as a forum owner need to understand that it is just that, an extra service for your members and not a replacement for the professional stuff out there which makes money from those services.
Sean Sounds
23 June 2010, 16:44
23 June 2010, 16:44
I get an error when leaving feedback for the first time:
Microsoft VBScript runtime error '800a01a8'
Object required
auction_sendfeedback.asp, line 422
the error appears below the footer and refers to this line:
set rsNamegrab = my_Conn.Execute(strSql)
The same error is produced on line 196 which has the same line entry when trying to do other things like leaving feedback when feedback has been left or not being the winner or buyer, etc.
Can anyone help?
I have the latest forum with no modifications to the auction 2.0 auction_sendfeedback.asp file or the auction_feedback.asp file.
Thanks in advance.
Microsoft VBScript runtime error '800a01a8'
Object required
auction_sendfeedback.asp, line 422
the error appears below the footer and refers to this line:
set rsNamegrab = my_Conn.Execute(strSql)
The same error is produced on line 196 which has the same line entry when trying to do other things like leaving feedback when feedback has been left or not being the winner or buyer, etc.
Can anyone help?
I have the latest forum with no modifications to the auction 2.0 auction_sendfeedback.asp file or the auction_feedback.asp file.
Thanks in advance.
Sean Sounds
25 June 2010, 10:59
25 June 2010, 10:59
Issue resolved. Replaced all the WriteFooter() (except for the last one) after each response message with Response.end.
Classicmotorcycling
26 June 2010, 02:04
26 June 2010, 02:04
Auction Mod 2.0 (auction_sendfeedback.asp) updated after looking at the feedback system and response.end added after the WriteFooter() (except for the last one). Also added for the categories to be added to the forum default.asp with the count of the items in each categories.
Hopefully I will be updating over the week-end to have admin functions.
Hopefully I will be updating over the week-end to have admin functions.
thermal_seeker
26 June 2010, 04:43
26 June 2010, 04:43
should there be a notification for the winning bidder??
Classicmotorcycling
27 June 2010, 00:46
27 June 2010, 00:46
No, only when the user has been out bid.
Also so others know, I have released Auction Mod 2.5 with Administration functions. I have tested on MS SQL and Access and works well.
Originally posted by thermal_seeker
should there be a notification for the winning bidder??
Also so others know, I have released Auction Mod 2.5 with Administration functions. I have tested on MS SQL and Access and works well.
richfed
27 June 2010, 07:00
27 June 2010, 07:00
Excellent ... thanks, David!
Classicmotorcycling
27 June 2010, 07:08
27 June 2010, 07:08
Rich,
You just need to copy the new files over the ones that you have to get the new functions, and no need the upgreade the data if you where previously running version 2.0. There is a few more enhancments in it including counting the items in each category.
You just need to copy the new files over the ones that you have to get the new functions, and no need the upgreade the data if you where previously running version 2.0. There is a few more enhancments in it including counting the items in each category.
richfed
27 June 2010, 09:36
27 June 2010, 09:36
Thanks --- so I do not have to run the .dbs setup again? That would be good, as I had altered it to create my own custom categories. It looks like everything is OK, but I am not 100% sure as the auction is not being used yet.
Webbo
03 July 2010, 10:55
03 July 2010, 10:55
Hi David,
I've tried implementing this using a MySql database and get the following errors when running the dbs set up file:
I'm not sure if you have tested it on MySql and could sure do with some help as the Auction mod looks like something we could make use of
Regards,
Dave
I've tried implementing this using a MySql database and get the following errors when running the dbs set up file:
Dropping Table.. DROP TABLE FORUM_AUCTIONBIDS
Table dropped succesfully
--------------------------------------------------------------------------------
Dropping Table.. DROP TABLE FORUM_AUCTIONITEMS
Table does not exist
--------------------------------------------------------------------------------
Dropping Table.. DROP TABLE FORUM_AUCTIONFEEDBACK
Table does not exist
--------------------------------------------------------------------------------
Dropping Table.. DROP TABLE FORUM_AUCTIONCATEGORIES
Table does not exist
--------------------------------------------------------------------------------
Creating table(s)... CREATE TABLE FORUM_AUCTIONBIDS( AUCTIONID int NOT NULL , BUYER int NULL , MAXPRICE varchar(10) NULL , BIDTIME varchar(20) NULL )
Table created succesfully
--------------------------------------------------------------------------------
Creating table(s)... CREATE TABLE FORUM_AUCTIONITEMS( AUCTIONID INT (11) DEFAULT '' NOT NULL auto_increment , AUCTIONCATID int NULL , SELLER int NOT NULL , ITEMNAME varchar(150) NOT NULL , ITEMDESC text NOT NULL , IMGURL varchar(150) NULL , OPENINGBID varchar(10) NULL , CURRENTBID varchar(10) NULL , STARTDATE varchar(20) NOT NULL , ENDDATE varchar(20) NOT NULL ,KEY FORUM_AUCTIONITEMS_AUCTIONID(AUCTIONID))
CREATE TABLE FORUM_AUCTIONITEMS( AUCTIONID INT (11) DEFAULT '' NOT NULL auto_increment , AUCTIONCATID int NULL , SELLER int NOT NULL , ITEMNAME varchar(150) NOT NULL , ITEMDESC text NOT NULL , IMGURL varchar(150) NULL , OPENINGBID varchar(10) NULL , CURRENTBID varchar(10) NULL , STARTDATE varchar(20) NOT NULL , ENDDATE varchar(20) NOT NULL ,KEY FORUM_AUCTIONITEMS_AUCTIONID(AUCTIONID))
-2147467259 | [MySQL][ODBC 5.1 Driver][mysqld-5.1.44-community-log]Invalid default value for 'AUCTIONID'
--------------------------------------------------------------------------------
Creating table(s)... CREATE TABLE FORUM_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 )
Table created succesfully
--------------------------------------------------------------------------------
Creating table(s)... CREATE TABLE FORUM_AUCTIONCATEGORIES( AUCTIONCATID INT (11) DEFAULT '' NOT NULL auto_increment , CATEGORYNAME varchar(50) NULL , CATEGORYDESCRIPTION text NULL ,KEY FORUM_AUCTIONCATEGORIES_AUCTIONCATID(AUCTIONCATID))
CREATE TABLE FORUM_AUCTIONCATEGORIES( AUCTIONCATID INT (11) DEFAULT '' NOT NULL auto_increment , CATEGORYNAME varchar(50) NULL , CATEGORYDESCRIPTION text NULL ,KEY FORUM_AUCTIONCATEGORIES_AUCTIONCATID(AUCTIONCATID))
-2147467259 | [MySQL][ODBC 5.1 Driver][mysqld-5.1.44-community-log]Invalid default value for 'AUCTIONCATID'
--------------------------------------------------------------------------------
Adding new records.. INSERT INTO FORUM_AUCTIONCATEGORIES (CATEGORYNAME,CATEGORYDESCRIPTION) VALUES ('Motor','All types of Motor vehicles')
INSERT INTO FORUM_AUCTIONCATEGORIES (CATEGORYNAME,CATEGORYDESCRIPTION) VALUES ('Motor','All types of Motor vehicles')
-2147217865 | [MySQL][ODBC 5.1 Driver][mysqld-5.1.44-community-log]Table 'dbs_name.forum_auctioncategories' doesn't exist
--------------------------------------------------------------------------------
Adding new records.. INSERT INTO FORUM_AUCTIONCATEGORIES (CATEGORYNAME,CATEGORYDESCRIPTION) VALUES ('Homewares','All types of Homewares')
INSERT INTO FORUM_AUCTIONCATEGORIES (CATEGORYNAME,CATEGORYDESCRIPTION) VALUES ('Homewares','All types of Homewares')
-2147217865 | [MySQL][ODBC 5.1 Driver][mysqld-5.1.44-community-log]Table 'dbs_name.forum_auctioncategories' doesn't exist
--------------------------------------------------------------------------------
Adding new records.. INSERT INTO FORUM_AUCTIONCATEGORIES (CATEGORYNAME,CATEGORYDESCRIPTION) VALUES ('Computers and Internet','All Computers and Internet related items including software and domain names')
INSERT INTO FORUM_AUCTIONCATEGORIES (CATEGORYNAME,CATEGORYDESCRIPTION) VALUES ('Computers and Internet','All Computers and Internet related items including software and domain names')
-2147217865 | [MySQL][ODBC 5.1 Driver][mysqld-5.1.44-community-log]Table 'dbs_name.forum_auctioncategories' doesn't exist
--------------------------------------------------------------------------------
Adding new records.. INSERT INTO FORUM_AUCTIONCATEGORIES (CATEGORYNAME,CATEGORYDESCRIPTION) VALUES ('Entertainment','All types of Entertainment including hardware and including concert tickets')
INSERT INTO FORUM_AUCTIONCATEGORIES (CATEGORYNAME,CATEGORYDESCRIPTION) VALUES ('Entertainment','All types of Entertainment including hardware and including concert tickets')
-2147217865 | [MySQL][ODBC 5.1 Driver][mysqld-5.1.44-community-log]Table 'dbs_name.forum_auctioncategories' doesn't exist
--------------------------------------------------------------------------------
Adding new records.. INSERT INTO FORUM_AUCTIONCATEGORIES (CATEGORYNAME,CATEGORYDESCRIPTION) VALUES ('Collectables','All types of Collectable Items including Antiques')
INSERT INTO FORUM_AUCTIONCATEGORIES (CATEGORYNAME,CATEGORYDESCRIPTION) VALUES ('Collectables','All types of Collectable Items including Antiques')
-2147217865 | [MySQL][ODBC 5.1 Driver][mysqld-5.1.44-community-log]Table 'dbs_name.forum_auctioncategories' doesn't exist
--------------------------------------------------------------------------------
Adding new records.. INSERT INTO FORUM_AUCTIONCATEGORIES (CATEGORYNAME,CATEGORYDESCRIPTION) VALUES ('All Other','All Other types of Items not listed')
INSERT INTO FORUM_AUCTIONCATEGORIES (CATEGORYNAME,CATEGORYDESCRIPTION) VALUES ('All Other','All Other types of Items not listed')
-2147217865 | [MySQL][ODBC 5.1 Driver][mysqld-5.1.44-community-log]Table 'dbs_name.forum_auctioncategories' doesn't exist
--------------------------------------------------------------------------------
I'm not sure if you have tested it on MySql and could sure do with some help as the Auction mod looks like something we could make use of
Regards,
Dave
Classicmotorcycling
03 July 2010, 17:56
03 July 2010, 17:56
I have just done a basic test on MySQL (at my Test Site) and I get the following when running the dbs file:
I did have to make a small change in auction.asp (at line 196) as I had the sorting wrong for MySQL, but now working (Auction MOD 2.5 updated)
Code:
Auction Mod Version 2.5
Dropping Table..
Table dropped successfully
--------------------------------------------------------------------------------
Dropping Table..
Table dropped successfully
--------------------------------------------------------------------------------
Dropping Table..
Table dropped successfully
--------------------------------------------------------------------------------
Dropping Table..
Table dropped successfully
--------------------------------------------------------------------------------
Creating table(s)...
CREATE TABLE FORUM_AUCTIONBIDS( AUCTIONID int NOT NULL , BUYER int NULL , MAXPRICE varchar(10) NULL , BIDTIME varchar(20) NULL )
Table created successfully
--------------------------------------------------------------------------------
Creating table(s)...
CREATE TABLE FORUM_AUCTIONITEMS( AUCTIONID INT (11) NOT NULL auto_increment , AUCTIONCATID int NULL , SELLER int NOT NULL , ITEMNAME varchar(150) NOT NULL , ITEMDESC text NOT NULL , IMGURL varchar(150) NULL , OPENINGBID varchar(10) NULL , CURRENTBID varchar(10) NULL , STARTDATE varchar(20) NOT NULL , ENDDATE varchar(20) NOT NULL ,KEY FORUM_AUCTIONITEMS_AUCTIONID(AUCTIONID))
Table created successfully
--------------------------------------------------------------------------------
Creating table(s)...
CREATE TABLE FORUM_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 )
Table created successfully
--------------------------------------------------------------------------------
Creating table(s)...
CREATE TABLE FORUM_AUCTIONCATEGORIES( AUCTIONCATID INT (11) NOT NULL auto_increment , CATEGORYNAME varchar(50) NULL , CATEGORYDESCRIPTION text NULL ,KEY FORUM_AUCTIONCATEGORIES_AUCTIONCATID(AUCTIONCATID))
Table created successfully
--------------------------------------------------------------------------------
Adding new records..
INSERT INTO FORUM_AUCTIONCATEGORIES (CATEGORYNAME,CATEGORYDESCRIPTION) VALUES ('Motor','All types of Motor vehicles')
Value(s) updated successfully
--------------------------------------------------------------------------------
Adding new records..
INSERT INTO FORUM_AUCTIONCATEGORIES (CATEGORYNAME,CATEGORYDESCRIPTION) VALUES ('Homewares','All types of Homewares')
Value(s) updated successfully
--------------------------------------------------------------------------------
Adding new records..
INSERT INTO FORUM_AUCTIONCATEGORIES (CATEGORYNAME,CATEGORYDESCRIPTION) VALUES ('Computers and Internet','All Computers and Internet related items including software and domain names')
Value(s) updated successfully
--------------------------------------------------------------------------------
Adding new records..
INSERT INTO FORUM_AUCTIONCATEGORIES (CATEGORYNAME,CATEGORYDESCRIPTION) VALUES ('Entertainment','All types of Entertainment including hardware and including concert tickets')
Value(s) updated successfully
--------------------------------------------------------------------------------
Adding new records..
INSERT INTO FORUM_AUCTIONCATEGORIES (CATEGORYNAME,CATEGORYDESCRIPTION) VALUES ('Collectables','All types of Collectable Items including Antiques')
Value(s) updated successfully
--------------------------------------------------------------------------------
Adding new records..
INSERT INTO FORUM_AUCTIONCATEGORIES (CATEGORYNAME,CATEGORYDESCRIPTION) VALUES ('All Other','All Other types of Items not listed')
Value(s) updated successfully
--------------------------------------------------------------------------------
Database setup finishedI did have to make a small change in auction.asp (at line 196) as I had the sorting wrong for MySQL, but now working (Auction MOD 2.5 updated)
Webbo
05 July 2010, 02:17
05 July 2010, 02:17
Nope, still can't get the dbs file to work for some strange reason, unless it's my version of MySql
I'll try creating the tables manually later
I'll try creating the tables manually later
Webbo
05 July 2010, 17:46
05 July 2010, 17:46
I've created the tables manually and have it working [^]
There is another 'sort' error with MySql in the file: auction_feedback.asp at line #198 ...
I've tried a fix but cannot seem to get it right
Cheers,
Dave
There is another 'sort' error with MySql in the file: auction_feedback.asp at line #198 ...
Microsoft OLE DB Provider for ODBC Drivers error '80040e14'
[MySQL][ODBC 5.1 Driver][mysqld-5.1.44-community-log]You have an error in your SQL syntax; check the manual that corresponds to your MySQL server version for the right syntax to use near '5 DATEBUYER, BUYERCOMMENT FROM FORUM_AUCTIONFEEDBACK WHERE SELLERID = 3 ORDER BY' at line 1
/forum/auction_feedback.asp, line 198
I've tried a fix but cannot seem to get it right
Cheers,
Dave
Classicmotorcycling
06 July 2010, 15:35
06 July 2010, 15:35
At line 197, change the following:
To:
Then at line 219, cahange:
To this:
Has to do with the way MySQL calls the TOP command. Like I said, I only did basic testing with MySQL. I have updated SnitzBitz.com with the new file.
Code:
strSql="SELECT TOP 5 DATEBUYER, BUYERCOMMENT FROM " & strMemberTablePrefix & "AUCTIONFEEDBACK WHERE SELLERID = " & FeedbackID & " ORDER BY DATEBUYER DESC"
To:
Code:
if strDBType = "mysql" then
strsql = "SELECT DATEBUYER, BUYERCOMMENT FROM " & strMemberTablePrefix & "AUCTIONFEEDBACK WHERE SELLERID = " & FeedbackID & " ORDER BY DATEBUYER DESC LIMIT 0,5"
else
strSql = "SELECT TOP 5 DATEBUYER, BUYERCOMMENT FROM " & strMemberTablePrefix & "AUCTIONFEEDBACK WHERE SELLERID = " & FeedbackID & " ORDER BY DATEBUYER DESC"
end if
Then at line 219, cahange:
Code:
strSql="SELECT TOP 5 DATESELLER, SELLERCOMMENT FROM " & strMemberTablePrefix & "AUCTIONFEEDBACK WHERE BUYERID = " & FeedbackID & " ORDER BY DATESELLER DESC"
To this:
Code:
if strDBType = "mysql" then
strsql = "SELECT DATESELLER, SELLERCOMMENT FROM " & strMemberTablePrefix & "AUCTIONFEEDBACK WHERE BUYERID = " & FeedbackID & " ORDER BY DATEBUYER DESC LIMIT 0,5"
else
strSql="SELECT TOP 5 DATESELLER, SELLERCOMMENT FROM " & strMemberTablePrefix & "AUCTIONFEEDBACK WHERE BUYERID = " & FeedbackID & " ORDER BY DATEBUYER DESC"
end if
Has to do with the way MySQL calls the TOP command. Like I said, I only did basic testing with MySQL. I have updated SnitzBitz.com with the new file.
Webbo
06 July 2010, 17:06
06 July 2010, 17:06
Excellent David, many thanks :)
Webbo
11 July 2010, 04:59
11 July 2010, 04:59
Hmm, the emails aren't being sent to advise of end of auction - they are working however if you have been outbid or have made a bid, plus the admin is being notified of new auctions
bobby131313
25 July 2010, 18:50
25 July 2010, 18:50
I've got this working pretty well except for one thing I've noticed....
You can't edit an auction without starting it over. Say I just want to add a link to some more pictures to the description, you must pick a number of days again and it resets the days and the time.
You can't edit an auction without starting it over. Say I just want to add a link to some more pictures to the description, you must pick a number of days again and it resets the days and the time.
Classicmotorcycling
26 July 2010, 05:56
26 July 2010, 05:56
This is by design Bobby. If you are going to change the action item description with additional information, then the date should start from there to be fair to others.
Sean Sounds
26 July 2010, 20:14
Unfortunately, this opens up a lot of dishonesty with the sellers. If an item has 1 bid (or low bids) and the seller isn't satisfied with the sell amount, then all he/she would need to do is edit the auction item causing it to reset. This will cause the potential winning bidder to be cheated out of the item. Now he/she has to wait longer and risk the chance of more potential bidders outbidding them.
It would be nice if the time is only reset if there are "no" bids on the item. The edit option could be allowed if there are bids for the admin with the option to reset the clock or not based on the situation.
26 July 2010, 20:14
Originally posted by Classicmotorcycling
This is by design Bobby. If you are going to change the action item description with additional information, then the date should start from there to be fair to others.
Unfortunately, this opens up a lot of dishonesty with the sellers. If an item has 1 bid (or low bids) and the seller isn't satisfied with the sell amount, then all he/she would need to do is edit the auction item causing it to reset. This will cause the potential winning bidder to be cheated out of the item. Now he/she has to wait longer and risk the chance of more potential bidders outbidding them.
It would be nice if the time is only reset if there are "no" bids on the item. The edit option could be allowed if there are bids for the admin with the option to reset the clock or not based on the situation.
Classicmotorcycling
26 July 2010, 20:52
26 July 2010, 20:52
I can see it from both sides, but I felt it as unfair if a seller changes the item, then they could say that the bidder was only bidding on a picture (for example) and not the item that was originally listed, then there is that floor in it. There is the risk that the seller has in changing the item, and that is if they change the description and or the price, then will the user that was bidding on it bid again if they raise the price and possibly loose a sale all together. Or do we have it that they are allowed to edit the item and the user doesn't get what they originally hoped for.
Originally posted by Sean SoundsThere is no easy way to allow the edit to occur and you get a seller who might of originally put in a wrong description, and that would be unfair to the bidder, so I took the easy way and reset the auction. That is a good reason to have the correct description from the start.
Unfortunately, this opens up a lot of dishonesty with the sellers. If an item has 1 bid (or low bids) and the seller isn't satisfied with the sell amount, then all he/she would need to do is edit the auction item causing it to reset. This will cause the potential winning bidder to be cheated out of the item. Now he/she has to wait longer and risk the chance of more potential bidders outbidding them.
It would be nice if the time is only reset if there are "no" bids on the item. The edit option could be allowed if there are bids for the admin with the option to reset the clock or not based on the situation.
leatherlips
26 July 2010, 22:05
26 July 2010, 22:05
I don't have this mod installed but what if you allowed the seller to edit the auction as long as there are no bids? Once there is a bid the editing is no longer allowed. Just a suggestion.
bobby131313
26 July 2010, 22:24
And a good one.
26 July 2010, 22:24
I don't have this mod installed but what if you allowed the seller to edit the auction as long as there are no bids? Once there is a bid the editing is no longer allowed. Just a suggestion.
And a good one.
Sean Sounds
27 July 2010, 00:21
And a good one.
Yeah. That's what I was suggesting in addition to the time being reset during the editing. I also added that the Admin should maintain the option to edit (even after there is a bid) just in case there was a serious issue with the description and the Seller could not make the change because a bid occurred before the Seller could make the correction. The Admin's change could be made and allow the auction to continue without the time being reset. In addition, an email could automatically be sent to the bidder(s) indicating that a change was made by the Admin to the item so the bidder(s) and Seller could review it.
27 July 2010, 00:21
I don't have this mod installed but what if you allowed the seller to edit the auction as long as there are no bids? Once there is a bid the editing is no longer allowed. Just a suggestion.
And a good one.
Yeah. That's what I was suggesting in addition to the time being reset during the editing. I also added that the Admin should maintain the option to edit (even after there is a bid) just in case there was a serious issue with the description and the Seller could not make the change because a bid occurred before the Seller could make the correction. The Admin's change could be made and allow the auction to continue without the time being reset. In addition, an email could automatically be sent to the bidder(s) indicating that a change was made by the Admin to the item so the bidder(s) and Seller could review it.
Classicmotorcycling
27 July 2010, 07:21
27 July 2010, 07:21
Ok, I have updated the MOD to Auction Mod v2.6 to incorporate if an item has a bid on it, it can not be edited.
Originally posted by leatherlipsIf there is no bid then it can be edited. I have not fully tested, but tested enough to show it can not be edited..
I don't have this mod installed but what if you allowed the seller to edit the auction as long as there are no bids? Once there is a bid the editing is no longer allowed. Just a suggestion.
bobby131313
27 July 2010, 10:46
27 July 2010, 10:46
Thank you, will test today.
I was just informed of something else though. A seller just had an auction end and he says he can't see anywhere who won?
Edited to add: I'm thinking the seller and admins should be able to see a bidder list all the time?
I was just informed of something else though. A seller just had an auction end and he says he can't see anywhere who won?
Edited to add: I'm thinking the seller and admins should be able to see a bidder list all the time?
Carefree
27 July 2010, 21:56
27 July 2010, 21:56
Here Bobby, my 2-cents worth:
Save this as "auction_bidders.asp"
Append this to the bottom of "auction_language.asp", immediately above the
In "auction_item.asp"
Save this as "auction_bidders.asp"
Code:
<%
'#################################################################################
'## Snitz Forums 2000 v3.4.07
'#################################################################################
'## Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen,
'## Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'###############################################################################
'## MOD: Auction Mod v2.6 for Snitz Forums v3.4.07
'## Author: David Greening (Classicmotorcycling)
'## Bidders concept: Carefree
'##
'## File: auction_bidders.asp
'##
'## Get the latest version of this MOD at
'## http://www.snitzbitz.com/mods/
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_posting.asp"-->
<!--#INCLUDE FILE="auction_language.asp" -->
<%
Response.Write "<table border=""0"" width=""100%"" cellpadding=""4"" cellspacing=""1"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td colspan=""2"" valign=""top"" nowrap>" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " <a href=""auction.asp"">" & strLang_Auction_00000 & "</a><br />" & vbNewLine & _
" " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & strLang_Auction_01200 & "</font>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
if mLev = 0 then
Response.Write "<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td align=""center"">" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><b>" & strLang_Auction_00006 & "</b></font><br /><br />" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
else
Response.Write "<table width=""100%"" align=""center"" cellpadding=""0"" cellspacing=""0"" border=""1"">" & vbNewLine & _
" <tr height=""40"">" & vbNewLine & _
" <td align=""center"" colspan=""2"" bgcolor=""" & strHeadCellColor & """>" & vbNewLine & _
" <b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>" & strForumTitle & " - " & strLang_Auction_01200 & "</font></b>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <tr>" & vbNewLine & _
" <td width=""100%"" valign=""top"" align=""center""><p> </p>" & vbNewLine
endAuction = DateToStr(strForumTimeAdjust)
intAuctionID = Request.Querystring("IntAuctionID")
strSql = "SELECT * FROM " & strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID="& intAuctionID
set rsData=my_Conn.Execute(strSql)
if rsData.EOF then
Response.Write strLang_Auction_01206 & vbNewLine & _
"<meta http-equiv=""Refresh"" content=""3; URL=auction_item.asp?intAuctionID=" & intAuctionID & """>" & vbNewLine
WriteFooter
Response.End
else
AuctionID=rsData("AUCTIONID")
Seller=rsData("SELLER")
strAuctionImage=rsData("ImgURL")
strItemName=rsData("ITEMNAME")
strItemDesc=rsData("ITEMDESC")
MinBid=rsData("OPENINGBID")
CurBid=rsData("CURRENTBID")
dtmEnd=rsData("ENDDATE")
rsData.Close
end if
set rsData=Nothing
if MinBid = CurBid then 'No bids
Response.Write "<br /><p><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_01211 & "</b></font></p><br />" & vbNewLine & _
"<meta http-equiv=""Refresh"" content=""3; URL=auction_item.asp?intAuctionID=" & AuctionID & """></td></tr></table>" & vbNewLine
WriteFooter
Response.End
end if
strSql="SELECT * FROM " & strTablePrefix & "AUCTIONBIDS WHERE AUCTIONID=" & AUCTIONID & " ORDER BY MAXPRICE DESC"
set rsBids=my_Conn.Execute(strSql)
if rsBids.EOF then
Response.Write "<p><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_01211 & "</b></font></p>" & vbNewLine & _
"<meta http-equiv=""Refresh"" content=""3; URL=auction_item.asp?intAuctionID=" & AuctionID & """></td></tr></table>" & vbNewLine
WriteFooter
Response.End
elseif mLev < 3 AND Seller <> MEMBERID then
Response.Write "<p><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_01208 & "</b></font></p>" & vbNewLine & _
"<meta http-equiv=""Refresh"" content=""3; URL=auction_item.asp?intAuctionID=" & AuctionID & """></td></tr></table>" & vbNewLine
WriteFooter
Response.End
else
Response.Write "<p><br /><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_01213 & "</b></font></p>" & vbNewLine & _
"<table width=""100%"" cellpadding=""0"" cellspacing=""1"" border=""1"">" & vbNewLine & _
" <tr height=""30"" bgcolor=""" & strCategoryCellColor & """>" & vbNewLine & _
" <th width=""10%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """> </font></th>" & vbNewLine & _
" <th width=""10%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>" & strLang_Auction_01212 & "</font></th>" & vbNewLine & _
" <th width=""40%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>" & strLang_Auction_00001 & "</font></th>" & vbNewLine & _
" <th width=""20%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>" & strLang_Auction_00002 & "</font></th>" & vbNewLine & _
" <th width=""20%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>" & strLang_Auction_00003 & "</font></th>" & vbNewLine & _
" </tr>" & vbNewLine & _
" <td width=""10%""> </td>" & vbNewLine & _
" <td width=""10%"" valign=""middle"" align=""center"">" & vbNewLine
if strAuctionImage = "" or strAuctionImage = "http://" then
Response.Write " " & vbNewLine
else
Response.Write " <a HREF=""auction_item.asp?intAuctionID=" & AuctionID & """><img src=""" & strAuctionImage & """ border=""0"" width=""50""></a>" & vbNewLine
end if
strColor="red"
if intBuyer = MemberID or intSeller = MemberID then strColor="green"
Response.Write " </td>" & vbNewLine & _
" <td width=""40%"" align=""left"" valign=""top"">" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b><a HREF=""auction_item.asp?intAuctionID=" & AuctionID & """>" & strItemName & "</a></b> - <span class=""spnMessageText"" id=""auctionmsg"">" & left(formatStr(strItemDesc), 200) & "</span id=""auctionmsg"">...</font>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td width=""20%"" valign=""top"" align=""center"">" & vbNewLine
if curBid <> MinBid then
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>" & strLang_Auction_00415 & ": </font>" & vbNewLine
else
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00412 & ": </b></font>" & vbNewLine
end if
if dtmEnd > endAuction then
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_01211 & vbNewLine
else
Response.Write " <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_Currency & formatNumber(CurBid, 2) & "</b></font>" & vbNewLine
end if
if dtmEnd < endAuction then
strDate=strLang_Auction_00009
else
strDate=strtoDate(dtmEnd)
end if
Response.Write " </td>" & vbNewLine & _
" <td width=""20%"" valign=""top"" align=""center"">" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strDate & "</font>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table><p> <br>" & vbNewLine & _
"<p><font face=""" & strDefaultFontFace & """ size=""" & strHeaderFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_01200 & "</b></font></p>" & vbNewLine & _
"<table align=""center"" width=""100%"" cellpadding=""0"" cellspacing=""1"" border=""1"">" & vbNewLine & _
" <tr height=""30"" valign=""middle"" bgcolor=""" & strCategoryCellColor & """>" & vbNewLine & _
" <th width=""10%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """> </font></th>" & vbNewLine & _
" <th width=""10%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>" & strLang_Auction_01210 & "</font></th>" & vbNewLine & _
" <th width=""40%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>" & strLang_Auction_01204 & "</font></th>" & vbNewLine & _
" <th width=""20%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>" & strLang_Auction_01209 & "</font></th>" & vbNewLine & _
" <th width=""20%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strCategoryFontColor & """>" & strLang_Auction_01207 & "</font></th>" & vbNewLine & _
" </tr>" & vbNewLine
Buyer=rsBids("BUYER")
rsBids.MoveFirst
intColor = -1
While not rsBids.EOF
strColor=strForumFirstCellColor
if intColor=-1 then strColor = strForumCellColor
intBid=rsBids("MAXPRICE")
intBidder=rsBids("BUYER")
strTime=rsBids("BIDTIME")
strSql="SELECT MEMBER_ID, M_NAME FROM "& strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID=" & intBidder
set rsLink=my_Conn.Execute(strSql)
if not rsLink.EOF then
strLinkName=rsLink("M_NAME")
strLink="<a href=""pop_profile.asp?mode=display&id=" & intBidder & """>" & strLinkName & "</a> "
strMail="<a href=""JavaScript:openWindow7('pop_mail.asp?id=" & intBidder & "')"">" & strLang_Auction_01210 & "</a>"
else
strLink = strLang_Auction_01214
end if
Response.Write " <tr valign=""middle"">" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strColor & """ width=""10%""> </td>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strColor & """ width=""10%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strMail & "</font></td>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strColor & """ width=""40%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLink & "</font></td>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strColor & """ width=""20%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_Currency & formatNumber(IntBid, 2) & "</font></td>" & vbNewLine & _
" <td align=""center"" bgcolor=""" & strColor & """ width=""20%""><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strToDate(strTime) & "</font></td>" & vbNewLine & _
" </tr>"& vbNewLine
intColor=intColor*-1
rsBids.MoveNext
Wend
rsBids.Close
end if
set rsBids=Nothing
Response.Write " </font>" & vbNewLine & _
" </table>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine & _
end if
WriteFooter()
%>
Append this to the bottom of "auction_language.asp", immediately above the
Code:
%>Code:
'##### Auction - auction_bidders.asp #####'
strLang_Auction_01200 = "Auction Bidders"
strLang_Auction_01201 = "Current Bid"
strLang_Auction_01202 = "Bidding Started"
strLang_Auction_01203 = "Bidding Ends"
strLang_Auction_01204 = "Bidder"
strLang_Auction_01205 = "Winning Bidder"
strLang_Auction_01206 = "Auction not found"
strLang_Auction_01207 = "Bid Time"
strLang_Auction_01208 = "Bids can only be viewed by seller."
strLang_Auction_01209 = "Bid Amount"
strLang_Auction_01210 = "E-mail"
strLang_Auction_01211 = "No bids made"
strLang_Auction_01212 = "Image"
strLang_Auction_01213 = "Auction Item"
strLang_Auction_01214 = "Bidder Deleted"
In "auction_item.asp"
Code:
Look for the following lines (appx 148-152):
end if
end if
Response.Write "<center>" & vbNewLine & _
"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""600"">" & vbNewLine & _
After them, insert these:
" <tr>" & vbNewLine & _
" <td width=""30%"">" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """> </font>" & vbNewLine & _
" </td>" & vbNewLine & _
" <td width=""70%"">" & vbNewLine & _
" <font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><a href=""auction_bidders.asp?intAuctionID=" & intAuctionID & """>" & strLang_Auction_01200 & "</a></font>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine
Classicmotorcycling
28 July 2010, 04:54
28 July 2010, 04:54
OK, it has been updated to include the MOD from Carefree (after fixing the format issue, thaks for that Carefree) so you can see who has bid on the item.
Carefree
28 July 2010, 05:45
28 July 2010, 05:45
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.
bobby131313
28 July 2010, 11:17
28 July 2010, 11:17
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.
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.
bobby131313
28 July 2010, 11:30
28 July 2010, 11:30
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?
Carefree
28 July 2010, 11:41
28 July 2010, 11:41
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.
Carefree
28 July 2010, 11:49
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:
28 July 2010, 11:49
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:
Code:
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]
bobby131313
28 July 2010, 11:58
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....
28 July 2010, 11:58
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....
bobby131313
28 July 2010, 12:13
28 July 2010, 12:13
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.
Same thing logged in as Admin looking at any running auction.
Closed auctions work fine.
bobby131313
28 July 2010, 12:29
28 July 2010, 12:29
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
Microsoft VBScript runtime error '800a01a8'
Object required: 'rsAuctItem'
/forum/auction_sellItem.asp, line 193
Code:
end if
rsAuctItem.Close
Set rsAuctItem = Nothing
end if
Carefree
28 July 2010, 12:55
28 July 2010, 12:55
That must be a result of an EOF condition in the database.
Try this for "auction_sellItem.asp"
Try this for "auction_sellItem.asp"
Code:
<%
'#################################################################################
'## 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()
%>
Carefree
28 July 2010, 13:00
Could you post links to your "auction_bidders.asp" and "auction_language.asp" files in .txt format?
28 July 2010, 13:00
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?
bobby131313
28 July 2010, 13:04
28 July 2010, 13:04
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. :-(
http://www.coincommunity.com/forum/auction_language.txt
The error on selling is now gone, but the sell form is not displaying at all. :-(
Carefree
28 July 2010, 13:10
28 July 2010, 13:10
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.
bobby131313
28 July 2010, 13:22
28 July 2010, 13:22
http://www.coincommunity.com/forum/auction_item.txt
Carefree
28 July 2010, 14:17
28 July 2010, 14:17
"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.
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.
bobby131313
29 July 2010, 10:38
29 July 2010, 10:38
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.
bobby131313
29 July 2010, 10:48
29 July 2010, 10:48
I see the download was updated today, but the new auction_sellitem.asp still throws the Object required: 'rsAuctItem' error posted above.
Classicmotorcycling
29 July 2010, 15:34
29 July 2010, 15:34
Try downloading again Bobby, had to do with stopping users editing their items once a bid had been made, fixed it so should work.
bobby131313
29 July 2010, 16:09
29 July 2010, 16:09
Cool, that took care of that, but now when saving a new listing....
Microsoft SQL Server Native Client 10.0 error '80040e14'
Incorrect syntax near ','. /forum/auction_save.asp, line 135
Microsoft SQL Server Native Client 10.0 error '80040e14'
Incorrect syntax near ','. /forum/auction_save.asp, line 135
Carefree
29 July 2010, 17:16
29 July 2010, 17:16
Change line 94 to say
Code:
strName = chkString(cstr(Request.form("strName")), "SQLString")
bobby131313
29 July 2010, 17:40
29 July 2010, 17:40
Sorry no luck, same thing.
Carefree
29 July 2010, 18:43
29 July 2010, 18:43
At line 135, insert two lines. Run it again and give us the output.
Response.Write strSql
Response.End
This will terminate program with data we need.
Response.Write strSql
Response.End
This will terminate program with data we need.
bobby131313
29 July 2010, 18:46
29 July 2010, 18:46
INSERT INTO FORUM_AUCTIONITEMS (SELLER, ITEMNAME, AUCTIONCATID, ITEMDESC, IMGURL, OPENINGBID, CURRENTBID, STARTDATE, ENDDATE) VALUES('2', 'testing', '1', 'some more testing', 'http://', , 1.00, '20100729184559', '20100801184559')
Looks like an extra space between imgurl and openingbid right?
Looks like an extra space between imgurl and openingbid right?
Carefree
29 July 2010, 18:55
29 July 2010, 18:55
Found it. Line 134 is incorrect. Change it to say:
Code:
strsql = strsql & " VALUES('" & strUsername & "', '" & strName & "', '" & strCategory & "', '" & strDesc & "', '" & strImage & "', " & curMin & ", " & curMin & ", '" & dtmStart & "', '" & dtmEnd & "')"
bobby131313
29 July 2010, 19:03
29 July 2010, 19:03
Cool, I was looking at it myself and just did that.
More testing...
Thanks!
More testing...
Thanks!
Carefree
29 July 2010, 19:10
29 July 2010, 19:10
You're welcome.
bobby131313
29 July 2010, 19:45
29 July 2010, 19:45
Looks like same thing needs to be done for the edit mode right above that.
Carefree
29 July 2010, 20:59
29 July 2010, 20:59
I'll look later at that one. Have to check field type in the database, to see if it's int or str value.
bobby131313
29 July 2010, 21:05
29 July 2010, 21:05
Well, I was getting the same error on editing on the same value being blank. Since there can be no edit after the first bid, opening bid and current bid will still be the same in edit mode. Right?
Carefree
29 July 2010, 21:24
29 July 2010, 21:24
Yes. But they are in string format, so logically, it should read like this:
However, since CurMin works below as an integer format, you can try this. One or the other will work. I'm not using the latest version, so can't test it for you.
Code:
strSql="UPDATE " & strTablePrefix & "AUCTIONITEMS SET ITEMNAME='" & strName & "', AUCTIONCATID='" & strCategory & "', ITEMDESC='" & strDesc & "', IMGURL='" & strImage & "', OPENINGBID='" & curMin & "', CURRENTBID='" & curMin & "', ENDDATE='" & dtmEnd & "' WHERE AUCTIONID=" & AuctionID
However, since CurMin works below as an integer format, you can try this. One or the other will work. I'm not using the latest version, so can't test it for you.
Code:
strSql="UPDATE " & strTablePrefix & "AUCTIONITEMS SET ITEMNAME='" & strName & "', AUCTIONCATID='" & strCategory & "', ITEMDESC='" & strDesc & "', IMGURL='" & strImage & "', OPENINGBID=" & curMin & ", CURRENTBID=" & curMin & ", ENDDATE='" & dtmEnd & "' WHERE AUCTIONID=" & AuctionID
Classicmotorcycling
30 July 2010, 04:18
30 July 2010, 04:18
Whoops, did the changes on my local test system and forgot (well, I thought I did) to copy the new files to the zip location. Updated now...
Carefree
30 July 2010, 07:27
30 July 2010, 07:27
Wish I could (truthfully) claim that I had never forgotten to do something. lol
Classicmotorcycling
30 July 2010, 08:20
30 July 2010, 08:20
It was about 4:45am (Melbourne, Australia time) after I got up this morning to get ready for work. Was still tired. So I think that all the functions are there and working now, so this MOD should be finished.
bobby131313
30 July 2010, 10:21
30 July 2010, 10:21
I'm likely going to release it to a few dozen established members today to run it through the ringer secretly for 3 or 4 days. If there's any more bugs they'll find them.
I appreciate your work on this guys, thank you!
I appreciate your work on this guys, thank you!
bobby131313
30 July 2010, 15:27
30 July 2010, 15:27
OK, another little bug.
When you list a new item and hit "Submit to auction" it takes you to a preview page. If you click "edit item" on that page you get....
Microsoft SQL Server Native Client 10.0 error '80040e14'
Incorrect syntax near '='. /forum/auction_sellItem.asp, line 83
When you list a new item and hit "Submit to auction" it takes you to a preview page. If you click "edit item" on that page you get....
Microsoft SQL Server Native Client 10.0 error '80040e14'
Incorrect syntax near '='. /forum/auction_sellItem.asp, line 83
Carefree
30 July 2010, 17:49
30 July 2010, 17:49
Maybe because no check for EOF was made on the sell item page.
"auction_sellitem.asp"
"auction_sellitem.asp"
Code:
<%
'#################################################################################
'## 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 " & strTablePrefix & "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
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
rsAuctItem.Close
end if
Set rsAuctItem = Nothing
end if
end if
WriteFooter()
%>
bobby131313
30 July 2010, 18:14
30 July 2010, 18:14
That went back to the form not showing, here's the current file...
http://www.coincommunity.com/forum/auction_sellItem.txt
http://www.coincommunity.com/forum/auction_sellItem.txt
Classicmotorcycling
30 July 2010, 19:12
30 July 2010, 19:12
I forgot to check that, but that is because I changed the way to edit the item and make it more secure rather than include the data in the QueryString, made it grab the data from the Database. I have removed the edit button from the auction_sellItemProcess.asp as it wanted to use the QueryString and it could not as the editing has changed to grab frm the Database(bit like when you post a message in the forum).
I have updated the file minus the "Edit Button" for new entries. If a user wants to edit their new item a simple click of the back button and they can.
I have updated the file minus the "Edit Button" for new entries. If a user wants to edit their new item a simple click of the back button and they can.
Carefree
30 July 2010, 19:18
30 July 2010, 19:18
Here:
Note: If you get an "Auction Not Found" then you'll need to insert two lines. Run again and provide the output for us to see why.
Code:
<%
'#################################################################################
'## 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)
rsAuctItem.Close
else
set rsAuctItem = Nothing
Response.Write strLang_Auction_01206 & "</td></tr></table>"
WriteFooter
Response.End
end if
set rsAuctItem = Nothing
end if
if strImage = "" then
strImage = "http://"
end if
if curMin > curOpening then
Response.Write "<center><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><b>" & strLang_Auction_00116 & "</font></center><br />" & vbNewLine
else
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
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=""1"">1 Day</option>" & vbNewLine & _
" <option VALUE=""3"">3 Days</option>" & vbNewLine & _
" <option VALUE=""5"">5 Days</option>" & vbNewLine & _
" <option VALUE=""7"" SELECTED>7 Days</option>" & vbNewLine & _
" <option VALUE=""10"">10 Days</option>" & vbNewLine & _
" <option VALUE=""14"">14 Days</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
end if
Response.Write "</font>" & vbNewLine & _
" </td>" & vbNewLine & _
" </tr>" & vbNewLine & _
"</table>" & vbNewLine
end if
WriteFooter()
%>
Note: If you get an "Auction Not Found" then you'll need to insert two lines. Run again and provide the output for us to see why.
Code:
Look for this line (appx 79):
strsql = "SELECT * FROM " & strMemberTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID
After it, insert these:
Response.Write strSql
Response.End
bobby131313
30 July 2010, 19:43
30 July 2010, 19:43
OK, given the explanations, I've changed that button to just do a javascript back like so...
Anyone see an issue with that other than JS disabled visitors?
Code:
<input TYPE=""button"" ONCLICK=""history.go(-1)"" NAME=""button"" VALUE=""" & strLang_Auction_00206 & """ id=""submit2"" name=""submit2"">
Anyone see an issue with that other than JS disabled visitors?
Classicmotorcycling
30 July 2010, 23:13
30 July 2010, 23:13
Works for me, will add it to the download Bobby...
bobby131313
31 July 2010, 08:32
31 July 2010, 08:32
Cool.... No more problems so far. There's a couple dozen members playing with it since yesterday AM. I added a 1 day option so there will be auctions ending today and they'll be testing out the feedback part of it.
bobby131313
31 July 2010, 08:53
31 July 2010, 08:53
Darn, just stumbled on something odd.
Look what the end time is doing.... should read 10:30 and it did last night. All the ones ending this morning are doing it.
Looked at the end times in the DB and they look fine....
20100730103031
20100731103031
Hopefully it has nothing to do with the addition of 1 day listings for testing, here's that code.....
All I did was add the 1 day line.
Look what the end time is doing.... should read 10:30 and it did last night. All the ones ending this morning are doing it.
Looked at the end times in the DB and they look fine....
20100730103031
20100731103031
Hopefully it has nothing to do with the addition of 1 day listings for testing, here's that code.....
Code:
" <select NAME=""strLength"">" & vbNewLine & _
" <option VALUE=""1"">1 Day</option>" & vbNewLine & _
" <option VALUE=""3"">3 Days</option>" & vbNewLine & _
" <option VALUE=""5"">5 Days</option>" & vbNewLine & _
" <option VALUE=""7"" SELECTED>7 Days</option>" & vbNewLine & _
" <option VALUE=""10"">10 Days</option>" & vbNewLine & _
" <option VALUE=""14"">14 Days</option>" & vbNewLine & _
" </select>" & vbNewLine & _
All I did was add the 1 day line.
bobby131313
31 July 2010, 09:03
31 July 2010, 09:03
Hmmmm...... the custom Today/Yesterday mod messing with it probably? My chkDate function has been modified several times.....
bobby131313
31 July 2010, 09:19
31 July 2010, 09:19
OK, this is due to my modifications and I think I can work it out myself. chkDate and chkTime from a fresh download works fine.
I'll just try renaming them for the auction......
I'll just try renaming them for the auction......
bobby131313
31 July 2010, 09:44
31 July 2010, 09:44
OK, that worked fine. It was actually only my chkTime function, didn't play well with the near future. 
bobby131313
31 July 2010, 10:35
31 July 2010, 10:35
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?
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?
Carefree
31 July 2010, 12:01
31 July 2010, 12:01
Easy fix, Bobby.
In "auction_biditem.asp":
In "auction_biditem.asp":
Code:
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
bobby131313
31 July 2010, 12:10
31 July 2010, 12:10
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.
I've got a listing ending in a few hours, I'll test it out.
bobby131313
31 July 2010, 12:12
31 July 2010, 12:12
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.
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.
Carefree
31 July 2010, 12:19
31 July 2010, 12:19
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.
bobby131313
31 July 2010, 12:21
31 July 2010, 12:21
http://www.coincommunity.com/forum/auction_item.txt
Carefree
31 July 2010, 12:22
31 July 2010, 12:22
OK - using form. Changes made above.
bobby131313
31 July 2010, 12:28
31 July 2010, 12:28
Awesome, working good.
Will post back when the next item ends.
Will post back when the next item ends.
bobby131313
31 July 2010, 12:53
31 July 2010, 12:53
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?
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?
Carefree
31 July 2010, 14:49
31 July 2010, 14:49
Not hard to do. I'll write it this afternoon if David doesn't beat me to it.
bobby131313
31 July 2010, 15:01
31 July 2010, 15:01
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.
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.
bobby131313
31 July 2010, 15:04
31 July 2010, 15:04
Maybe it should be an "Items that I'm winning or have won section".... what do you guys think?
Carefree
31 July 2010, 17:40
31 July 2010, 17:40
Here you go, back-up your current file:
"auction_mybid.asp"
"auction_language.asp"
"auction_mybid.asp"
Code:
<%
'###############################################################################
'##
'## 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"
Code:
<%
'#################################################################################
'## 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"
%>
bobby131313
31 July 2010, 18:11
31 July 2010, 18:11
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.
Carefree
31 July 2010, 18:53
31 July 2010, 18:53
Just edited the file, try new code.
bobby131313
31 July 2010, 18:59
31 July 2010, 18:59
Something real screwy now... still showing all closed items that I bid on, and now in the "Items I am Bidding on" table all the ending times are the same which is from the last item in the "Items I'm selling" table.
Carefree
31 July 2010, 19:06
31 July 2010, 19:06
There you go. Done (I think).
bobby131313
31 July 2010, 20:42
31 July 2010, 20:42
Looking good this time!
Thank you!
Thank you!
bobby131313
01 August 2010, 20:33
01 August 2010, 20:33
Another little bug with auction_bidders.asp.
The sorting is not numeric, it's going by the number of characters in the field first so a descending sort looks like this....
756.75
755.75
55555
I'm guessing the column has to be a different type? Or maybe it needs to be formatted to 2 decimal places before inserting in the DB?
The sorting is not numeric, it's going by the number of characters in the field first so a descending sort looks like this....
756.75
755.75
55555
I'm guessing the column has to be a different type? Or maybe it needs to be formatted to 2 decimal places before inserting in the DB?
ruirib
02 August 2010, 10:52
02 August 2010, 10:52
I didn't even look at the code, but the database column being a text type, you either convert and order it (which maybe be costly, performance wise) or the ordering will be text based, without the conversion. Likely everything would be easier if the column type was different - probably using a double would fit all 3 databases, if that was the concern, but not too sure the dbs syntax supports doubles.
Carefree
02 August 2010, 14:40
02 August 2010, 14:40
The DBS syntax does support "double". Syntax should be like this
Code:
Auction Mod Version 2.6
[ALTER]
AUCTIONBIDS
ALTER#MAXPRICE#DOUBLE#NULL#
[END]
[ALTER]
AUCTIONITEMS
ALTER#OPENINGBID#DOUBLE#NULL#
ALTER#CURRENTBID#DOUBLE#NULL#
[END]
bobby131313
02 August 2010, 15:13
02 August 2010, 15:13
So I just have to run that?
bobby131313
02 August 2010, 18:07
02 August 2010, 18:07
tried running it and get this...
altering Column MAXPRICE... ALTER TABLE FORUM_AUCTIONBIDS ALTER COLUMN MAXPRICE double NULL
ALTER TABLE FORUM_AUCTIONBIDS ALTER COLUMN MAXPRICE double NULL
-2147217900 | Incorrect syntax near the keyword 'NULL'.
altering Column OPENINGBID... ALTER TABLE FORUM_AUCTIONITEMS ALTER COLUMN OPENINGBID double NULL
ALTER TABLE FORUM_AUCTIONITEMS ALTER COLUMN OPENINGBID double NULL
-2147217900 | Incorrect syntax near the keyword 'NULL'.
altering Column CURRENTBID... ALTER TABLE FORUM_AUCTIONITEMS ALTER COLUMN CURRENTBID double NULL
ALTER TABLE FORUM_AUCTIONITEMS ALTER COLUMN CURRENTBID double NULL
-2147217900 | Incorrect syntax near the keyword 'NULL'.
altering Column MAXPRICE... ALTER TABLE FORUM_AUCTIONBIDS ALTER COLUMN MAXPRICE double NULL
ALTER TABLE FORUM_AUCTIONBIDS ALTER COLUMN MAXPRICE double NULL
-2147217900 | Incorrect syntax near the keyword 'NULL'.
altering Column OPENINGBID... ALTER TABLE FORUM_AUCTIONITEMS ALTER COLUMN OPENINGBID double NULL
ALTER TABLE FORUM_AUCTIONITEMS ALTER COLUMN OPENINGBID double NULL
-2147217900 | Incorrect syntax near the keyword 'NULL'.
altering Column CURRENTBID... ALTER TABLE FORUM_AUCTIONITEMS ALTER COLUMN CURRENTBID double NULL
ALTER TABLE FORUM_AUCTIONITEMS ALTER COLUMN CURRENTBID double NULL
-2147217900 | Incorrect syntax near the keyword 'NULL'.
ruirib
02 August 2010, 18:10
02 August 2010, 18:10
As I said, double is not supported by the dbs management code, so it's transferred to the output SQL directly. If you replace double by float, it should work for SQL Server.
bobby131313
02 August 2010, 18:28
© 2000-2021 Snitz™ Communications
02 August 2010, 18:28
Ran perfectly and sorts correctly now.
Thanks Rui.
Thanks Rui.