Snitz Forums 2000 - Auction 2.0

Author

Topic

Page: of 11

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 30 July 2010 : 07:27:07

Wish I could (truthfully) claim that I had never forgotten to do something. lol

Classicmotorcycling
Development Team Leader

Australia
2084 Posts

Posted - 30 July 2010 : 08:20:06

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.

Cheers,

David Greening

bobby131313
Senior Member

USA
1163 Posts

Posted - 30 July 2010 : 10:21:34

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!

Switch the order of your title tags

bobby131313
Senior Member

USA
1163 Posts

Posted - 30 July 2010 : 15:27:58

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

Switch the order of your title tags

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 30 July 2010 : 17:49:34

Maybe because no check for EOF was made on the sell item page.

"auction_sellitem.asp"


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

USA
1163 Posts

Posted - 30 July 2010 : 18:14:50

That went back to the form not showing, here's the current file...

http://www.coincommunity.com/forum/auction_sellItem.txt

Switch the order of your title tags

Classicmotorcycling
Development Team Leader

Australia
2084 Posts

Posted - 30 July 2010 : 19:12:29

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.

Cheers,

David Greening

Carefree
Advanced Member

Philippines
4207 Posts

Posted - 30 July 2010 : 19:18:34

Here:


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


Look for this line (appx 79):

		strsql = "SELECT * FROM " & strMemberTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID

After it, insert these:

		Response.Write	strSql
		Response.End

bobby131313
Senior Member

USA
1163 Posts

Posted - 30 July 2010 : 19:43:11

OK, given the explanations, I've changed that button to just do a javascript back like so...


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

Switch the order of your title tags

Edited by - bobby131313 on 30 July 2010 19:43:26

Classicmotorcycling
Development Team Leader

Australia
2084 Posts

Posted - 30 July 2010 : 23:13:11

Works for me, will add it to the download Bobby...

Cheers,

David Greening

bobby131313
Senior Member

USA
1163 Posts

Posted - 31 July 2010 : 08:32:03

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.

Switch the order of your title tags

bobby131313
Senior Member

USA
1163 Posts

Posted - 31 July 2010 : 08:53:54

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


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

Switch the order of your title tags

bobby131313
Senior Member

USA
1163 Posts

Posted - 31 July 2010 : 09:03:48

Hmmmm...... the custom Today/Yesterday mod messing with it probably? My chkDate function has been modified several times.....

Switch the order of your title tags

bobby131313
Senior Member

USA
1163 Posts

Posted - 31 July 2010 : 09:19:41

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

Switch the order of your title tags

bobby131313
Senior Member

USA
1163 Posts

Posted - 31 July 2010 : 09:44:26

OK, that worked fine. It was actually only my chkTime function, didn't play well with the near future.

Switch the order of your title tags

Page: of 11

Topic