<% = window_title %>

<% response.buffer = true %> <% font = "Trebuchet MS, Arial, Helvetica, sans-serif" window_title = "ProfessionaLink: Finding the ideal consultant for the project rapidly and reliably" bodyblurb = "" path = request.servervariables("path_info") strpath = request.servervariables("script_name") strpath = lcase(strpath) do lenstr = len(strpath) pos = instr(strpath,"/") strpath = right(strpath,lenstr-1) loop while instr(strpath,"/") <> 0 ' COOKIE ENABLED CHECK HERE 'cookie_ok = request.servervariables("http_cookie") 'if checknull(cookie_ok) and strpath <> "cookie_error.asp" then ' response.redirect "/cookie_error.asp" 'end if ' END DISABLE 'set browserdetect = server.createobject("MSWC.BrowserType") 'browser=browserdetect.Browser 'version=browserdetect.Version 'platform=browserdetect.Platform 'frames=browserdetect.Frames 'cookies = browserdetect.Cookies 'javascript=browserdetect.JavaScript 'tables=browserdetect.Tables 'majorver=browserdetect.Majorver 'minorver=browserdetect.Minorver 'if lcase(cookies) and strpath <> "cookie_error.asp" then ' response.redirect "/cookie_error.asp" 'end if 'response.write cookies 'set browserdetect = nothing set conn = server.createobject("adodb.connection") conn.open "DSN=DB_175408_plink_sqlConn;uid=DB_175408_plink_user;pwd=pl7777#1;database=DB_175408_plink" 'conn.open "DSN=prolink2;uid=prolink;pwd=xuxa" %> <% Function monthCalStr(byval mymonth, byval myyear, byval tblwidth, byval useruqid) absolutescript = request.servervariables("script_name") monthCalStr = "

" monthCalStr = monthCalStr & "" monthCalStr = monthCalStr & "" monthCalStr = monthCalStr & "" monthCalStr = monthCalStr & "" monthCalStr = monthCalStr & "" monthCalStr = monthCalStr & "" monthCalStr = monthCalStr & "" monthCalStr = monthCalStr & "" firstday = weekday(dateserial(myyear, mymonth, 1)) - 1 currentday = 1 datedata = "" if not checknull(useruqid) then sql = "select eventdate, eventname, notes from users_calendar where useruqid = " & sqlsafe(useruqid) & " and eventtype='event'" set rs = conn.execute(sql) if not rs.eof then datedata = rs.getstring(,,"-","\","-null-") end if rs.close set rs = nothing end if for row = 0 to 5 monthCalStr = monthCalStr & "" for col = 0 to 6 if row = 0 and col < firstday then monthCalStr = monthCalStr & "" elseif currentday > lastday(mymonth, myyear) then monthCalStr = monthCalStr & "" else datum = mymonth & "/" & currentday & "/" & myyear monthCalStr = monthCalStr & " 0 then monthCalStr = monthCalStr & " align=""center"" bgcolor=""#0058cc"">" & currentday & "" else monthCalStr = monthCalStr & " bgcolor=""#0058cc"" align=""center"">" & currentday & "" end if else if instr(datedata,datum) > 0 then monthCalStr = monthCalStr & " align=""center"" bgcolor=""#ccff00"">" & currentday & "" else monthCalStr = monthCalStr & " align=""center"">" & currentday & "" end if end if currentday = currentday + 1 end if next monthCalStr = monthCalStr & "" next monthCalStr = monthCalStr & "

" monthCalStr = monthCalStr & "<" monthCalStr = monthCalStr & "

" & monthname(mymonth) & " " & myyear & "

" monthCalStr = monthCalStr & ">" monthCalStr = monthCalStr & "

sun

mon

tue

wed

thu

fri

sat

