<%@ Language=VBScript %> <%Option Explicit%> <% Response.Buffer = true %> BuildersPlanet.com Large Project Post <% 'put this on pages that require log in vLogin_id = ForceLogin( Request.Cookies("BPLN")("Scrbl") ) %> <% ' set field vars dim vLrgProj_id, vProjName, vProjLoc, vPrjVal, vProjDescr, vStatus, vContact, vArchContact dim vPost2wk, vPost4wk, vRemovePost, vRemovePostW, vRPostBox, vScope, vContrType, vArchName dim vPostTm, vToWeb, vToList,vToPriv, vClsDt, vName, vCreate, qRecId, vOrigin dim vSuccess, vOk_todistr, vNoFeat, vSpmChck vLrgProj_id = "" vProjName = "" vProjLoc = "" vPrjVal = "" vProjDescr = "" vContrType = "" ' vStatus = "" vScope = "" vName = "" vContact = "" vArchName = "" vArchContact = "" vClsDt = "" vPostTm = "" vPost2wk = "" vPost4wk = "checked" vToWeb = "checked" vToList = "" vToPriv = "" vSpmChck ="0" vCreate = "" vOrigin = "" vRemovePost = "" vRemovePostW = "" vRPostBox = " " vNoFeat = "" vLoginName ="" %> <% if(not isempty (Request.QueryString("qRecId")))then vLrgProj_id = Request.QueryString("qRecId") ' visit to page - get info from db ' 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") vSQL = "GetLrgPrjInfo '" & vLogin_id & "', '" & vLrgProj_id & "'" set vRec = conn.Execute ( vSQL ) if( not vRec.EOF ) then vLrgProj_id = vRec("lrgprj_id") vStatus= vRec("status") vPrjVal = vRec("proj_value") vProjDescr = vRec("proj_descr") vContrType = vRec("contr_type") vScope = vRec("scope") vProjLoc = vRec("location") vProjName = vRec("proj_name") vName = vRec("ad_name") vContact = vRec("contact_inf") vArchName = vRec("arch_name") vArchContact = vRec("arch_inf") vClsDt = vRec("close_dt") vPostTm = vRec("post_time") if( vPostTm = "4")then vPost4wk = "checked" vPost2wk = "" else vPost4wk = "" vPost2wk = "checked" end if vToWeb = vRec("to_web") vToList = vRec("to_list") vToPriv = vRec("to_priv") vCreate = vRec("created") vRPostBox = " Remove this posting (Delete) " end if end if if (Session("feature_set")< 2)then vNoFeat = ", certain requested information on your 'About Me' page of your 'Desktop' is incomplete. This may cause a delay in posting the following information. To assure a speedy post, please provide the requested information on the About Me page of your Desktop then return to this page. Or continue and be aware of possible delays in your post." vLoginName = Session("login_name") end if %> <% dim vState if(isempty (Request.QueryString("qRecId")))then set conn = server.CreateObject("adodb.connection") conn.Open Application("DBName"),Application("DBUser"),Application("DBPswd") vSQL = "GetuAdminProf '" & vLogin_id & "'" set vRec = conn.Execute ( vSQL ) 'set form information vName = vRec("first_name") & " " & vRec("last_name" ) vState =", " & vRec("state1") & ", " if vRec("state1")="Choose a State" then vState = "" end if vContact = "Phone: " & vRec("phone1") & vbCRLF & "Fax: " & vRec("fax1") & vbCRLF & "Email: " & vRec("comp_email") & vbCRLF & vRec("address1") & vbCRLF & vRec("city1") & vState & vRec("zip1") end if %> <% if not isempty( Request.Form("submit") ) then ' the user hit the submit button ' update or create the info vLogin_id = Session("login_id") vLrgProj_id = Request.Form("largeprjid") 'updating a record if value 'new record if empty vStatus = Request.Form("projectstatus") vStatus = replace(vStatus,"'","''") vPrjVal = Request.Form("value") vPrjVal = replace(vPrjVal,"'","''") vProjDescr = Request.Form("project") vProjDescr = replace(vProjDescr,"'","''") vContrType = Request.Form("contrtype") vContrType = replace(vContrType,"'","''") vScope = Request.Form("projectscope") vScope = replace(vScope,"'","''") vProjLoc= Request.Form("location") vProjLoc = replace(vProjLoc,"'","''") vProjName = Request.Form("projectname") vProjName = replace(vProjName,"'","''") vName = Request.Form("name") vName = replace(vName,"'","''") vContact = Request.Form("contact") vContact = replace(vContact,"'","''") vArchName = Request.Form("archname") vArchName = replace(vArchName,"'","''") vArchContact = Request.Form("archcontact") vArchContact = replace(vArchContact,"'","''") vClsDt = Request.Form("closedate") vClsDt = replace(vClsDt,"'","''") vPostTm = Request.Form("posttime") vToWeb = Request.Form("toweb") if (Request.Form("remove") = "checked") then vToWeb = "" end if vToList = Request.Form("tolist") vToPriv = Request.Form("topriv") vSpmChck = tt(vProjName&vProjLoc&vPrjVal&vProjDescr&vStatus&vContact&vArchContact&vScope&vContrType&vArchName&vClsDt&vName) vOrigin = "web" vRemovePost = Request.Form("remove") if (vRemovePost = "checked") then vRemovePostW = Session("login_id") end if vOk_todistr = "yes" if (Session("feature_set")< 2)then vOk_todistr = "verify" end if set conn = server.CreateObject("adodb.connection") conn.Open Application("DBName"),Application("DBUser"),Application("DBPswd") vSQL = "SetLrgPrj '" & vLogin_id & "', '" & vLrgProj_id & "', '" & vStatus & "', '" & vPrjVal & "', '" & vProjDescr & "', '" & vContrType & "', '" & vScope & "', '" & vProjLoc & "', '" & vProjName & "', '" & vName & "', '" & vContact & "', '" & vArchName & "', '" & vArchContact & "', '" & vClsDt & "', '" & vPostTm & "', '" & vToWeb & "', '" & vToList & "', '" & vToPriv & "', '" & vSpmChck & "', '" & vOrigin & "', '" & vRemovePost & "', '" & vRemovePostW & "', '" & vOk_todistr & "'" conn.Execute ( vSQL ) ' no results 'vSuccess = "Your Information Was updated Successfully
" Response.Redirect ("/Common/formsuccess.asp?originalPage="&Request.ServerVariables("SCRIPT_NAME"))'go here after submittal end if %> ">
BuildersPlanet.comBuildersPlanet Home Page
Marketplace Job Bank Buy/Sell Community News Services
 HOME  >  Job Bank >  Large Project  >  Large Project Form ','instantmessage','width=375,height=400')>Instant Feedback

