Snitz Forums 2000
Snitz Forums 2000
Home | Profile | Register | Active Topics | Members | Search | FAQ
 All Forums
 Snitz Forums 2000 MOD-Group
 MOD Add-On Forum (W/Code)
 MOD: Auction v1.2

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!
Before posting, make sure you have read this topic!

Screensize:
UserName:
Password:
Format Mode:
Format: BoldItalicizedUnderlineStrikethrough Align LeftCenteredAlign Right Horizontal Rule Insert HyperlinkInsert EmailInsert Image Insert CodeInsert QuoteInsert List
   
Message:

* HTML is OFF
* Forum Code is ON
Smilies
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Clown [:o)]
Black Eye [B)] Eight Ball [8] Frown [:(] Shy [8)]
Shocked [:0] Angry [:(!] Dead [xx(] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
Check here to subscribe to this topic.
   

T O P I C    R E V I E W
Classicmotorcycling Posted - 26 April 2010 : 04:37:45
Hello,

I was asked by a few of my users for some Auction software on the site, so I put together a small Auction Mod v1.2

The Auction Mod v1.2 is easy to install and with 10 being easy and 1 being hard, this is a 10.

The Auction Mod v1.2 is fully intergrated into Snitz and e-mails others that have bidded on an item so they (hopefully) don't miss out on the item. I have also allowed visitors to go to the first page of the Auction Mod v1.2 but no further and need to be a logged in member to view items and bid. This has been tested on and MS SQL Database and MS Access only.

I have plans to add in the next release (v2.0) to have Categories, Admin Interface and the abillity to upload images.

Please read the readme in the download and if you have issues, please post in the Help: MOD Implementation forum. E-mails will not be returned. Enjoy.
15   L A T E S T    R E P L I E S    (Newest First)
Classicmotorcycling Posted - 20 June 2010 : 03:14:26
Feedback function was already in Version 2
quote:
Originally posted by Carefree

I incorporated the feedback function from Kyodai and image upload support, both internationalized. Zip File

Carefree Posted - 19 June 2010 : 22:04:38
I incorporated the feedback function from Kyodai and image upload support, both internationalized. Zip File
Classicmotorcycling Posted - 18 June 2010 : 05:36:17
Given that version 1.2 has been taken over by 2.0 and avaliable at SnitzBitz, and now are 2 copies of the mod floating about, I will not be doing any more modifications, so Carefree do with it what you like as you are anyway.
Carefree Posted - 17 June 2010 : 22:49:48
Cannot reach the server where the original zip file was stored (it will be offline until sometime in July), so I stuck a copy on MediaFire.

There is a necessary change to auction_item.asp to enable paypal link, etc. to function.


<%
'#################################################################################
'## 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_item.asp
'##
'## Get the latest version of this MOD at
'## http://www.snitzbitz.com/mods/
'#################################################################################
%>
<!--#INCLUDE FILE="config.asp"-->
<!--#INCLUDE FILE="inc_sha256.asp"-->
<!--#INCLUDE FILE="inc_header.asp" -->
<!--#INCLUDE FILE="inc_func_posting.asp"-->
<!--#INCLUDE FILE="auction_language.asp" -->
<%
Response.Write	"<table border=""0"" width=""100%"" cellpadding=""4"" cellspacing=""1"">" & vbNewLine & _
	"	<tr>" & vbNewLine & _
	"		<td colspan=""2"" valign=""top"" nowrap>" & vbNewLine & _
	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """>" & getCurrentIcon(strIconFolderOpen,"","") & " <a href=""default.asp"">All Forums</a><br />" & vbNewLine & _
	"		  		" & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " <a href=""auction.asp"">" & strLang_Auction_00000 & "</a><br />" & vbNewLine & _
	"		  		" & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " " & strLang_Auction_00400 & "</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_00400 & "</font></b>" & vbNewLine & _
		"		</td>" & vbNewLine & _
		"	</tr>" & vbNewLine & _
		"	<tr>" & vbNewLine & _
		"		<td width=""100%"" valign=""top"" align=""center""><p> </p>" & vbNewLine
    'get form information
	intAuctionID = cInt(Request.Querystring("IntAuctionID"))
	strsql = "SELECT * FROM " & strMemberTablePrefix & "AUCTIONITEMS WHERE AUCTIONID="& intAuctionID
	set rsItem = my_conn.execute(strsql)
	if rsItem.EOF then
		Response.Write "<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_00401 & " <b><font color=""#AA0000"">"& intAuctionID &"</font></b> " & strLang_Auction_00402 & "</font><br /><br />"
	else
		strName = rsItem("itemName")
		strDesc = rsItem("itemDesc")
		strImage = rsItem("imgURL")
		curMin = rsItem("openingBid")
		curCurrent = rsItem("currentBid")
		dtmStart = rsItem("startDate")
		dtmEnd = rsItem("endDate")
		intSeller = rsItem("seller")
		endAuction = DateToStr(strForumTimeAdjust)
		curNext = curCurrent + 1.00
		strtext = "SELECT M_EMAIL, M_NAME FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID=" & intSeller
		set rsEmail = My_Conn.Execute(strtext)
		strEmail = cstr(rsEmail("M_EMAIL"))
		strSellerName = cstr(rsEmail("M_NAME"))
		rsEmail.Close
		set rsEmail = Nothing
		strSql = "SELECT * FROM " & strTablePrefix & "AUCTIONBIDS WHERE AuctionID=" & intAuctionID
		set rsBuyer = my_Conn.Execute(strSql)
		if not rsBuyer.EOF then
			intBuyer = rsBuyer("Buyer")
			rsBuyer.close
		end if
		set rsBuyer = Nothing
		if intBuyer > 0 then
			strSql = "SELECT M_EMAIL, MEMBER_ID, M_NAME FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID=" & intBuyer
			set rsBuyer = my_Conn.Execute(strSql)
			if not rsBuyer.EOF then
				strBuyerMail = rsBuyer("M_EMAIL")
				strBuyerName = rsBuyer("M_NAME")
				strBuyer = rsBuyer("MEMBER_ID")
				rsBuyer.close
			end if
			set rsBuyer = Nothing
		end if
		rsItem.Close
		set rsItem = Nothing
		Response.Write	"<p align=""center""><font face=""" & strDefaultFontFace & """ size=""" & strHeadFontSize & """ color=""" & strDefaultFontColor & """><b>" & strName & "</b></font>" & vbNewLine & _
			"<table width=""100%"" cellpadding=""4"" cellspacing=""0"" border=""0"">" & vbNewLine
		if strImage <> "" and strImage <> "http://" then
			Response.Write	"	<tr>" & vbNewLine & _
				"		<td width=""30%"" valign=""top"" align=""center"">" & vbNewLine & _
				"			<img src=""" & strImage & """ align=""center"" width=""500"" alt=""" & strLang_Auction_00403 & ": " & strName & """>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine
		end if
		Response.Write	"	<tr valign=""middle"">" & vbNewLine & _
			"		<td width=""70%"">" & vbNewLine & _
			"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & formatStr(strDesc) & "</font>" & vbNewLine & _
			"		</td>" & vbNewLine & _
			"	<tr>" & vbNewLine & _
			"</table>" & vbNewLine & _
			"<hr color=""#cccccc"" size=""1"" noshade>" & vbNewLine & _
			"<center><table width=""70%"" cellpadding=""4"" cellspacing=""0"" border=""0"">" & vbNewLine & _
			"	<tr valign=""middle"">" & vbNewLine & _
			"		<td width=""30%"">" & vbNewLine
		If dtmEnd <= endAuction then
			Response.Write	"<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """>" & strLang_Auction_00404 & "</font><br /><br />" 
		else
			Response.Write	"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
				"	<tr>" & vbNewLine & _
				"		<td width=""30%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_00405 & vbNewLine & _
				"			</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td width=""70%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_00406 & " #" & intAuctionID & "<br /><br/><b>" & strLang_Auction_00405 & "</b><br /><br />" & strLang_Auction_00409 & ": <a href=""auction_feedback.asp?FBID=" & intSeller & """>" & strSellerName & "</a>" & vbNewLine & _
				"				<form action=""auction_bidItem.asp"" method=""post"" id=""form1"" name=""form1"">" & vbNewLine & _
				"					<input type=""hidden"" name=""intAuctionID"" value=""" & intAuctionID & """>" & vbNewLine & _
				"					<input type=""hidden"" name=""curCurrent"" value=""" & curCurrent & """>" & vbNewLine & _
				"					<input type=""hidden"" name=""strSeller"" value=""" & strSeller & """>" & vbNewLine & _
				"					<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00407 & ":</b> " & strLang_Auction_Currency & "</font><input type=""text"" name=""curBid"" size=""10"" value=""" & formatNumber(curNext, 2) & """></font><br />" & vbNewLine & _
				"					<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00408 & ": " & strLang_Auction_Currency & "1.00</b></font><br />" & vbNewLine
			if intSeller <> MemberID then
				Response.Write	"					<p><input type=""submit"" value=""" & strLang_Auction_00420 & """ id=""submit1"" name=""submit1""></p>" & vbNewLine
			end if
			Response.Write	"				</form>" & vbNewLine
		end if
		If dtmEnd < endAuction then
			Response.Write	"<center>" & vbNewLine & _
				"<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""600"">" & vbNewLine & _
				"	<tr>" & vbNewLine & _
				"		<td width=""30%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00409 & ":</b></font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td width=""70%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><a href=""auction_feedback.asp?FBID=" & intSeller & """>" & strSellerName & "</a></font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine
			if intSeller <> MemberID then
				Response.Write	"	<tr>" & vbNewLine & _
					"		<td width=""30%"">" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00410 & ":</b></font>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"		<td width=""70%"">" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><a href=""JavaScript:openWindow7('pop_mail.asp?id=" & intSeller & "')"">" & strSellerName & "</a></font>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"	</tr>" & vbNewLine & _
					"	<tr>" & vbNewLine & _
					"		<td width=""30%"">" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><a href=""auction_sendfb.asp?FBID=" & intAuctionID & """><b>" & strLang_Auction_00423 & "</b></a></font>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"		<td width=""70%""> " & vbNewLine & _
					"		</td>" & vbNewLine & _
					"	</tr>" & vbNewLine
			end if
			Response.Write	"	<tr>" & vbNewLine & _
				"		<td width=""30%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00411 & ":</b></font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td width=""70%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_Currency & "" & formatNumber(curMin, 2) & "</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine
		end if
		Response.Write	"	<tr>" & vbNewLine & _
			"		<td width=""30%"">" & vbNewLine
		if intBuyer > 0 then
			Response.Write	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><b>" & strLang_Auction_00415 & ":</b></font>" & vbNewLine
		else
			Response.Write	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><b>" & strLang_Auction_00412 & ":</b></font>" & vbNewLine
		end if
		Response.Write	"		</td>" & vbNewLine & _
			"			<td width=""70%"">" & vbNewLine
		if dtmEnd > endAuction or intBuyer <> MemberID then
			if dtmEnd < endAuction AND (intBuyer=0 or not isNumeric(intBuyer)) then
				Response.Write	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_00424 & vbNewLine
			else
				Response.Write	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_Currency & "" & formatNumber(curCurrent, 2) & "</font>" & vbNewLine
			end if
		else
			strSql="SELECT PAYPAL_ACCT FROM " & strMemberTablePrefix & "MEMBERS WHERE MEMBER_ID = " & intSeller
			set rsSeller=my_Conn.Execute(strSql)
			if not rsSeller.EOF then
				strPayPal = rsSeller("PAYPAL_ACCT")
				rsSeller.close
			end if
			set rsSeller = Nothing
			Response.Write	strLang_Auction_Currency & "" & formatNumber(curCurrent, 2) & "</font><font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """><b>      <a href=""https://www.paypal.com/cgi-bin/webscr?cmd=_xclick&business="&strPayPal&"&item_name="&strName&"&amount="&cStr(CurCurrent)&"&shipping=0%2e00&no_shipping=0&no_note=1&tax=0%2e00¤cy_code="&strLang_Auction_00007&"&lc=US&bn=PP%2dBuyNowBF&charset=UTF%2d8"" target=""_blank"">"&strLang_Auction_00419&"</a></b></font></td>" & vbNewLine
		end if
		Response.Write	"		</td>" & vbNewLine & _
			"	</tr>" & vbNewLine
		if (intSeller = MemberID) and (dtmEnd <= endAuction) and (intBuyer > 0) then
			Response.Write	"	<tr>" & vbNewLine & _
				"		<td width=""30%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><a href=""auction_sendfb.asp?FBID=" & intAuctionID & """><b>" & strLang_Auction_00423 & "</b></a></font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td width=""70%""> " & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine & _
				"	<tr>" & vbNewLine & _
				"		<td width=""30%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><b>" & strLang_Auction_00417 & ":</b></font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td width=""70%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><a href=""auction_feedback.asp?FBID=" & intBuyer & """>" & strBuyerName & "</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"	</tr>" & vbNewLine
			if intBuyer > 0 then
				Response.Write	"	<tr>" & vbNewLine & _
					"		<td width=""30%"">" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strHiLiteFontColor & """><b>" & strLang_Auction_00418 & ":</b></font>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"		<td width=""70%"">" & vbNewLine & _
					"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """><a href=""JavaScript:openWindow7('pop_mail.asp?id=" & intBuyer & "')"">" & strBuyerName & "</a></font>" & vbNewLine & _
					"		</td>" & vbNewLine & _
					"	</tr>" & vbNewLine
			end if
		end if
		Response.Write	"	<tr>" & vbNewLine & _
			"		<td width=""30%"">" & vbNewLine & _
			"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_00413 & ":</font>" & vbNewLine & _
			"		</td>" & vbNewLine & _
			"		<td width=""70%"">" & vbNewLine & _
			"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & chkDate(dtmStart, " " ,true) & "</font>" & vbNewLine & _
			"		</td>" & vbNewLine & _
			"	</tr>" & vbNewLine
		if dtmEnd <= endAuction then
			strBid = strLang_Auction_00422
		else
			strBid = strLang_Auction_00414
		end if
		Response.Write	"	<tr>" & vbNewLine & _
			"		<td width=""30%"">" & vbNewLine & _
			"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strBid & ":</font>" & vbNewLine & _
			"		</td>" & vbNewLine & _
			"		<td width=""70%"">" & vbNewLine & _
			"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & chkDate(dtmEnd, " " ,true) & "</font>" & vbNewLine & _
			"		</td>" & vbNewLine & _
			"	</tr>" & vbNewLine
		myTimeNow = now()
		myTimeEnd = StrtoDate(dtmEnd)
		If dtmEnd >= endAuction then
			Response.Write	"	<tr valign=""middle"">" & vbNewLine & _
				"		<td width=""30%"">" & vbNewLine & _
				"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & strLang_Auction_00421 & ":</font>" & vbNewLine & _
				"		</td>" & vbNewLine & _
				"		<td width=""70%"">" & vbNewLine
			if DateDiff("n",MyTimeNow,MyTimeEnd)/60=>1 then
				Response.Write	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>" & DateDiff("h",MyTimeNow,MyTimeEnd)-1 &" hours, " & vbNewLine & _
				60-(int(DateDiff("n",MyTimeEnd,MyTimeNow))-(DateDiff("h",MyTimeEnd,MyTimeNow)*60)) & " minutes</font>" & vbNewLine
			else
				Response.Write	"			<font face=""" & strDefaultFontFace & """ size=""" & strDefaultFontSize & """ color=""" & strDefaultFontColor & """>"& int(DateDiff("n",MyTimeNow,MyTimeEnd))& " minutes</font>" & vbNewLine
			end if
			Response.Write	"							</td>" & vbNewLine & _
				"						</tr>" & vbNewLine
		end if
		Response.Write	"					</table>" & vbNewLine & _
			"				</center>" & vbNewLine & _
			"			</font>" & vbNewLine & _
			"		</td>" & vbNewLine & _
			"	</tr>" & vbNewLine & _
			"</table></center>" & vbNewLine
 	end if
	Response.Write	"		</td>" & vbNewLine & _
		"	</tr>" & vbNewLine & _
		"</table>" & vbNewLine & _
		"<hr color=""#cccccc"" size=""1"" noshade>" & vbNewLine
end if
WriteFooter
%>
kyodai Posted - 09 May 2010 : 17:59:55
David, i have finished the feedback system. Had to weed out loads of bugs today, but it's working fine, I have learned so much when making this i am already a little bit proud on it.

I know it is probably not fitting for your mod - you said you dont want a second ebay, but i think it would make other people happy as well to have feedback in their auctions. At least my users liked the idea and i think it helps making trades a little bit safer.

So my question is - if you don't want this for your mod - can i post it as an addon or "hack" of your mod in a seperate thread? I am still sorry for hijacking your mod and now i still want to give something back to this great community but do it better than in my previous attempt. I would like to ask for your permission for doing so.
Classicmotorcycling Posted - 09 May 2010 : 07:42:19
Look guys (gals), it is over and done, had my little spit. I have got the categories working and just about to work on the admin side of it, so an Admin can go and edit/delete not only the items listed, but the categories.

I have it running here: Classic Motorcycling Australia (not the test site)

I have a test site here: Testing MySQL (you can set up an account to test if you like)

Both of these have the categories, no admin yet.
kyodai Posted - 08 May 2010 : 23:09:12
David, i can only apologize for what i have done. I hope you can forgive me, I am just a stupid noob who yet has only asked a handfull of asp questions and learned a lot by his own. I admit that i did not think enough about what you want the mod to be. I apologize from my whole heart for being such an egocentric and not reading enough around here to know how thinks work. I really didn't intend to break your mods integrity and my additions were badly coded anyways.

I also would love to see more of this mod. I have had so much fun with it, i made many additions for it with much work, i barely ever learned so much asp as when working with this mod. I still totally love it. I just finished a rating system, very very basic in 1 table as it has only a score of 1-5, a comment and displays the average for a user as seller, buyer and in total. And i made it so eneded auctions are displayed in red and saying ENDED: before the date. And i took much time to make a good function that displays time left for an auction as DD:HH:MM, this was sooo hard for me to get working as it should. I also made a fix as it displayed the wrong bid as a winner in an auction.

I am currently working to make the last 5 comments as a buyer and seller displayed on the feedback page. Next imma integrate an image uploader from my backend php site (I have a cheap php backend host for file, video and image uploads). I think i might also look into a buy-it-now button.

I must admit i am a really bad coder as i didn't use the language system, i only have english on my site anyways. I wish i was better at webdesign, my stuff works but it looks terrible i must admit. I already turned it from "MG" to "Yuck" by adjusting fonts and size, but I am not that good to make it look nice and tidy like on ebay or so.


Don't worry i will not post a zip file or so. I did not only learn in term of asp, but also on netiquette here. =) If you want i can send you the files, but i would understand if you don't after how clumsy i have been.
Todd Posted - 07 May 2010 : 21:54:31
Good luck with it on your forum. I'm going to take it off mine as I'm not nearly the coding type many of you are. Sorry to have upset you with my suggestions.
Classicmotorcycling Posted - 07 May 2010 : 08:23:24
When and if I decide to go back to it, I will only be using the MOD on my sites and with selected people that I think would not take it away from what it was meant to be.

The MOD was not meant to be a replacement for "eBay" as some have asked for by wanting a feedback and giving users a score and some of those functions will simply not work in "Classic ASP". Also there is a "Watch" function in the current release for MS SQL and MS Access users, as it shows Items that you have placed a bid on.

As for editing the Auction item and the time changing, it is only fair that the Auction restarts from that time as you have then changed the rules by changing the items details, be it the description or the price, but it is not that hard to add that if the time goes say an hour past it being added, it is not to be edited again.
Todd Posted - 06 May 2010 : 23:35:02
It's a shame this seems to be dropped right now. I hope the author has a change of heart. I think so many people were just very very excited to finally see something like this and jumped right onto it.

kyodai Posted - 05 May 2010 : 12:09:06
Sorry if it was me who got the whole thing crashing here. I never intended to insult confuse or betray anyone. I am this kinda idiot guy who really thought it would help this mod if i showed interest and at least TRIED to be part of it and though my asp abilities are rather ridiculous somehow contribute towards it. I really thought it was a good idea and give this mod some "community" feeling like i knew it from other open source projects. Must be my curse that i have reached the exact opposite of that and even if it's too late now I'd like to apologize for that. I really didn't have any evil or malicious intentions, i hope at least some of you can believe me.
bobby131313 Posted - 05 May 2010 : 09:05:07
I didn't figure you'd be too happy about it.
Classicmotorcycling Posted - 05 May 2010 : 03:13:21
Well, I am going to step away from making MODs now as everytime I do, people do exactly that, end up with multiple zips and getting confused from what I originally wanted for the MOD.

So I am going to let the others carry on with it. At least when I made changes to others MODs, it was after asking them if it was OK and not just "upset" the original person who made it. (my little dummy spit)
bobby131313 Posted - 04 May 2010 : 19:55:32
I just realized I may have come off as ungrateful, I certainly didn't mean to. I'm very grateful for the poeple that write the mods.

It's just that with 3 different people now making thier own changes and zipping them on thier own... how do we know who included what and where...
kyodai Posted - 04 May 2010 : 19:21:54
Another important info: I just messaged my lucky buyer who won an auction for 18 USD (it started at 1 USD) and he said he only did the initial bid of 2 USD. Normally i would have said "OMG LIAR, IMMA REPORT U TO EBAY", but in this case i fear it might be a bug. That possible?

Snitz Forums 2000 © 2000-2021 Snitz™ Communications Go To Top Of Page
This page was generated in 0.08 seconds. Powered By: Snitz Forums 2000 Version 3.4.07