Skip to main content

" & objFormData("firstname")& " " & objFormData("middlename") & " " & objFormData("lastname")
if not isNUll(glbRS("DegreesFlag")) then
DegreesFlag = glbRS("DegreesFlag")
else
DegreesFlag = 1
end if
If DegreesFlag

include needs dim's Response.Expires = 0 %> Certifying Coordinator" - 2 places ' 09-09-09 label all cc's as trs - if IsTrainer(CustomerID) OR glbRS("MembershipCategoryID") = 1 then Response.Write "
Focusing Trainer" - 2 places ' 06-22-11 Changes for InternetListingStatus 0->NULL ' 12-26-11 New design ' 10-02-12 Added code to diplay CNT in webpage ' 03-07-15 Mods for id with "." ' NOTES: ' This page can be displayed with calls from ' internal links - cfp_info_5.asp (post with "el" set) ' internal links - anypage with side bar links (post with "el" set) ' external link - search page (querystring cfp_personal_web_page.asp?customerid=NNNN) ' external link - anypage (querystring cfp_personal_web_page.asp?customerid=NNNN) ' Problem is when user selects "DO NOT DISPLAY" ' The search page will not show listing is user selected "DO NOT DISPLAY" ' The internal links display a message to the user "Because you have elected to not have your information displayed on the ..." ' However, the external link NOT from search - needs to be id'd and then display "This trainer's page can not be viewed." ' So -- will test for querystring and if user selected "DO NOT DISPLAY," will only display "This trainer's page can not be viewed." %> "" then if NOT isNumeric(request("CustomerID")) or len(request("CustomerID")) > 8 then Response.Write "

Sorry, we did not understand that request!
HOME

" Response.end else strNumeric = "0123456789" For i = 1 to len(request("CustomerID")) strChar = mid(request("CustomerID"),i,1) If instr(strNumeric,strChar) Sorry, we did not understand that request!!
HOME
" Response.end End If Next CustomerID = sqlsafe(request("CustomerID")) end if end if ' called by 404 'if session("404-CustomerID") "" then ' CustomerID = sqlsafe(session("404-CustomerID")) 'end if if CustomerID > 0 and Session("logout") true then ' All OK else Response.Write "

Please login!

" Response.end end if Set glbRS = Server.CreateObject("ADODB.RecordSet") Set objFormData = CreateObject("Scripting.Dictionary") If IEBrowser() then cols = 60 else cols = 50 end if Main() Sub Main Session.Timeout = 60 'MINUTES if ProfileFilled(customerid) = "NG" then Response.Write "

You MUST go through each step before you can view your web page!
" Response.Write "GO BACK" Response.end End if Call GetTrainerData (CustomerID, "listing",glbRS) if glbRS.EOF then Response.Write "

Sorry, that record was not found! If you have any questions, please contact the webmaster
" Response.End end if ' get FOT info Set rsFOT = Server.CreateObject("ADODB.RecordSet") Call GetFOTInfo(Customerid) 'Fills rsFOT DisplayWebpage() ' Clean up objFormData.RemoveAll Set objFormData = Nothing End Sub Sub DisplayWebpage() Dim Degrees, DegreesFlag Dim outputTotal Dim glb_title glb_bc_title = objFormData("firstname")& " " & objFormData("middlename") & " " & objFormData("lastname") & ": Certified Focusing Professional" %>

"" then %>


This trainer's page can not be viewed.

"%>


Because you have elected to not have your information displayed on the CFP Search page, the information displayed on this page is not currently publically accessible. To change this setting, click 'GOBACK' and then go to the 'CFP Listing' section and click on the 'Display My Listing' button.

