<% window_title = "ProfessionaLink: Send us your project" action = request("action") if checknull(action) then bodyblurb = "" %> <% submitBtn = "Submit your Request" asf = request.form("asf") rfpid = request.form("rfpid") budget = request.form("budget") company_name = request.form("company_name") docs = request.form("docs") email = request.form("email") emailok = request.form("emailok") ' HIDDEN FIELD, ALWAYS ON firstname = request.form("firstname") hearus = request.form("hearus") lastname = request.form("lastname") numOfDlvrs = request.form("numOfDlvrs") phone = request.form("phone") project_diz = request.form("project_diz") project_name = request.form("project_name") pw1 = request.form("pw1") pw2 = request.form("pw2") title = request.form("title") errorSuppress = true if checknull(rfpid) then rfpid = generateRFPGUID end if if checknull(firstname) then errorList.add "error1", "First name is a required field." if checknull(lastname) then errorList.add "error2", "Last name is a required field." if checknull(company_name) then errorList.add "error3", "Company name is a required field." if checknull(phone) then errorList.add "error4", "Phone number is a required field." if checknull(email) then errorList.add "error5", "E-mail is a required field." elseif not elmtest(email) then errorList.add "error6", "Your e-mail address is not in a valid format." end if if checknull(pw1) then errorList.add "error7", "Password is a required field." elseif checknull(pw2) then errorList.add "error8", "Please confirm your password by typing it again." end if if not checknull(pw1) and not checknull(pw2) then if pw1 <> pw2 then errorList.add "error9", "Your confirmation password must match your chosen password." elseif len(pw1) < 4 then errorList.add "error10", "Your password must be at least 4 digits/characters long." end if end if if checknull(project_name) then errorList.add "error11", "Project name is a required field." if checknull(project_diz) then errorList.add "error12", "Please enter a description of your project." if checknull(budget) then errorList.add "error13", "Please enter the approximate budget for this project." if asf = submitBtn and errorList.count <= 0 then sql = "select username from users where username = " & sqlsafe(email) set rs = conn.execute(sql) IsEof = rs.eof rs.close set rs = nothing if IsEof then uqid = generateGUID() call createUser(uqid,email,pw1,"users_buyer") sql = "insert users_buyer (created, company_name, email, emailok, first_name, hearus, last_name, phone, title, uqid, username) values (" sql = sql & "GetDate()," & sqlsafe(company_name) & "," sql = sql & sqlsafe(email) & "," sql = sql & sqlsafe(emailok) & "," sql = sql & sqlsafe(firstname) & "," sql = sql & sqlsafe(hearus) & "," sql = sql & sqlsafe(lastname) & "," sql = sql & sqlsafe(phone) & "," sql = sql & sqlsafe(title) & "," sql = sql & sqlsafe(uqid) & "," sql = sql & sqlsafe(email) & ")" 'response.write sql conn.execute(sql) response.cookies("uqid") = uqid else errorList.add "error14", "This user already exists in our database. We cannot accept registrations for users that exist in our database. Click here to log-in." end if if errorList.count <= 0 then sql = "select rfpid from rfp where rfpid = " & sqlsafe(rfpid) set rs = conn.execute(sql) IsEof = rs.eof rs.close set rs = nothing if IsEof then sql = "insert into rfp (rfpid, uqid, created, modified, completed, username, project_name, project_diz, exp_budget, addl_docs) values " sql = sql & "(" & sqlsafe(rfpid) & "," & sqlsafe(uqid) & ",GetDate(),null,null" sql = sql & "," & sqlsafe(email) sql = sql & "," & sqlsafe(project_name) sql = sql & "," & sqlsafe(project_diz) sql = sql & "," & sqlsafe(budget) sql = sql & "," & sqlsafe(docs) sql = sql & ")" 'response.write sql conn.execute(sql) set chompmail = server.createobject("smtpsvg.mailer") chompmail.fromname = "RFPRFPRFP" chompmail.fromaddress = "rfp@professionalink.com" chompmail.remotehost = "mail.professionalink.com" chompmail.addrecipient "tyoo@professionalink.com","tyoo@professionalink.com" chompmail.addrecipient "mcleary@professionalink.com", "mcleary@professionalink.com" chompmail.subject = "New 1-pager RFP - Raw Data" chompmail.bodytext = sql if email <> "cc@morglo.com" then ' cc@morglo.com for testing purposes if chompmail.sendmail then end if end if set chompmail = nothing ' SEND USER VERIFICATION MSG HERE eStr = "Dear " & firstname & "," & vbcrlf & vbcrlf eStr = eStr & "Thank you for submitting your request with ProfessionaLink. We are committed to finding the ideal consultant for your project. A ProfessionaLink executive will be contacting you shortly." & vbcrlf & vbcrlf eStr = eStr & "Sincerely," & vbcrlf & "The ProfessionaLink Team" & vbcrlf & "mailto:rfp@professionalink.com" & vbcrlf & "Phone: 202-828-1400" & vbcrlf set chompmail = server.createobject("smtpsvg.mailer") chompmail.fromname = "ProfessionaLink" chompmail.fromaddress = "rfp@professionalink.com" chompmail.remotehost = "mail.professionalink.com" chompmail.addbcc "cc@professionalink.com", "cc@professionalink.com" chompmail.addbcc "nwoehrle@professionalink.com", "nwoehrle@professionalink.com" chompmail.addbcc "tyoo@professionalink.com", "tyoo@professionalink.com" chompmail.addbcc "mcleary@professionalink.com", "mcleary@professionalink.com" chompmail.addrecipient email, email chompmail.subject = "1-Pager Request Submission Successful" chompmail.bodytext = eStr if email <> "cc@morglo.com" then ' cc@morglo.com for testing purposes if chompmail.sendmail then end if end if set chompmail = nothing response.redirect "/registration/1-pager.asp?action=submitted&rfpid=" & rfpid else response.write "already exists
" response.redirect "/registration/1-pager.asp" end if end if ' errorList.count <= 0 end if ' FOR THE DROP DOWN LIST OPTIONS sql = "select code, name, diz from rfp_lgnd_prj_typ order by code, name" set rs = conn.execute(sql) if not rs.eof then alldata = rs.getrows numrows = ubound(alldata,2) else numrows = -1 end if rs.close set rs = nothing ' EXTRACT INFORMATION FOR HEARUS OPTION TABLE SET sql = "select * from reg_buyer order by code asc, name asc, diz asc" set rs = conn.execute(sql) if not rs.eof then alldata2 = rs.getrows numrows2 = ubound(alldata2,2) else numrows2 = -1 end if rs.close set rs = nothing 'response.write request.form & "