POST YOUR LARGE PROJECT

This Posting is for Complete Homes or Commercial Projects.
If you have a remodel or smaller project Click Here.

If you have project that is open for bid or you are looking for the "Right" Contractor for a job,  post your project here  to  increase exposure and attract more bidders . It's FREE . Post individual pages to highlight your project, attracting quality contractors and suppliers. Post to the web or private list.

<%=vLoginName%><%=vNoFeat%>
Items with an * are required.
Pressing the return key between text in a multi-line fields will display that text on a new line when users view this item.
We suggest this for lists or addresses. You can change or delete any ' auto filled' information.
* Project Name
* Project Location
  Project Value
* Size/Description
You can paste a text document here. Please no formating. Up to 2000 Characters.
  Contract Type
  Current Project Status
Ready to go, Planning, Start Date
* Project Scope
You can paste a text document here. Please no formating. Up to 2000 Characters.
  Contact Name
* Contact Information
Phone, E-mail, Address, etc.
  Architect Name
  Architect Information
Phone, E-mail, Address, etc.
* Close Date
(Ex. 3/23/00)
  Length of Post id="posttime" name="posttime" type="radio" value="2" > 2 weeks             id="posttime" name="posttime" type="radio" value="4"> 4wks(max allowed)
 
> Post to web > Post to List > Post Private
This will post this information to the BuildersPlanet.com website This will send this Information to interested parties on our list This will send this information only to your preferred list of businesses (My Desktop)
  You may change, update or delete information posted to the web site by clicking the update button on the display page.
List and Private options are sent immediately thus can not be updated or changed.
  <%=vRPostBox%>

Legal notice: BuildersPlanet.com reserves the right to not allow any posting for any reason. BuildersPlanet.com is NOT responsible for the content submitted or any errors in any posting. A posting does not constitute an endorsement or assurance of accuracy for any posting by BuildersPlanet.com.You agree to terms above and you agree to indemnify and hold BuildersPlanet.com harmless for any claim or damages arising from the use of this form and/or content of materials submitted to BuildersPlanet.com Website. By using this site you accept our terms and privacy policy. For comments or problems email Webmaster@buildersplanet.com