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 - Deleting a Listed Item
 New Topic
 Printer Friendly
Next Page
Author Previous Topic Topic Next Topic
Page: of 3

MaGraham
Senior Member

USA
1297 Posts

Posted - 24 May 2014 :  15:52:04  Show Profile  Reply with Quote

I did David's Auction mod here. It says an admin is supposed to be able to delete or edit listed items but I'm not seeing where that's possible.

I hate to appear so stupid (no comment! lol), but what am I missing?


"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley

Classicmotorcycling
Development Team Leader

Australia
2084 Posts

Posted - 24 May 2014 :  18:17:04  Show Profile
The deletion will only work if the Auction has not finished, then you need to go in to the "Category" that the item is in and you can edit from there. Once the "Auction" has ended, then it cannot be removed or edited, I left it that way as people deserve to see what it sold for or if it did not sell. It should be easy enough to change and will have a look at it this week.

Cheers,

David Greening
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts

Posted - 24 May 2014 :  19:38:58  Show Profile
quote:
Originally posted by Classicmotorcycling

. . .go in to the "Category" that the item is in and you can edit from there.




Oh, I didn't realize I needed to go to "Category" first. I was simply going to the item listed and I quickly saw there was no means of editing it or deleting it from there.

Thank you so much!

I have another question. Members would like to have a "Buy Now" feature. I thought they could simply type "Buy Now!" and type a price in the "Opening Bid" field but that field is strictly numeric. Could that be easily changed? Or, could a "Buy Now" field easily be added?

Here's my auction_sellItem.asp


<%
'#################################################################################
'## Snitz Forums 2000 v3.4.07
'#################################################################################
'## Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen,
'##                       Huw Reddick and Richard Kinser
'##
'## This program is free software; you can redistribute it and/or
'## modify it under the terms of the GNU General Public License
'## as published by the Free Software Foundation; either version 2
'## of the License, or (at your option) any later version.
'##
'## All copyright notices regarding Snitz Forums 2000
'## must remain intact in the scripts and in the outputted HTML
'## The "powered by" text/logo with a link back to
'## http://forum.snitz.com in the footer of the pages MUST
'## remain visible when the pages are viewed on the internet or intranet.
'##
'## This program is distributed in the hope that it will be useful,
'## but WITHOUT ANY WARRANTY; without even the implied warranty of
'## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
'## GNU General Public License for more details.
'##
'## You should have received a copy of the GNU General Public License
'## along with this program; if not, write to the Free Software
'## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
'##
'## Support can be obtained from our support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## manderson@snitz.com
'##
'#################################################################################
'## MOD: Auction Mod v2.6 for Snitz Forums v3.4.07
'## Author: David Greening (Classicmotorcycling)
'##
'## File: auction_sellItem.asp
'##
'## Get the latest version of this MOD at
'## http://www.snitzbitz.com/mods/
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_secure.asp" -->
<!--#INCLUDE FILE="inc_func_member.asp" -->
<!--#INCLUDE FILE="inc_moderation.asp" -->
<!--#INCLUDE FILE="inc_subscription.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)

	strAuctionCat = rsAuctItem("AUCTIONCATID")
	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)

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

