Auction
posts
Look here for Current Auctions
Upcoming Auctions
related to the Building Industry.
Tools, vehicles, machinery and more.
Post
your upcoming Auction Events here its FREE!
Create a Web page
to stand out from the crowd.
Press the  button to see more details and Contact
information
You can update
or delete an existing listing by pressing the update link next to a listing.
You must be logged in to see details, see the update links or to make
an update.
| |
Headline |
Sponsor |
Description |
Value Range |
Type |
Location |
Date(s) |
Post
Date |
|
<%
' connect to the database
dim conn ' hold the connect to the database
'dim vSQL ' holds the sql statement to execute
dim vRec ' holds the record from query.
set conn = server.CreateObject("adodb.connection")
conn.Open Application("DBName"),Application("DBUser"),Application("DBPswd")
' set field vars
dim vQryRec_id, vSponsor, vHeadline, vDescrip, vValuR, vType, vContact
dim vPostTm, vToWeb, vToList, vToPriv, vName, vLocat, vCreateDt, vDates
dim vSuccess, vUpdateBut, vNoRecords, vGoBut
vLoginName = Session("login_name")
vLogin_id = Session("login_id")
' visit to page - get info from db
set vRec = conn.Execute (" select * from auctions where (verifyPost = 'checked') and (to_web = 'checked') and (ok_2Distrib = 'yes') and (spam_chck = 'False') order by created desc")
if( vRec.EOF ) then
vNoRecords = "Sorry but there are no records posted now. Check back again."
end if
dim vColors(2) ' the number of colors. must be even
vColors(0) = "#D7F1FF" ' color 1
vColors(1) = "" ' color 2
dim vLoopCounter, vColor
vLoopCounter = 0 ' count the loops
do while( Not vRec.Eof)
vQryRec_id = vRec("auction_id")
vSponsor = vRec("sponsor")
vHeadline = left(vRec("headline"),30)
vDescrip = left(vRec("descrip"),30)
vValuR = left(vRec("value_rng"),20)
if(vValuR = "")then
vValuR = " "
end if
vType = left(vRec("type"),15)
vDates = left(vRec("dates"),15)
if(vDates = "")then
vDates = " "
end if
vName = vRec("ad_name")
if(vName = "")then
vName = " "
end if
vContact = vRec("contact_inf")
vLocat = left(vRec("location"),20)
if(vLocat = "")then
vLocat = " "
end if
vCreateDt = left(vRec("created"),4)
vUpdateBut=" "
if (vLogin_id = vRec("login_id"))then
vUpdateBut = "(update)"
end if
vGoBut = ""
if(vLogin_id = 0)then
vGoBut =""
end if
vColor= vColors(vLoopCounter and 1)
%>
| <%=vGoBut%> |
<%=vHeadline%> |
<%=vSponsor%> |
<%=vDescrip%> |
<%=vValuR%> |
<%=vType%> |
<%=vLocat%> |
<%=vDates%> |
<%=vCreateDt%> |
<%=vUpdateBut%> |
<%
vLoopCounter = vLoopCounter + 1 ' keep count
vRec.movenext
loop
%>
| <%=vNoRecords%> |
|
