In "auction_edititem.asp", look for the following line (appx 131):

			strSql="DELETE * FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID="&AuctionID&" AND (SELLER="&SELLER&" OR SELLER="&intAdminMemberID&")"

Change it to say:

			if mLev < 3 then
				strSql="DELETE * FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID & " AND (SELLER=" & SELLER & ")"
			else
				strSql="DELETE * FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID
			end if


Then look for the following line (appx 88):

			strSql="SELECT * FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID & " AND (SELLER=" & SELLER & " OR SELLER=" & intAdminMemberID & ")"

Change it to say:  

			if mLev < 3 then
				strSql="SELECT * FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID & " AND (SELLER=" & SELLER & ")"
			else
				strSql="SELECT * FROM "& strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & AuctionID
			end if

Then, in "auction_my_bid.asp", look for the following line (appx 105):

		if strBuyer > "" or MemberID = intAdminMemberID then

Change it to say:

		if strBuyer > "" or mLev > 2 then

In "auction_biditem.asp", look for the following line (appx 79):

Application.Lock

ABOVE IT, insert the following:

'	Prevent Seller from Bidding
strSql="SELECT SELLER FROM " & strTablePrefix & "AUCTIONITEMS WHERE AUCTIONID=" & intAuctionID
set rsCheck=my_Conn.Execute(strSql)
if not rsCheck.EOF then
	intSeller=cIint(rsCheck("SELLER"))
	rsCheck.Close
end if
set rsCheck = Nothing
if intSeller = MEMBERID then
	Response.Write	"<table border=""0"" width=""100%"" cellspacing=""0"" cellpadding=""0"" align=""center"">" & vbNewLine & _
		"	<tr>" & vbNewLine & _
		"		<td align=""center"">" & vbNewLine & _
		"			<font color=""" & strDefaultFontColor & """ size=""" & strDefaultFontSize & """ face=""" & strDefaultFontFace & """>" & strLang_Auction_00517 & "" & vbNewLine & _
		"			</font>" & vbNewLine & _
		"		</td>" & vbNewLine & _
		"	</tr>" & vbNewLine & _
		"</table>" & vbNewLine & _
		"<meta http-equiv=""Refresh"" content=""3; URL=auction.asp"">" & vbNewLine
	Response.End
end if


Then, in "auction_language.asp", look for the following line (appx 130):

strLang_Auction_00516 = "reserves the right to refuse or delete any auction listing at any time"

Below it, insert the following:

strLang_Auction_00517 = "Cannot bid on own auction."