"%> " & objFormData("firstname")& " " & objFormData("middlename") & " " & objFormData("lastname") if not isNUll(glbRS("DegreesFlag")) then DegreesFlag = glbRS("DegreesFlag") else DegreesFlag = 1 end if If DegreesFlag 0 then Degrees = GetDegrees(glbRS("CustomerID")) if Degrees "" then Response.Write ", " & Degrees & "" else Response.Write "" end if else Response.Write "" End if Response.Write "" If glbRS("MembershipCategoryID") = 1 then Response.Write "Certifying Coordinator
" elseif glbRS("CNT") = 1 then Response.Write "Coordinator in Training
" end if If glbRS("FOTFlag") 0 and GetInfo ("IMAFOT", CustomerID) = 1 then Response.Write "Focusing-Oriented Psychotherapist
" if IsTrainer(CustomerID) OR glbRS("MembershipCategoryID") = 1 then Response.Write "Focusing Trainer
" Response.Write "
" name_already_displayed = true %>
"" then %> "" and instr(1,rsFOT("DegreeProgram"),"--->") = 0 then %>

"%> Contact Info:
" CountOrDisplay glbRS, "webpage", outputTotal glbRS.MoveFirst Response.Write "" %>
200 or h > 200 then if w > h then w = dim_scale ' scale larger dim to 100 h = h/old_w*dim_scale ' reset the other proportionately h = cint(h) else h = dim_scale w = w/old_h*dim_scale w = cint(w) end if end if End if 'w = 200 'h = 300 if rsFOT("Picture") "" and not isNULL(rsFOT("Picture")) then Response.Write "
" Response.Write "" & vbcrlf end if ' If no pic, name is displayed centered on top of page if not name_already_displayed then ' Name, Degree ' FOT ' Trainer Response.Write "" else Response.Write "" end if else Response.Write "" End if Response.Write "" If glbRS("MembershipCategoryID") = 1 then Response.Write "Certifying Coordinator
" elseif glbRS("CNT") = 1 then Response.Write "Coordinator in Training
" end if If glbRS("FOTFlag") 0 and GetInfo ("IMAFOT", CustomerID) = 1 then Response.Write "Focusing-Oriented Psychotherapist
" if IsTrainer(CustomerID) OR glbRS("MembershipCategoryID") = 1 then Response.Write "Focusing Trainer
" Response.Write "
" end if %>

Focusing-Oriented Psychotherapist (FOT) Information:

