Buy
Sell Trade |
|
|
Bargains
Galore for the construction industry and its FREE <%
' 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 conn= Server.CreateObject ("Adodb.connection")
'conn.open "DSN=rexrock_DSN; UID=rexrock_bpcom; pwd=yakado"
' set field vars
dim vHeadlineW, vPriceW, vNoRecordsW, vSQLW
dim vHeadlineR, vPriceR, vNoRecordsR, vSQLR
dim vHeadlineA, vPriceA, vNoRecordsA, vSQLA
%> |
You must
be registered
to post or see details.
Also check Vendor Specials
or Request a Quote on Materials.
|
|
Below are
samples of current ads.
Press on the MORE
button to look at a complete list. |
|
|
|
Want ADs |
See |
Post |
Everything including building materials, vehicles, tools and more. |
|
|
Want
ADs |
Headline |
Price |
<%
' visit to page - get info from db
vSQLW = " select TOP 3 headline, price, descrip from wantads where verifyPost = 'checked' and to_web = 'checked' and ok_2Distrib = 'yes' and spam_chck = 'False' order by created desc"
set vRec = conn.Execute ( vSQLW)
if( vRec.EOF ) then
vNoRecordsW = "Sorry there are no Web Ads posted now. Check back again."
end if
do while( Not vRec.Eof)
vHeadlineW = left(vRec("headline"),25)
if(vHeadlineW = "")then
vHeadlineW = left(vRec("descrip"),25)
end if
vPriceW = left(vRec("price"),10)
if(vPriceW = "")then
vPriceW = " "
end if
%>
<%=vHeadlineW%> |
<%=vPriceW%> |
<%
vRec.movenext
loop
%>
(MORE) |
<%=vNoRecordsW%> |
|
|
|
|
Real Estate |
See |
Post |
Find hot new properties of special interest to Building professionals.
Find that next Spec project to build.
Check out our Real-estate links.
|
|
|
Real
Estate Opportunities |
Headline |
Price |
<%
' visit to page - get info from db
vSQLR = " select TOP 3 headline, price, descrip from realestate where verifyPost = 'checked' and to_web = 'checked' and ok_2Distrib = 'yes' and spam_chck = 'False' order by created desc"
set vRec = conn.Execute ( vSQLR)
if( vRec.EOF ) then
vNoRecordsR = "Sorry there are no Ads posted now. Check back again."
end if
do while( Not vRec.Eof)
vHeadlineR = left(vRec("headline"),25)
vPriceR = left(vRec("price"),10)
%>
<%=vHeadlineR%> |
<%=vPriceR%> |
<%
vRec.movenext
loop
%>
(MORE) |
<%=vNoRecordsR%> |
|
|
|
|
Auctions |
See |
Post |
Find
out what, when, and where.
Search
up to 200 auction sites make your request below.
|
|
|
Auctions
|
Headline |
Description |
<%
' visit to page - get info from db
vSQLA = " select TOP 3 headline, descrip from auctions where verifyPost = 'checked' and to_web = 'checked' and ok_2Distrib = 'yes' and spam_chck = 'False' order by created desc"
set vRec = conn.Execute ( vSQLA)
if( vRec.EOF ) then
vNoRecordsA = "Sorry there are no Auctions posted now. Check back again."
end if
do while( Not vRec.Eof)
vHeadlineA = left(vRec("headline"),25)
vPriceA = left(vRec("descrip"),10)
%>
<%=vHeadlineA%> |
<%=vPriceA%> |
<%
vRec.movenext
loop
%>
(MORE) |
<%=vNoRecordsA%> |
|
|
|
|
We have
forms you can keep on your PC to easily post new ads. Contact support@buildersplanet.com |
|
|
|
|
','instantmessage','width=375,height=400')>Instant Feedback |
|
|