" end Function Function monthname(mymonth) select case mymonth case 1 monthname = "January" case 2 monthname = "Febuary" case 3 monthname = "March" case 4 monthname = "April" case 5 monthname = "May" case 6 monthname = "June" case 7 monthname = "July" case 8 monthname = "August" case 9 monthname = "September" case 10 monthname = "October" case 11 monthname = "November" case 12 monthname = "December" case else monthname = " " end select end Function Function lastday(mymonth, myyear) select case mymonth case 1, 3, 5, 7, 8, 10, 12 lastday = 31 case 4, 6, 9, 11 lastday = 30 case 2 if isdate(myyear & "-" & mymonth & "-" & "29") then lastday = 29 else lastday = 28 case else lastday = 0 end select end Function Sub actionListUpdate(byval actionGuid, byval actionName, byval actionDate, byval actionNote, byval eventtype) call switchConn("DSN=prolink2;uid=prolink;pwd=xuxa") sql = "select eventid from users_calendar where useruqid = " & sqlsafe(loggedInUqid) & " and eventname = " & sqlsafe(actionName) set rs = conn.execute(sql) IsEof = rs.eof rs.close set rs = nothing if checknull(actionDate) then actionDate = date() end if if not IsEof then sql = "update users_calendar set guid = " & sqlsafe(actionGuid) & ",modified = GetDate(), useruqid = " & sqlsafe(loggedInUqid) & ",eventdate=" & sqlsafe(actionDate) & ",eventname=" & sqlsafe(actionName) & ",notes=" & sqlsafe(actionNote) & ",eventtype=" & sqlsafe(eventtype) & " where eventname=" & sqlsafe(actionName) else call actionListDelete(actionName) sql = "insert users_calendar (guid,created,useruqid,eventdate,eventname,notes,eventtype) values (" & sqlsafe(actionGuid) & ",GetDate()," & sqlsafe(loggedInUqid) & "," & sqlsafe(actionDate) & "," & sqlsafe(actionName) & "," & sqlsafe(actionNote) & "," & sqlsafe(eventtype) & ")" end if 'response.write sql conn.execute sql end Sub Sub actionListDelete(byval actionName) call switchConn("DSN=prolink2;uid=prolink;pwd=xuxa") sql = "delete from users_calendar where useruqid = " & sqlsafe(loggedInUqid) & " and eventname = " & sqlsafe(actionName) conn.execute(sql) end Sub %> <% Sub DeleteFile(byval sFile) Set oFM = Server.CreateObject("SoftArtisans.FileManager") if oFm.FileExists(sFile) then oFm.DeleteFile(sFile) end if set oFM = nothing End Sub Sub ShowDirectory(byval sDirectory) set oFM = Server.CreateObject("SoftArtisans.FileManager") if oFm.FolderExists(sDirectory) then Set oFolder = oFM.GetFolder(sDirectory) Set oFiles = oFolder.Files if oFiles.Count > 0 then response.write "" & _ "" if instr(path,"/epc/proposals_c.asp") > 0 then response.write "" ' MUST DO THIS FOR IMAGE INPUT TYPES SO THAT FILENAME PARAMETER WILL BE RECOGNIZED BY SUBMIT THROUGH ONCLICK for each oFile in oFiles response.write "" & _ "" if instr(path,"/epc/proposals_c.asp") > 0 then response.write "" else response.write "" end if next response.write "

Files Uploaded	Size	Delete?
" & oFile.Name & "	" & round(oFile.Size/1000,0) & "k

" else ' DELETE FOLDER 'response.write oFm.DeleteFolder(sDirectory) end if end if set oFiles = nothing set oFolder = nothing set oFM = nothing End Sub Function ShowDirectory2(byval sDirectory) ShowDirectory2 = null Set oFM = Server.CreateObject("SoftArtisans.FileManager") if oFm.FolderExists(sDirectory) then Set oFolder = oFM.GetFolder(sDirectory) Set oFiles = oFolder.Files if oFiles.Count > 0 then for each oFile in oFiles ShowDirectory2 = ShowDirectory2 & oFile.Name & " (" & round(oFile.Size/1000,0) & "k)
" next end if end if set oFiles = nothing set oFolder = nothing set oFM = nothing End Function %> <% window_title = "ProfessionaLink: Send us your project" action = request("action") if checknull(action) then bodyblurb = "" %>

<% = window_title %> <% = bodyblurb %> <% ' GLOBAL VARIABLES BELOW loggedIn = false loggedInUqid = null plgroup = null username = null rGUID = request.cookies("guid") if not checknull(rGUID) then loggedIn = true username = membershipCheck() loggedInUqid = quikFieldVal("uqid",username) sql = "select pl_group from users where username = " & sqlsafe(username) set rs = conn.execute(sql) if not rs.eof then plgroup = rs(0) end if rs.close set rs = nothing end if if logo_use = "myp" then logo_lx = "/epx/myp.asp" logo_gif = "/images/title_bg_myp.gif" logo_alt = "myProfessionaLink" elseif logo_use = "myp_c" then logo_lx = "/epc/myp_c.asp" logo_gif = "/images/title_bg_myp_c.gif" logo_alt = "myProfessionaLink for Consultants" else logo_lx = "/" logo_gif = "/images/title_bg_l.gif" logo_alt = "ProfessionaLink" end if %>

<% ' AVATAR CUSTOMIZATIONS HERE select case lcase(username) case "john.hoke@gm.com" response.write "" case else if instr(username,"@dow.com") > 0 then response.write "" end if end select if instr(username,"acme.com") > 0 then response.write "" end if %>

<% if strpath <> "login.asp" and not loggedIn then %>

e-mail:
password:

<% elseif loggedIn then firstname = quikFieldVal("first_name",membershipCheck) fullname = firstname & " " & quikFieldVal("last_name",membershipCheck) if not checknull(firstname) then if instr(firstname,vbcrlf) < 0 then firstname = ucase(left(firstname,1)) & lcase(right(firstname,len(firstname)-1)) else firstname = firstname end if else firstname = membershipCheck end if %> <% if plgroup = "users_pro" then %> <% else %> <% end if %>

Hi <% = firstname %>,
Thank you for being a
registered consultant.

Hi <% = firstname %>,
Thank you for being a member
of ProfessionaLink.

<% end if %>

<% = FormatDateTime(now(),vblongdate) %>

<% if loggedIn then %>myProfessionaLink | Log-out<% else %>Home<% end if %> | Site map | Contact us

<% 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 %>

<% if errorList.count > 1 then response.write "Please fix the following errors:
" else response.write "Please fix the following error:
" end if %> <% for each errorStr in errorList response.write "· " & errorList.item(errorStr) & "
" next %>

<% 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 "

Project Name:

Project Description: You can cut & paste.

Approximate Budget:	<% 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 %>

Is there a problem with the website? Report it here.

<% conn.close set conn = nothing %>