if Request.QueryString("mode") = "edit" then
	Response.Write	"				<option value=""" & strAuctionCat & """ selected>If changing Please Select</option>" & vbNewLine
else
	Response.Write	"				<option value=""" & rsCatDrop("AUCTIONCATID") & """ selected>Please Select</option>" & vbNewLine
end if

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=""" & Trim(ChkString(strName,"edit")) & """ 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
end if
Response.Write	"</font>" & vbNewLine & _
		"		</td>" & vbNewLine & _
		"	</tr>" & vbNewLine & _
		"</table>" & vbNewLine

rsAuctItem = Close
Set rsAuctItem = Nothing
end if
WriteFooter()
%>






"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts

Posted - 24 May 2014 :  22:00:01  Show Profile
I am having a problem when trying to delete an auction item. I receive this error message:

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[MySQL][ODBC 5.1 Driver][mysqld-5.5.28]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 '* FROM FORUM_AUCTIONITEMS WHERE AUCTIONID=4 AND (SELLER=0 OR SELLER=1)' at line 1

/fp/auction_edititem.asp, line 149


I can edit a listed item without any problem.

Here is line 149:
set rsEdit=my_Conn.Execute(strSql)

In addition, since auction_edititem.asp is a small file, I'll just share the entire file.



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

	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

			strSql="SELECT * FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID & " AND (SELLER=" & SELLER & " OR SELLER=" & intAdminMemberID & ")"
			set rsEdit=my_Conn.Execute(strSql)
			if not rsEdit.EOF then
				strName = rsEdit("ItemName")
				curMin = rsEdit("CurrentBid")
				curOpening = rsEdit("OPENINGBID")
				strStartDate = rsEdit("StartDate")
				strLength = chkDate(rsEdit("EndDate"), " " ,true)
				strDesc = rsEdit("ItemDesc")
				strImage = rsEdit("ImgURL")
				rsEdit.close
				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 strImage = "" or strImage = "http://" then
					Response.Write	"			 </p>" & vbNewLine
				else
					Response.Write	"			<center><img src=""" & strImage & """ width=""400""></center></p>" & vbNewLine
				end if
				Response.Write	"			<hr color=""#cccccc"" size=""1"" noshade>" & vbNewLine & _
						"			<form ACTION=""auction_save.asp?AuctionID=" & AuctionID & """&mode=edit&"" METHOD=""post"" id=""form1"" name=""form1"">" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""strName"" VALUE=""" & strName & """>" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""curMin"" VALUE=""" & curMin & """>" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""curOpening"" VALUE=""" & curOpening & """>" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""strLength"" VALUE=""" & strLength & """>" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""strStartDate"" VALUE=""" & strStartDate & """>" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""strDesc"" VALUE=""" & strDesc & """>" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""strImage"" VALUE=""" & strImage & """>" & vbNewLine & _
						"				<center>" & vbNewLine
					
					if curMin = curOpening then
						Response.Write	"				<input TYPE=""submit"" NAME=""button"" VALUE=""" & strLang_Auction_00206 & """ id=""submit2"" name=""submit2""></center>" & vbNewLine
					end if
				Response.Write	"			</form>" & vbNewLine & _
						"			</font>" & vbNewLine & _
						"		</td>" & vbNewLine & _
						"	</tr>" & vbNewLine & _
						"</table>" & vbNewLine			
			else
				set rsEdit=Nothing
				Response.Redirect "auction.asp"
				Response.End
			end if
		elseif Request.QueryString("Mode")="delete" then

			Response.Write	"<center><br />" & vbNewLine

			strSql="SELECT * FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID & " AND (SELLER=" & SELLER & " OR SELLER=" & intAdminMemberID & ")"
			set rsDeleteName=my_Conn.Execute(strSql)

			if Request.QueryString("do") = "yes" and AuctionID <> 0 Then

				strSql="DELETE * FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID & " AND (SELLER=" & SELLER & " OR SELLER=" & intAdminMemberID & ")"
				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

				Response.Write	"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><b>" & strLang_Auction_00703 & "</font>" & vbNewLine
        		elseIf Request.Querystring("do") <> "yes" and AuctionID <> 0 Then
				Response.Write	"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_00704 & ": <b>" & rsDeleteName("ITEMNAME") & "</b>?<br />" & vbNewLine & _
						"<a href=""auction_edititem.asp?mode=delete&AuctionID=" & AuctionID & "&do=yes"">" & strLang_Auction_00805 & "</a> | <a href=""auction.asp"">" & strLang_Auction_00806 & "</a></font>" & vbNewLine
			else
				Response.Redirect("auction.asp")
			end if

			Response.Write	"</center><br />" & vbNewLine
		end if			
end if
WriteFooter()
%>



"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley

Edited by - MaGraham on 24 May 2014 22:01:54
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts

Posted - 25 May 2014 :  03:25:03  Show Profile
Hello MaGraham (and others),

This should now allow for Deletion or Editing from the main Auction page and should of fixed the deletion issue if you was not the seller. I have also allowed Admin's to end the Auction if they feel the need to through the Edit fuction.

New download at: Auction 2.7

Let me know if it don't work as I only have a MS SQL and Access DB to test on at the moment.

Cheers,

David Greening
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts

Posted - 26 May 2014 :  00:46:32  Show Profile

David, I finished the upgrade without any erros. THANK YOU!

If I attempt to edit a listed item (in either the original category area or the new area with the upgrade) I receive the "Please confirm that this is the item you wish to edit" message but there's no place to confirm it (nothing to click on).

And, if I try to delete a listed item I receive this error message.



Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[MySQL][ODBC 5.1 Driver][mysqld-5.5.28]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 '* FROM FORUM_AUCTIONITEMS WHERE AUCTIONID = 1' at line 1

/fp/auction_edititem.asp, line 151



Here is line 151
set rsEdit=my_Conn.Execute(strSql)

And again, since auction_edititem.asp is a small file, I'll just share the entire file.



<%
'#################################################################################
'## 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.7 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
		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

	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

			strSql="SELECT * FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID & " AND (SELLER=" & SELLER & " OR SELLER=" & intAdminMemberID & ")"
			set rsEdit=my_Conn.Execute(strSql)
			if not rsEdit.EOF then
				strName = rsEdit("ItemName")
				curMin = rsEdit("CurrentBid")
				curOpening = rsEdit("OPENINGBID")
				strStartDate = rsEdit("StartDate")
				strLength = chkDate(rsEdit("EndDate"), " " ,true)
				strDesc = rsEdit("ItemDesc")
				strImage = rsEdit("ImgURL")
				rsEdit.close
				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 strImage = "" or strImage = "http://" then
					Response.Write	"			 </p>" & vbNewLine
				else
					Response.Write	"			<center><img src=""" & strImage & """ width=""400""></center></p>" & vbNewLine
				end if
				Response.Write	"			<hr color=""#cccccc"" size=""1"" noshade>" & vbNewLine & _
						"			<form ACTION=""auction_save.asp?AuctionID=" & AuctionID & """&mode=edit&"" METHOD=""post"" id=""form1"" name=""form1"">" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""strName"" VALUE=""" & strName & """>" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""curMin"" VALUE=""" & curMin & """>" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""curOpening"" VALUE=""" & curOpening & """>" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""strLength"" VALUE=""" & strLength & """>" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""strStartDate"" VALUE=""" & strStartDate & """>" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""strDesc"" VALUE=""" & strDesc & """>" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""strImage"" VALUE=""" & strImage & """>" & vbNewLine & _
						"				<center>" & vbNewLine
					
					if curMin = curOpening then
						Response.Write	"				<input TYPE=""submit"" NAME=""button"" VALUE=""" & strLang_Auction_00206 & """ id=""submit2"" name=""submit2""></center>" & vbNewLine
					end if
				Response.Write	"			</form>" & vbNewLine & _
						"			</font>" & vbNewLine & _
						"		</td>" & vbNewLine & _
						"	</tr>" & vbNewLine & _
						"</table>" & vbNewLine			
			else
				set rsEdit=Nothing
				Response.Redirect "auction.asp"
				Response.End
			end if
		elseif Request.QueryString("Mode")="delete" then

			Response.Write	"<center><br />" & vbNewLine

			strSql="SELECT * FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID & " AND (SELLER=" & SELLER & " OR SELLER=" & intAdminMemberID & ")"
			set rsDeleteName=my_Conn.Execute(strSql)

			if Request.QueryString("do") = "remove" and AuctionID <> 0 Then

				if MLEV = 4 then
					strSql="DELETE * FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID = " & AuctionID
					' response.write strSql
					set rsEdit=my_Conn.Execute(strSql)
					set rsEdit=Nothing
				else
					strSql="DELETE * FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID = " & AuctionID & " AND (SELLER=" & SELLER & ")"
					' response.write strSql
					set rsEdit=my_Conn.Execute(strSql)
					set rsEdit=Nothing
				end if
				strSql="DELETE * FROM "& strTablePrefix & "AUCTIONBIDS WHERE AUCTIONID = " & AuctionID
				'response.write strSql
				set rsEdit=my_Conn.Execute(strSql)
				set rsEdit=Nothing

				Response.Write	"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><b>" & strLang_Auction_00703 & "</font>" & vbNewLine
        		elseIf Request.Querystring("do") <> "yes" and AuctionID <> 0 Then
				Response.Write	"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_00704 & ": <b>" & rsDeleteName("ITEMNAME") & "</b>?<br />" & vbNewLine & _
						"<a href=""auction_edititem.asp?mode=delete&AuctionID=" & AuctionID & "&do=remove"">" & strLang_Auction_00805 & "</a> | <a href=""auction.asp"">" & strLang_Auction_00806 & "</a></font>" & vbNewLine
			else
				Response.Redirect("auction.asp")
			end if

			Response.Write	"</center><br />" & vbNewLine
		end if			
end if
WriteFooter()
%>



"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts

Posted - 26 May 2014 :  05:31:32  Show Profile
Hello MaGraham (and others),

Now tested and working with MySQL. Please download the version that I just uploaded then. Let me know how it goes.

Cheers,

David Greening
Go to Top of Page

Maxime
Average Member

France
521 Posts

Posted - 26 May 2014 :  09:06:47  Show Profile  Visit Maxime's Homepage
Hello David,

You auction_langage.asp page in French please. Otherwise how to create one without making mistakes. I am very bad developer

Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)

Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts

Posted - 26 May 2014 :  11:56:22  Show Profile

I receive an error when using your link and trying to access the "Auction Mod" download, David.


"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

Maxime
Average Member

France
521 Posts

Posted - 26 May 2014 :  14:09:50  Show Profile  Visit Maxime's Homepage
the site is down snitzbitz.com

Cordially,
Maxime

Taxation consists in so plucking the goose to get the most out of feathers with the least possible cries.(Jean-Baptiste Colbert)

Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts

Posted - 26 May 2014 :  15:55:31  Show Profile
Hello MaGraham,

Until SnitzBitz.com is back up, please try this link: Auction 2.7 (revised)

Hello Maxime,

There is a file called auction_language.asp where you can change it to be French as I have no idea on how to translate from English without using Google Translate and that is where all the following came from:

<%
'#################################################################################
'## 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.7 for Snitz Forums v3.4.07
'## Author: David Greening (Classicmotorcycling)
'##
'## File: auction_language_french.asp
'##
'## Get the latest version of this MOD at
'## http://www.snitzbitz.com/mods/
'#################################################################################

'###### Auction - auction_category.asp ######'
strLang_Auction_Currency = "$"
strLang_Auction_00000 = "enchères"
strLang_Auction_00001 = "Item"
strLang_Auction_00002 = "Enchère"
strLang_Auction_00003 = "enchère se termine à"
strLang_Auction_00004 = "Il n'y a pas de ventes Articles énumérées dans cette catégorie"
strLang_Auction_00005 = "en vente un objet à vendre"
strLang_Auction_00006 = "Vous devez être connecté pour utiliser la zone d'enchères"
strLang_Auction_00007 = "Non Catégorie sélectionnée"
strLang_Auction_00008 = "Catégorie d'enchères"
strLang_Auction_00009 = "La vente est terminée"

'###### Auction - auction_sellItem.asp ######'
strLang_Auction_00100 = "endre aux enchères"
strLang_Auction_00101 = "Nom d'objet"
strLang_Auction_00102 = "Description de l'objet"
strLang_Auction_00103 = "Emplacement de l'image"
strLang_Auction_00104 = "prix de départ"
strLang_Auction_00105 = "Longueur d'enchères"
strLang_Auction_00106 = "3 jours"
strLang_Auction_00107 = "5 jours"
strLang_Auction_00108 = "7 jours"
strLang_Auction_00109 = "10 jours"
strLang_Auction_00110 = "14 jours"
strLang_Auction_00111 = "Ajouter aux Enchères"
strLang_Auction_00112 = "Effacer les modifications"
strLang_Auction_00113 = "Valider les modifications"
strLang_Auction_00114 = "limite a expiré à modifier"
strLang_Auction_00115 = "Choisissez une catégorie"
strLang_Auction_00116 = "Une offre a été faite et ne peut pas être modifié"
strLang_Auction_00117 = "Fin enchères"

'###### Auction - auction_sellItemProcess.asp ######'
strLang_Auction_00200 = "Auction Listing Aperçu"
strLang_Auction_00201 = "S'il vous plaît vérifier votre exactitude des informations, puis cliquez sur "Sauvegarder article" pour ajouter votre enchère ou "Modifier l'élément" pour faire des changements."
strLang_Auction_00202 = "Mise à prix"
strLang_Auction_00203 = "longueur d'enchère "
strLang_Auction_00204 = "jour "
strLang_Auction_00205 = "Sauvegarder Item"
strLang_Auction_00206 = "Modifier l'élément"
strLang_Auction_00207 = "Catégorie choisie"
strLang_Auction_00208 = "Nom d'objet"
strLang_Auction_00209 = "soumission minimal doit être uniquement numérique"

'###### Auction - auction_save.asp ######'
strLang_Auction_00300 = "Sauvegarder enchères"
strLang_Auction_00301 = "Pour afficher la liste des articles en vente , vous devez être un membre du forum."
strLang_Auction_00302 = "Votre article a été ajouté"
strLang_Auction_00303 = "Nouvelle entrée d'enchères"
strLang_Auction_00304 = "Une nouvelle entrée de ventes aux enchères pour"
strLang_Auction_00305 = "s'est produite à"
strLang_Auction_00306 = "Aller et check-out"
strLang_Auction_00307 = "pour voir le nouvel élément répertorié par ID membre"
strLang_Auction_00308 = "Cordialement"
strLang_Auction_00309 = "Webmaster"

'###### Auction - auction_Item.asp ######'
strLang_Auction_00400 = "Voir l'article d'enchères"
strLang_Auction_00401 = "Point d'enchères"
strLang_Auction_00402 = "n'existe pas."
strLang_Auction_00403 = "Point d'enchères"
strLang_Auction_00404 = "La vente aux enchères de cet ouvrage est terminé."
strLang_Auction_00405 = "enchère"
strLang_Auction_00406 = "Item"
strLang_Auction_00407 = "Votre offre"
strLang_Auction_00408 = "enchère"
strLang_Auction_00409 = "Vendeur Commentaires"
strLang_Auction_00410 = "vendeur d'email"
strLang_Auction_00411 = "Mise à prix"
strLang_Auction_00412 = "Mise"
strLang_Auction_00413 = "enchères a commencé"
strLang_Auction_00414 = "extrémités d'appel d'offres"
strLang_Auction_00415 = "Enchère gagnante"
strLang_Auction_00416 = "Outils"
strLang_Auction_00417 = "enchères sur vos propres articles est <b>PAS</b> permis"
strLang_Auction_00418 = "profil pour"

'###### Auction - auction_bidItem.asp ######'
strLang_Auction_00500 = "aux enchères de l'article"
strLang_Auction_00501 = "Votre offre doit être supérieure"
strLang_Auction_00502 = "Vous avez été surenchéri!"
strLang_Auction_00503 = "Il ya un moment , vous étiez le meilleur offrant"
strLang_Auction_00504 = "pour le"
strLang_Auction_00505 = "en vente chez"
strLang_Auction_00506 = "site d'enchères"
strLang_Auction_00507 = "Maintenant, quelqu'un a placé"
strLang_Auction_00508 = "une offre de"
strLang_Auction_00509 = "Vous pouvez augmenter votre enchère"
strLang_Auction_00510 = "en allant dans"
strLang_Auction_00511 = "Merci beaucoup."
strLang_Auction_00512 = "Votre candidature a été enregistrée . Merci ! Vous serez envoyé par courriel si et quand vous êtes surenchéri."
strLang_Auction_00513 = "AVERTISSEMENT:"
strLang_Auction_00514 = "ne garantit pas la validité d'une vente aux enchères affiché publiquement cotée sur ce service gratuit. acheteurs doivent traiter directement avec le vendeur et non pas avec"
strLang_Auction_00515 = "Tous les achats résultant de ventes aux enchères affichés publiquement cotées sur ce service sont faites au risque de l'acheteur et aucune réclamation ne sera portée contre"
strLang_Auction_00516 = "se réserve le droit de refuser ou de supprimer toute inscription aux enchères à tout moment"

'###### Auction - auction_my_bid.asp ######'
strLang_Auction_00600 = "Mes ventes Items"
strLang_Auction_00601 = "Articles Je vends"
strLang_Auction_00602 = "Articles Je offrez sur"
strLang_Auction_00603 = "Aucun article bidded sur"
strLang_Auction_00604 = "Offre en route"
strLang_Auction_00605 = "Aucune Offre sur le point"

'###### Auction - auction_editItem.asp ######'
strLang_Auction_00700 = "Modifier mes ventes Articles"
strLang_Auction_00701 = "S'il vous plaît confirmer que c'est l'élément que vous souhaitez modifier"
strLang_Auction_00702 = "Fin des enchères Actuellement"
strLang_Auction_00703 = "Enchères article supprimé avec succès."
strLang_Auction_00704 = "Etes-vous sûr de vouloir supprimer cette enchère Item"

'###### Auction - auction.asp ######'
strLang_Auction_00800 = "Catégories de ventes"
strLang_Auction_00801 = "Aucune catégorie trouvée"
strLang_Auction_00802 = "Catégorie supprimé avec succès."
strLang_Auction_00803 = "Ajouter une nouvelle catégorie de ventes"
strLang_Auction_00804 = "Etes-vous sûr de vouloir supprimer cette catégorie de ventes?"
strLang_Auction_00805 = "Oui"
strLang_Auction_00806 = "No"

'###### Auction - auction_sendfeedback.asp ######'
strLang_Auction_00900 = "Envoyer des commentaires"
strLang_Auction_00901 = "Vous devez être connecté pour donner votre avis sur une vente aux enchères"
strLang_Auction_00902 = "ID de l'Enchère invalide"
strLang_Auction_00903 = "doit fournir un ID d'enchères"
strLang_Auction_00904 = "Score d'enchères non valide"
strLang_Auction_00905 = "<b>Erreur:</b> Commentaire ne peut pas dépasser 50 caractères"
strLang_Auction_00906 = "Donner de la rétroaction n'est possible que pour les acheteurs ou les vendeurs après une enchère est terminée"
strLang_Auction_00907 = "Vous devez être soit gagnant ou Vendeur faire modifier pour une vente aux enchères"
strLang_Auction_00908 = "Vous avez déjà laissé une évaluation pour cette <br /> <br /> enchères réactions ne peut être donnée une fois par enchères et ne peut pas être changé par la suite"
strLang_Auction_00909 = "<b>Important:</b> S'il vous plaît entrer un score valide et comment"
strLang_Auction_00910 = "Score"
strLang_Auction_00911 = "(1-10 où 10 est <b>Bon</b> et 1 est pauvre)"
strLang_Auction_00912 = "Commentaire"
strLang_Auction_00913 = "(50 caractères au maximum)"
strLang_Auction_00914 = "Envoyer des commentaires"
strLang_Auction_00915 = "Vos commentaires ont été posté . Merci pour vos commentaires"
strLang_Auction_00916 = "enchères Feedback"
strLang_Auction_00917 = "Vous devez être connecté pour voir enchères Feedback"
strLang_Auction_00918 = "Page de réactions pour"
strLang_Auction_00919 = "<b>Remarque:</b> 5 est le score le plus élevé possible , 1 le plus bas"
strLang_Auction_00920 = "Le plus proche de la réputation de vendeur est de 5.0, le meilleur"
strLang_Auction_00921 = "Nombre de Evaluations reçu comme un vendeur"
strLang_Auction_00922 = "Commentaires Note moyenne comme un vendeur"
strLang_Auction_00923 = "Nombre de Evaluations reçu comme un acheteur"
strLang_Auction_00924 = "Commentaires Note moyenne comme un acheteur"
strLang_Auction_00925 = "Total des points de rétroaction moyenne (acheteur et vendeur)"

'###### Auction - auction_feedback.asp ######'
strLang_Auction_01000 = "s"
strLang_Auction_01001 = "enchères Feedback"
strLang_Auction_01002 = "<b>Erreur:</b> Pour voir feedack enchères , vous devez être connecté"
strLang_Auction_01003 = "<b>Remarque:</b> Un score de <b>10</b> est le score le plus élevé possible avec <b>1</b> étant le score le plus bas"
strLang_Auction_01004 = "Le plus proche de la réputation de vendeur est un <b>10.0</b> le mieux<br />réputation Un score de <b>0</b> signifie que le vendeur n'a pas reçu de réactions actuellement"
strLang_Auction_01005 = "Nombre de Evaluations reçu comme un vendeur"
strLang_Auction_01006 = "Commentaires Note moyenne comme un vendeur"
strLang_Auction_01007 = "5 derniers commentaires reçus en tant que vendeur"
strLang_Auction_01008 = "Nombre de Evaluations reçu comme un acheteur"
strLang_Auction_01009 = "Commentaires Note moyenne comme un acheteur"
strLang_Auction_01010 = "5 derniers commentaires reçus en tant qu'acheteur"
strLang_Auction_01011 = "Total des points de rétroaction moyenne (acheteur et vendeur)"
strLang_Auction_01012 = "a aucun commentaire"
strLang_Auction_01013 = "Invalid ID de membre pour des commentaires"

'###### Auction - auction_admin.asp ######'
strLang_Auction_01100 = "Administration"
strLang_Auction_01101 = "Vous avez besoin d'avoir un nom de catégorie"
strLang_Auction_01102 = "Catégories existantes"
strLang_Auction_01103 = "Nom de la catégorie"
strLang_Auction_01104 = "Description de la catégorie"
strLang_Auction_01105 = "Update Catégorie"
strLang_Auction_01106 = "Ajouter une catégorie"
strLang_Auction_01107 = "Votre Catégorie a été ajouté avec succès."
strLang_Auction_01108 = "Votre Catégorie a été mis à jour avec succès."
strLang_Auction_01109 = "Cliquez ici"
strLang_Auction_01110 = "de continuer à les fonctions d'administration de Catégorie."

'##### Auction - auction_bidders.asp #####'
strLang_Auction_01200 = "enchérisseurs"
strLang_Auction_01201 = "Enchère"
strLang_Auction_01202 = "Enchères en route"
strLang_Auction_01203 = "appel d'offres Ends"
strLang_Auction_01204 = "soumissionnaire"
strLang_Auction_01205 = "Gagner soumissionnaire"
strLang_Auction_01206 = "enchères introuvable"
strLang_Auction_01207 = "Temps de candidature"
strLang_Auction_01208 = "offres ne peut être considérée par le vendeur."
strLang_Auction_01209 = "Montant de"
strLang_Auction_01210 = "E -mail"
strLang_Auction_01211 = "Aucun offres faites."
strLang_Auction_01212 = "Image"
strLang_Auction_01213 = "Point d'enchères"
strLang_Auction_01214 = "soumissionnaire supprimé"

%>

Cheers,

David Greening
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts

Posted - 26 May 2014 :  21:24:56  Show Profile

Upgrade finished without any errors, David.

When on my admin account, I can edit and delete my items without any problem.

When on a regular member's account, I can edit and delete his/her items without any problem. Meaning, I signed on as a regular member and added items and was able to edit and delete the items.

However; when on my admin account, I am unable to delete a member's item. I can edit a member's item without any problem, but just can't delete it.

Here's the error message I receive when attempting to delete a member's item.


error '80020009'

/fp/auction_edititem.asp, line 166



Here are lines 164-170



Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><b>" & strLang_Auction_00703 & "</font>" & vbNewLine
elseIf Request.Querystring("do") <> "yes" and AuctionID <> 0 Then
Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_00704 & ": <b>" & rsDeleteName("ITEMNAME") & "</b>?<br />" & vbNewLine & _
"<a href=""auction_edititem.asp?mode=delete&AuctionID=" & AuctionID & "&do=remove"">" & strLang_Auction_00805 & "</a> | <a href=""auction.asp"">" & strLang_Auction_00806 & "</a></font>" & vbNewLine
else
Response.Redirect("auction.asp")
end if

"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts

Posted - 26 May 2014 :  23:37:30  Show Profile

Try downloading again and just replace the auction_edititem.asp as I had to adjust a little bit.


Cheers,

David Greening
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts

Posted - 27 May 2014 :  06:32:27  Show Profile

Done.

Same error, on line 166 (80020009), when trying to delete a member's listed item, David.


"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley

Edited by - MaGraham on 27 May 2014 08:42:43
Go to Top of Page

Classicmotorcycling
Development Team Leader

Australia
2084 Posts

Posted - 27 May 2014 :  15:48:50  Show Profile
Here is the one that I tested on which works for me (are you sure that you did not use the previous one?):

<%
'#################################################################################
'## 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.7 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
		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

	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

			strSql="SELECT * FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID & " AND (SELLER=" & SELLER & " OR SELLER=" & intAdminMemberID & ")"
			set rsEdit=my_Conn.Execute(strSql)
			if not rsEdit.EOF then
				strName = rsEdit("ItemName")
				curMin = rsEdit("CurrentBid")
				curOpening = rsEdit("OPENINGBID")
				strStartDate = rsEdit("StartDate")
				strLength = chkDate(rsEdit("EndDate"), " " ,true)
				strDesc = rsEdit("ItemDesc")
				strImage = rsEdit("ImgURL")
				rsEdit.close
				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 strImage = "" or strImage = "http://" then
					Response.Write	"			 </p>" & vbNewLine
				else
					Response.Write	"			<center><img src=""" & strImage & """ width=""400""></center></p>" & vbNewLine
				end if
				Response.Write	"			<hr color=""#cccccc"" size=""1"" noshade>" & vbNewLine & _
						"			<form ACTION=""auction_save.asp?AuctionID=" & AuctionID & """&mode=edit&"" METHOD=""post"" id=""form1"" name=""form1"">" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""strName"" VALUE=""" & strName & """>" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""curMin"" VALUE=""" & curMin & """>" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""curOpening"" VALUE=""" & curOpening & """>" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""strLength"" VALUE=""" & strLength & """>" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""strStartDate"" VALUE=""" & strStartDate & """>" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""strDesc"" VALUE=""" & strDesc & """>" & vbNewLine & _
						"				<input TYPE=""hidden"" NAME=""strImage"" VALUE=""" & strImage & """>" & vbNewLine & _
						"				<center>" & vbNewLine
					
					if curMin = curOpening then
						Response.Write	"				<input TYPE=""submit"" NAME=""button"" VALUE=""" & strLang_Auction_00206 & """ id=""submit2"" name=""submit2""></center>" & vbNewLine
					end if
				Response.Write	"			</form>" & vbNewLine & _
						"			</font>" & vbNewLine & _
						"		</td>" & vbNewLine & _
						"	</tr>" & vbNewLine & _
						"</table>" & vbNewLine			
			else
				set rsEdit=Nothing
				Response.Redirect "auction.asp"
				Response.End
			end if
		elseif Request.QueryString("Mode")="delete" then

			Response.Write	"<center><br />" & vbNewLine

			strSql="SELECT * FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID = " & AuctionID
			set rsDeleteName=my_Conn.Execute(strSql)

			if Request.QueryString("do") = "yes" and AuctionID <> 0 Then

				if MLEV = 4 then
					strSql="DELETE FROM " & strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID = " & AuctionID
					' response.write strSql
					set rsEdit=my_Conn.Execute(strSql)
					set rsEdit=Nothing
				else
					strSql="DELETE FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID = " & AuctionID & " AND SELLER = " & MemberID
					' response.write strSql
					set rsEdit=my_Conn.Execute(strSql)
					set rsEdit=Nothing
				end if
				strSql="DELETE FROM "& strTablePrefix & "AUCTIONBIDS WHERE AUCTIONID = " & AuctionID
				'response.write strSql
				set rsEdit=my_Conn.Execute(strSql)
				set rsEdit=Nothing

				Response.Write	"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><b>" & strLang_Auction_00703 & "</font>" & vbNewLine
        		elseIf Request.Querystring("do") <> "yes" and AuctionID <> 0 Then
				Response.Write	"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_00704 & ": <b>" & rsDeleteName("ITEMNAME") & "</b>?<br />" & vbNewLine & _
						"<a href=""auction_edititem.asp?mode=delete&AuctionID=" & AuctionID & "&do=yes"">" & strLang_Auction_00805 & "</a> | <a href=""auction.asp"">" & strLang_Auction_00806 & "</a></font>" & vbNewLine
			else
				Response.Redirect("auction.asp")
			end if

			Response.Write	"</center><br />" & vbNewLine
		end if			
end if
WriteFooter()
%>

Cheers,

David Greening
Go to Top of Page

MaGraham
Senior Member

USA
1297 Posts

Posted - 27 May 2014 :  16:05:44  Show Profile

I downloaded it using your link earlier, David, and it failed to work.

But using what you just now posted, that worked for me.

Thank you so much!

I really do appreciate your hard work on this!


"Do all the good you can, by all the means you can, in all the ways you can, at all the times you can, to all the people you can, as long as ever you can." - John Wesley
Go to Top of Page
Page: of 3 Previous Topic Topic Next Topic  
Next Page
 New Topic
 Printer Friendly
Jump To:
Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.39 seconds. Powered By: Snitz Forums 2000 Version 3.4.07