Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 Help Groups for Snitz Forums 2000 Users
 Help: MOD Implementation
 Auction Mod help needed		  New Topic  Topic Locked
 Printer Friendly
Author Previous Topic Topic Next Topic  

Sean Sounds
Starting Member

20 Posts
Posted - 03 June 2010 :  16:38:40  Show Profile
With a clean install of the 1.2 version of the Auction Mod using the latest forum version (3.4.07) on a MSSQL dbase, I get an error on the "My Auction" page.

The "Items I'm Selling" section of the page shows up fine but the "Items I Am Bidding On" section produces this error:

error '80020009'

Exception occurred.

auction_my_bid.asp, line 158


So I did some tweaking and managed to get the "Items I Am Bidding On" section to show data without error, however, what I now see is the last auction Item that I created being displayed for each item I've bid on instead. Although, when you click on each of the records, they actually show the correct auction items I've bid on. So it seems that I've pulled the right records but it's not displaying the correct "image", "title", "description", "bid" and "end" info associated with each record being pulled. All records instead display the same info (the last auction item I've "created" above in the "Items I'm Selling" section) but clicking on them will open the correct data. So can someone help me to display the correct info?

Here is my auction_my_bid.txt




Also, If I create an auction and view it on the "My Auction" page, I get this error whenever I click the trash can to delete the auction item:

Microsoft OLE DB Provider for SQL Server error '80040e14'

Line 1: Incorrect syntax near '*'.

auction_edititem.asp, line 133


Here is my auction_edititem.txt


I really want to incorporate this mod into my site.
Thanks in advance for any help you can provide.

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 04 June 2010 :  01:36:24  Show Profile
quote:
auction_my_bid.asp, line 158


So I did some tweaking and managed to get the "Items I Am Bidding On" section to show data without error, however, what I now see is the last auction Item that I created being displayed for each item I've bid on instead. Although, when you click on each of the records, they actually show the correct auction items I've bid on. So it seems that I've pulled the right records but it's not displaying the correct "image", "title", "description", "bid" and "end" info associated with each record being pulled. All records instead display the same info (the last auction item I've "created" above in the "Items I'm Selling" section) but clicking on them will open the correct data. So can someone help me to display the correct info?


Move line 150 up to line 146.

quote:
Also, If I create an auction and view it on the "My Auction" page, I get this error whenever I click the trash can to delete the auction item:

Microsoft OLE DB Provider for SQL Server error '80040e14'

Line 1: Incorrect syntax near '*'.

auction_edititem.asp, line 133


Here is my auction_edititem.txt


Remove the "* ", it's not used in MSSql.
Go to Top of Page

Sean Sounds
Starting Member

20 Posts
Posted - 04 June 2010 :  03:55:03  Show Profile
Hello Carefree. Removing the "*" solved the issue with deleting the auction items. Big Thanks

However, there was no change when I moved line 50(for me it was rsItem.MoveFirst) to line 146.

I should also add that when I remove all items I'm selling from the "Items I'm Selling" section, I then get this error message in the "Items I Am Bidding On" section:


ADODB.Recordset error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

auction_my_bid.asp, line 146


Line 146 being the line I moved. The same error comes up for whatever line I put that piece of code on. So if I move it back to 150, the error indicates the problem is at 150.


Anything else I can try? Thanks again for your help.
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 04 June 2010 :  11:15:13  Show Profile
Try this:

<%
'#################################################################################
'## Snitz Forums 2000 v3.4.07
'#################################################################################
'## Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen,
'##                       Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################
'## MOD: Auction Mod v1.2 for Snitz Forums v3.4.07
'## Author: David Greening (Classicmotorcycling)
'##
'## File: auction_editItem.asp
'##
'## Get the latest version of this MOD at
'## http://www.snitzbitz.com/mods/
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_posting.asp"-->
<!--#INCLUDE FILE="auction_language.asp" -->
<%
AuctionID=Request.QueryString("AuctionID")
Response.Write	"<table border=""0"" width=""100%"" cellpadding=""4"" cellspacing=""1"">" & vbNewLine & _
	"	<tr>" & vbNewLine & _
	"		<td valign=""top"" nowrap>" & vbNewLine & _
	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
	"          		" & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " <a href=""auction.asp"">" & strLang_Auction_00000 & "</a><br />" & vbNewLine & _
	"          		" & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & strLang_Auction_00700 & "</font>" & vbNewLine & _
	"		</td>" & vbNewLine & _
	"	</tr>" & vbNewLine & _
	"</table>" & vbNewLine

if mlev = "0" then
	Response.Write	"<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
		"	<tr>" & vbNewLine & _
		"		<td align=""center"">" & vbNewLine & _
		"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><b>" & strLang_Auction_00006 & "</b></font><br /><br />" & vbNewLine & _
		"		</td>" & vbNewLine & _
		"	</tr>" & vbNewLine & _
		"</table>" & vbNewLine
else
	Response.Write	"<table width=""100%"" cellpadding=""0"" cellspacing=""0"" border=""0"">" & vbNewLine & _
		"	<tr>" & vbNewLine & _
		"		<td align=""center"" colspan=""2"" bgcolor=""" & strHeadCellColor & """>" & vbNewLine & _
		"			<b><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHeadFontColor & """>" & strForumTitle & " - " & strLang_Auction_00700 & "</font></b>" & vbNewLine & _
		"		</td>" & vbNewLine & _
		"	</tr>" & vbNewLine
		strErr=""
		if isNumeric(Request.QueryString("AuctionID")) then
			AuctionID = cInt(Request.QueryString("AuctionID"))
		else
			Response.Redirect "auction.asp"
		end if
		if isNumeric(Request.QueryString("Seller")) then
			Seller = cInt(Request.QueryString("Seller"))
		else
			Response.Redirect "auction.asp"
		end if
		if Request.QueryString("Mode")="edit" then
			if mLev < 3 then
				strSql="SELECT * FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID & " AND (SELLER=" & SELLER & ")"
			else
				strSql="SELECT * FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID
			end if
			set rsEdit=my_Conn.Execute(strSql)
			if not rsEdit.EOF then
				strName = rsEdit("ItemName")
				curMin = rsEdit("CurrentBid")
				strLength = chkDate(rsEdit("EndDate"), " " ,true)
				strDesc = rsEdit("ItemDesc")
				strImage = rsEdit("ImgURL")
				rsEdit.close
				set rsEdit = Nothing
				Response.Write	"	<tr>" & vbNewLine & _
					"		<td>" & vbNewLine & _
					"			 <p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_00701 & "</font></p>" & vbNewLine & _
					"			<p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strName & "</b><br />" & vbNewLine & _
					"			" & strLang_Auction_00202 & ": <b>" & strLang_Auction_Currency & "" & formatNumber(curMin) & "</b><br />" & vbNewLine & _
					"			" & strLang_Auction_00702 & ": <b>" & strLength & "</b></font><p>" & vbNewLine & _
					"			<hr color=""#cccccc"" size=""1"" noshade>" & vbNewLine & _
					"			<p><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & formatStr(Trim(CleanCode(strDesc))) & "<br /><br />" & vbNewLine
				if Request.form("strImage") = "" or Request.form("strImage") = "http://" then
					Response.Write	"			 </p>" & vbNewLine
				else
					Response.Write	"			<center><img src=""" & strImage & """ width=""400""></center></p>" & vbNewLine
				end if
				Response.Write	"			<hr color=""#cccccc"" size=""1"" noshade>" & vbNewLine & _
					"			<form ACTION=""auction_save.asp?AuctionID=" & AuctionID & """&mode=edit&"" METHOD=""post"" id=""form1"" name=""form1"">" & vbNewLine & _
					"				<input TYPE=""hidden"" NAME=""strName"" VALUE=""" & strName & """>" & vbNewLine & _
					"				<input TYPE=""hidden"" NAME=""curMin"" VALUE=""" & curMin & """>" & vbNewLine & _
					"				<input TYPE=""hidden"" NAME=""strLength"" VALUE=""" & strLength & """>" & vbNewLine & _
					"				<input TYPE=""hidden"" NAME=""strDesc"" VALUE=""" & strDesc & """>" & vbNewLine & _
					"				<input TYPE=""hidden"" NAME=""strImage"" VALUE=""" & strImage & """>" & vbNewLine & _
					"				<center><input TYPE=""submit"" NAME=""button"" VALUE=""" & strLang_Auction_00206 & """ id=""submit2"" name=""submit2""></center>" & vbNewLine & _
					"			</form>" & vbNewLine & _
					"			</font>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"	</tr>" & vbNewLine & _
					"</table>" & vbNewLine			
			else
				set rsEdit=Nothing
				Response.Redirect "auction.asp"
				Response.End
			end if
		elseif Request.QueryString("Mode")="delete" then
			if mLev < 3 then
				strSql="DELETE FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID & " AND (SELLER=" & SELLER & ")"
			else
				strSql="DELETE FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID
			end if
			set rsEdit=my_Conn.Execute(strSql)
			set rsEdit=Nothing
			strSql="DELETE FROM "& strTablePrefix & "AUCTIONBIDS WHERE AUCTIONID=" & AuctionID
			set rsEdit=my_Conn.Execute(strSql)
			set rsEdit=Nothing
		end if			
end if
WriteFooter()
%>
Edited by - Carefree on 18 June 2010 09:23:56
Go to Top of Page

Sean Sounds
Starting Member

20 Posts
Posted - 04 June 2010 :  14:24:20  Show Profile
I replaced my file with your code (created a new asp file) but nothing changed. It still displays my "created" auction for every auction I bid on. Even ran a check installation just to be sure. I also get the same error when I have no auctions I've created.


Error:

ADODB.Recordset error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/auction_my_bid.asp, line 142


I can email you a temp username and pass if you like. Thanks
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 04 June 2010 :  18:06:17  Show Profile
Duhh - didn't see it. Line 142, change rsItem to rsBuyer
Go to Top of Page

Sean Sounds
Starting Member

20 Posts
Posted - 05 June 2010 :  01:14:59  Show Profile
Made the change but that didn't work. It got rid of the error but something else is now happening.

I've done a fresh install and updated the text file in the first post with the changes you've suggested. I'm sending you a link so you can see it for yourself if you like.
Edited by - Sean Sounds on 05 June 2010 01:15:37
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 05 June 2010 :  11:54:53  Show Profile
See your mail.
Go to Top of Page

Sean Sounds
Starting Member

20 Posts
Posted - 05 June 2010 :  16:03:01  Show Profile
quote:
Originally posted by Carefree

See your mail.


Back atcha.
Go to Top of Page

AnonJr
Moderator

United States
5768 Posts
Posted - 06 June 2010 :  01:22:29  Show Profile  Visit AnonJr's Homepage
Just don't forget to post the ultimate problem/solution for the edification of the rest of us.
Go to Top of Page

Carefree
Advanced Member

Philippines
4222 Posts
Posted - 06 June 2010 :  14:38:40  Show Profile
I fixed all of his issues. Since I changed several pages and don't have the latest version with categories, etc.; I sent the file to the original author. It's here if anyone wants to use it without the categories.
Edited by - Carefree on 18 June 2010 09:39:12
Go to Top of Page

Sean Sounds
Starting Member

20 Posts
Posted - 06 June 2010 :  15:39:50  Show Profile
Super Carefree. Worked like a charm for me. I'm so happy now. Big Thanks for all your help.
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Topic Locked
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 4.17 seconds. Powered By: Snitz Forums 2000 Version 3.4.07