" for each item in request.form 'response.write item & " = request.form(""" & item & """)
" next for each item in request.form 'response.write item & " = " & request.form(item) & "
" next for each item in request.form 'response.write item & "," next %>

Related documents You can also send us information by fax or email. Download RFP form (PDF: 200KB / 1 page) Email: rfp@professionalink.com Fax: 202-828-6409

<% if checknull(action) then %> You can attach additional, more detailed, documents at the end of this form. If you need assistance filling out this form, you can contact us at 202-828-1400. <% if asf = submitBtn and errorList.count > 0 then %> <% end if %> First name Last name   Company name Official title or position Phone number E-mail address myProfessionaLink password    Verify your password Your password must be at least 4 digits/characters. OPTIONAL: How did you hear about us? <% response.write "Please select..." for i = 0 to numrows2 if alldata2(0,i) = "hearus" and checknull(alldata2(3,i)) then if alldata2(1,i) = hearus then suffix = """ selected>" else suffix = """>" end if response.write "" %>

Project Name:  Project Description:    You can cut & paste.  Approximate Budget:  <% response.write "Please choose..." for i = 0 to numrows if alldata(0,i) = "rfpbudget" then if alldata(1,i) = budget then suffix = """ selected>" else suffix = """>" end if response.write "" %>

<% elseif action = "submitted" then %>


Please print this page for your records.

Thank you for submitting your Request with ProfessionaLink. You will be contacted by a ProfessionaLink account executive.

If you wish to speak to one immediately, you can call (202) 828-1400 and mention that you've submitted a 1-Pager Request through the website.

Click here to log-in and view/edit your Request

<% rfpid = request("rfpid") sql = "select uqid,created,modified,completed,username,service_type,project_name,project_location,contract_type,start_date,proposal_date,duration_months,duration_weeks,exp_budget,weighting_ie,weighting_fxn,weighting_timebudget,weighting_people,weighting_value,firmchar,addl_docs,project_diz,deliverables,addl_comments from rfp where rfpid = " & sqlsafe(rfpid) ' 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 set rs = conn.execute(sql) if not rs.eof then project_name = rs(6) budget = rs(13) project_diz = rs(21) end if rs.close set rs = nothing ' FOR THE DROP DOWN LIST OPTIONS sql = "select code, name, diz from rfp_lgnd_prj_typ order by code, name" set rs = conn.execute(sql) if not rs.eof then menudata = rs.getrows menurows = ubound(menudata,2) else menurows = -1 end if rs.close set rs = nothing %>

You can attach supporting documents. This will be really helpful in our search to find consultants for your project. You can upload any file from your computer (Word, Excel spreadsheet, Acrobat PDF, PowerPoint, etc.) <% tempDummy = ShowDirectory2("c:\abradabba\" & rfpid) if not checknull(tempDummy) then response.write " Attached documents: " & tempDummy docs = "yes" else docs = "no" end if response.write "" %> Press this button to submit your request!

Project Name:  <% = project_name %> Project Description:    <% if not checknull(project_diz) then response.write replace(project_diz,vbcrlf," ") end if %> Expected Budget:  <% if not checknull(duration_month) then for i = 0 to menurows if menudata(0,i) = "rfpbudget" then if menudata(1,i) = budget then response.write menudata(2,i) end if end if next end if %>

<% end if %>