Focusing Trainer Information:
Personal Statement about Training Program:
","TrainingProgram",0)%>
A Sample of my Work:
","WorkSample",0)%>
My Publications:
","Publications",0)%>
"" then ' was called by search, not FOT area %> GOBACK
" method=post> ">
"" and not isNULL(rsFOT(Field)) then if isNumeric(rsFOT(Field)) then if rsFOT(Field) = 1 then 'Value = "Yes" Value = "" elseif rsFOT(Field) = 0 then 'Value = "No" DisplayFOTData = "" Exit Function else Value = rsFOT(Field) ' case should not happen end if else ' text -- add breaks ' Convert urls to links Value = LinkURLs(rsFOT(Field)) Value = replace(Value,vbCRLF,"
") Value = replace(Value,"''","'") end if if Field = "FOT_Teaching_Specialties" or Field = "FOT_Specialty_Areas" then Value = ConvertNumericTeachingSpecialties(Value,Field) End if if style = 0 then DisplayFOTData = "" & Description & "" & Value & "
" & vbCRLF elseif style = 1 then if value "" then DisplayFOTData = "
  • " & Description & "" & Value & "
  • " & vbCRLF else DisplayFOTData = "
  • " & Description & "" & vbCRLF end if end if else DisplayFOTData = "" end if End Function function ConvertNumericTeachingSpecialties(Value,Field) Dim db, con, SQL, rs, interest_group, i, arData arData = split(value,",") Set db = New GenUtil db.OpenDatabase con Set rs = Server.CreateObject("ADODB.RecordSet") SQL = "SELECT * FROM INTEREST_AREAS WHERE Interest_Area_Group = '" & Field & "'" 'Response.Write(SQL) 'Response.end rs.CursorLocation = adUseClient rs.Open SQL, con, 1 ,3 Do while not rs.eof For i = 0 to ubound(arData) if cint(arData(i)) = rs("Interest_Area_ID") then ConvertNumericTeachingSpecialties = ConvertNumericTeachingSpecialties & rs("Interest_Area_Description") & ", " end if Next rs.movenext loop if len(ConvertNumericTeachingSpecialties)> 0 then ConvertNumericTeachingSpecialties = mid(ConvertNumericTeachingSpecialties,1,len(ConvertNumericTeachingSpecialties)-2) end if rs.Close con.close set db = Nothing set con = Nothing End Function '------------------------------- ' http:// in text and emails converted to links '------------------------------- function LinkURLs(ByRef asContent) Dim loRegExp ' Regular Expression Object (Requires vbScript 5.0 and above) ' if no content was received, Exit the function if asContent = "" Then Exit function ' remove any html strings already in text ''asContent = StripHTML(asContent) ' Create Regular Expression object Set loRegExp = New RegExp ' Keep finding links after the first one. loRegExp.Global = True ' Ignore upper/lower Case loRegExp.IgnoreCase = True ' Look For URLs loRegExp.Pattern = "((mailto\:|(news|(ht|f)tp(s?))\://){1}\S+)\b" ' Link URLs LinkURLs = loRegExp.Replace(asContent, "$1") ' Look For email addresses loRegExp.Pattern = "(\S+@\S+.\.\S\S\S?)" ' Link email addresses LinkURLs = loRegExp.Replace(LinkURLs, "$1") ' Release regular expression object Set oRegExp = Nothing End function '------------------------------- ' Has the profile been filled in yet? '------------------------------- Function ProfileFilled (id) Dim db, con, SQL, fld, rs Set db = New GenUtil Set rs = Server.CreateObject("ADODB.RecordSet") db.OpenDatabase con if id = "" then Response.write (" Error in ProfileFilled, please contact the webmaster.") Response.end end if ' get original data SQL = "SELECT * FROM CFP_FOT_INFO WHERE CustomerID = '" & id & "'" rs.CursorLocation = adUseClient rs.Open SQL, con, 1 ,3 if rs.RecordCount = 0 then ProfileFilled = "NG" else ProfileFilled = "OK" End if rs.Close con.close set db = Nothing set con = Nothing End Function '------------------------------- ' Get FOT information ' Fills global rs with info for an ID ' rsFOT is global '------------------------------- Sub GetFOTInfo (id) Dim db, con, SQL, fld Set db = New GenUtil db.OpenDatabase con if id = "" then Response.write (" Error in GetFOTInfo, please contact the webmaster.") Response.end end if ' get original data SQL = "SELECT * FROM CFP_FOT_INFO WHERE CustomerID = '" & id & "'" rsFOT.CursorLocation = adUseClient rsFOT.Open SQL, con, 1 ,3 End Sub Function TrainingOffered() if rsFOT("IndividualSessions") 0 or rsFOT("PhoneSessions") 0 or rsFOT("Workshops") 0 or rsFOT("Presentations") 0 or rsFOT("TFI_CC") 0 or rsFOT("TAE") 0 or rsFOT("TeachFOT") 0 then TrainingOffered = true else TrainingOffered = false end if End Function '------------------------------- ' Get FOT information from Step 4 ' Some users may have skipped this step ' returns true if user filled in this page '------------------------------- Function VerifyFOTInfoFilled (id) Dim db, con, SQL, fld, rs Set db = New GenUtil Set rs = Server.CreateObject("ADODB.RecordSet") db.OpenDatabase con if id = "" then Response.write (" Error in VerifyFOTInfoFilled, please contact the webmaster.") Response.end end if ' get original data SQL = "SELECT * FROM CFP_FOT_INFO WHERE CustomerID = '" & id & "'" rs.CursorLocation = adUseClient rs.Open SQL, con, 1 ,3 if isNULL(rs("FOT_Specialty_Areas")) and isNULL(rs("OtherSpecialtyAreas")) and isNULL(rs("ClinicalTraining")) and isNULL(rs("LicensedBy")) and isNULL(rs("Medicare")) then VerifyFOTInfoFilled = false else VerifyFOTInfoFilled = true end if rs.Close con.close set db = Nothing set rs = Nothing set con = Nothing End Function %>