<%@ Language=VBScript %> <%Option Explicit%> <% Response.Buffer = true %> BuildersPlanet.com Buy Sell <% vOriginatingPage = Request.ServerVariables("SCRIPT_NAME") %> ">
BuildersPlanet.comBuildersPlanet Home Page
Marketplace Job Bank Buy/Sell Community News Services
 HOME  >  BuySell  ','instantmessage','width=375,height=400')>Instant Feedback
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.
  <% ' 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 %> <% vRec.movenext loop %>
Want ADs
Headline Price
<%=vHeadlineW%> <%=vPriceW%>
(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.
  <% ' 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) %> <% vRec.movenext loop %>
Real Estate Opportunities
Headline Price
<%=vHeadlineR%> <%=vPriceR%>
(MORE) <%=vNoRecordsR%>
     
Auctions See Post

Find out what, when, and where.

Search up to 200 auction sites make your request below.

  <% ' 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) %> <% vRec.movenext loop %>
Auctions
Headline Description
<%=vHeadlineA%> <%=vPriceA%>
(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