Skip to main content

Certified Focusing Professional Database Listingsof Focusing Certifying Coordinators

" set rs = glbRS inputval = "display" rs.movefirst Do while not rs.EOF 'if rs("CustomerID") = 407 then ' Response.Write "" 'end if if LastCustomerID "" then if LastCustomerID = rs("CustomerID") then suppress = true else suppress = false ''if not isNULL(rs("ProfileFilled")) and inputval "webpage" then if not isNULL(LastCustomerIDProfileFilled) and inputval "webpage" then if session("local") then Call wrbuff("More Information
",inputval) else Call wrbuff("More Information
",inputval) end if end if Call wrbuff("

",inputval) Response.Write "" & vbcrlf & vbcrlf end if end if if rs("Continent") LastContinent then Response.Write "

" & rs("Continent") & "

" & vbCRLF end if if rs("Country") LastCountry then Response.Write "

" & Cap(rs("Country")) & "  Back to top

" ''if rs("Country") = "USA" OR rs("Country") = "Canada" then Call GetStateProvLinks() end if if rs("StateLong") LastState AND rs("StateLong") "International"then Response.Write "

" & Cap(rs("StateLong")) & "  Back to top

" end if LastContinent = rs("Continent") LastCountry = rs("Country") LastState = rs("StateLong") if not suppress then Response.Write "
" Response.Write "
" else Response.Write "

Additional office:

" end if if len(rs("picture"))> 0 then ''on error resume next small_pic = false pic_path = server.mappath("../fots/uploads/" & rs("picture")) ''Response.Write pic_path & "

" strType = Mid(rs("picture"), InstrRev(rs("picture"), ".") + 1) ''Response.Write rs("picture") & "--" & strType if err 0 then Response.Write err.Description & " " & "File:" & flnm end if h = 0 w = 0 if gfxSpex(pic_path, w, h, c, strType) = true then h = cint(h) w = cint(w) ''Response.Write "h1=" & h & "
" ''Response.Write "w1=" & w & "
" if h > 125 AND w > 125 then dim_scale = 125 old_h = h ' buffer old_w = w ' buffer w = dim_scale h = h/old_w*dim_scale ' reset the other proportionately h = cint(h) elseif h " ''Response.Write "w=" & w & "
" if not suppress and not small_pic then Response.Write "" end if if not suppress then Response.Write "
" ' init website = "" phone = "" emailaddress = "" faxnumber = "" HomePhone = "" WorkPhone = "" if not isNUll(rs("DegreesFlag")) then DegreesFlag = rs("DegreesFlag") else DegreesFlag = 1 end if if not isNUll(rs("FOTFlag")) then FOTFlag = rs("FOTFlag") else FOTFlag = 1 end if if not isNUll(rs("EmailAddressFlag")) then EmailAddressFlag = rs("EmailAddressFlag") else EmailAddressFlag = 1 end if ' Set other variables -------------------> if not isNUll(rs("FaxNumber")) then if trim(rs("FaxNumber")) "" then FaxNumber = rs("FaxNumber") end if else FaxNumber = "" end if if not isNUll(rs("EmailAddress")) then if trim(rs("EmailAddress")) "" then EmailAddress = rs("EmailAddress") end if else EmailAddress = "" end if if not isNUll(rs("website")) then if trim(rs("website")) "" then website = rs("website") else website = "" end if else website = "" end if if not isNUll(rs("Phone")) then if trim(rs("Phone")) "" then Phone = rs("Phone") else Phone = "" end if else Phone = "" end if ' SQL has done a rough trim based on distance - this cleans it up: if requestor_latitude "" and requestor_longitude "" and inputRadius "" and _ not isNULL(requestor_latitude) and not isNULL(requestor_longitude) and not isNULL(inputRadius) then if requestor_latitude = rs("Latitude") AND requestor_longitude = rs("Longitude") then Distance = 0 else ' Rounds up to nearest 5 miles Distance = RoundToValue(GetDistance(requestor_latitude, requestor_longitude, rs("Latitude"), rs("Longitude"), inputRadius),5,True) end if if Distance NOTE: You have elected to not have your listing displayed on the CFP Search page.
To change this setting click the 'Display My Listing'.

" ShowButtons 3 'display listing button exit sub else Response.Write "
" end if if rs.recordcount > 1 then listing_number = listing_number + 1 Select case listing_number Case 1 listing_order = "first" '''Response.Write "
This is how your " & listing_order & " listing will be displayed. Remember to use the email address below when you login.

" Response.Write "
This is how your " & listing_order & " listing will be displayed.

" Case 2 listing_order = "second" Response.Write "
This is how your " & listing_order & " listing will be displayed:

" Case 3 listing_order = "third" Response.Write "
This is how your " & listing_order & " listing will be displayed:

" End Select else ''Response.Write "
This is how your listing will be displayed. Remember to use the email address " & EmailAddress & " when you login.

" Response.Write "
This is how your listing will be displayed.

" end if end if if inputval = "webpage" then if rs.recordcount > 1 then listing_number = listing_number + 1 Select case listing_number Case 1 ' nothing Case 2 ' only display this heading on web page if the listing will be displayed if (phone "" or FaxNumber "" or EmailAddress "" or Website "") then Response.Write "
Second office:
" end if Case 3 ' only display this heading on web page if the listing will be displayed if (phone "" or FaxNumber "" or EmailAddress "" or Website "") then Response.Write "
Third office:
" end if End Select end if end if if (phone "" or FaxNumber "" or Website "" or EmailAddressFlag = 1) and DistanceTestPasses then outputTotal = outputTotal + 1 if inputval = "buffer" or inputval = "display" or inputval = "listing" or inputval = "simple_listing" or inputval = "webpage" then if inputval "webpage" then if not suppress then Call wrbuff(rs("FirstName") & " " & rs("MiddleName") & " " & rs("LastName"), inputval) end if If DegreesFlag 0 and inputval "webpage" then ''Degrees = GetDegrees(rs("CustomerID")) "" then Call wrbuff(", " & Degrees,inputval) end if End if if inputval "webpage" then If rs("MembershipCategoryID") = 1 then if not suppress then Call wrbuff("
Certifying Coordinator",inputval) end if WroteFOT = false If FOTFlag 0 and rs("ImaFOT") = 1 then if not suppress then Call wrbuff("
Focusing Oriented Therapist",inputval) WroteFOT = true end if If IsTrainer(rs("CustomerID")) OR rs("MembershipCategoryID") = 1 then if WroteFOT then if not suppress then Call wrbuff(", Focusing Trainer",inputval) else if not suppress then Call wrbuff("
Focusing Trainer",inputval) end if end if if not suppress then Call wrbuff("
",inputval) end if if trim(rs("City")) "" then Call wrbuff(" " & rs("City"),inputval) if rs("StateShort") "" then Call wrbuff(", " & rs("StateShort"),inputval) if rs("PostalCode") "" then Call wrbuff(" " & rs("PostalCode"),inputval) if rs("Country") "" then Call wrbuff(" " & UCASE(rs("Country")) & "
",inputval) '''if trim(rs("NearestCity")) "" then Response.Write "Nearest City: " & rs("NearestCity") & "
" if phone "" then Call wrbuff("Phone: " & phone & "
",inputval) ' flags for phones handled in above code if trim(rs("FaxNumber")) "" then Call wrbuff("Fax: " & rs("FaxNumber") & "
",inputval) if rs("EmailAddressFlag") 0 and trim(rs("EmailAddress")) "" then Call wrbuff("Email: " & rs("EmailAddress") & "
",inputval) if trim(rs("Website")) "" then if UCASE(mid(rs("Website"),1,4))"HTTP" then website = "http://" & rs("WebSite") else website = rs("WebSite") end if 'if len(website) > 36 then ' ''Response.Write "URL: " & mid(website,1,30) & "
" ' ''Response.Write mid(website,31,38) & "
" ' ''Response.Write mid(website,69,len(website)-68) & "
" ' if len(mid(website,31,len(website)-30)) > 40 then ' website_url_br = mid(website,1,30) & "
" & mid(website,31,38) & "
" & mid(website,69,len(website)-68) ' else ' website_url_br = mid(website,1,30) & "
" & mid(website,31,len(website)-30) ' end if 'else ' website_url_br = website 'end if if rs("WebsiteTitle") rs("Website") then if len(rs("WebsiteTitle")) > 0 then Call wrbuff("Website: " & rs("WebsiteTitle") & "
",inputval) end if Call wrbuff("Website Link: " & website & "
",inputval) end if if trim(rs("Website2")) "" then if UCASE(mid(rs("Website2"),1,4))"HTTP" then website = "http://" & rs("WebSite2") else website = rs("WebSite2") end if if rs("WebsiteTitle") rs("Website") then if len(rs("WebsiteTitle")) > 0 then Call wrbuff("Website: " & rs("WebsiteTitle2") & "
",inputval) end if Call wrbuff("Website link: " & website & "
",inputval) end if 'if not isNULL(rs("ProfileFilled")) and inputval "webpage" then ' if session("local") then ' Call wrbuff("More Information
",inputval) ' else ' Call wrbuff("More Information
",inputval) ' end if 'end if 'Response.Write "Latitude: " & rs("Latitude") & "
" 'Response.Write "Longitude: " & rs("Longitude") & "
" if DisplayDistance then Call wrbuff("Distance: " & Distance & " miles",inputval) end if if inputval = "1isting" then Call wrbuff("
Please Note: If changes were recently made to the above fields, some of the new values will have to be reviewed by admin before they are displayed on the Trainers Search or your Personal Web Page.
",inputval) end if 'Response.Write "HomePhoneFlag: " & HomePhoneFlag & "
" 'Response.Write "WorkPhoneFlag: " & WorkPhoneFlag & "
" 'Response.Write "FaxNumberFlag: " & FaxNumberFlag & "
" 'Response.Write "EmailAddressFlag: " & EmailAddressFlag & "
" 'Response.Write "WebsiteFlag: " & WebsiteFlag & "
" 'Response.Write "DegreesFlag: " & DegreesFlag & "
" 'Response.Write "FOTFlag: " & FOTFlag & "
" ''If inputval "webpage" then Call wrbuff("

",inputval) end if end if LastCustomerID = rs("CustomerID") LastCustomerIDProfileFilled = rs("ProfileFilled") ''Response.Write "" & vbcrlf & vbcrlf ' if not isNULL(rs("ProfileFilled")) and inputval "webpage" then ' if session("local") then ' Call wrbuff("More Information
",inputval) ' else ' Call wrbuff("More Information
",inputval) ' end if ' Call wrbuff("

",inputval) ' end if ''Response.Write "" & vbcrlf & vbcrlf rs.MoveNext Loop If rs.RecordCount = 0 then Response.Write "

" Response.Write "Sorry! There are no results that match your search criteria.

" end if Response.Write "
" Set db = Nothing CloseObject rs CloseObject con End Sub Response.End Sub DisplayTotal (Total) Dim display_total if isEmpty(Total) then Total = 0 Response.Write "

" & total & " Focusing Certifying Coordinators Found

" If Total = 0 then Response.Write "
" Response.Write "Sorry! There are no results that match your search criteria.
" end if end Sub '------------------------------- ' Insures that string to SQL has no single quote '------------------------------- Public Function SQLSafe(String) String = stripHTML(String) 'remove HTML SQLSafe = Replace(String, "'", "''") End Function Sub Disclaimer() %> CFP Info "" then ' fix for data like ''"IRELAND, REPUBLIC OF " LocString = LocString + UCASE(mid(InputString,1,1)) + lcase(mid(InputString,2,len(InputString)-1)) end if Cap = LocString else Cap = InputString end if if ubound(arCountry) > 0 then LocString = LocString & " " Next if Cap = "U.s.a." then Cap = "United States" if Cap = "Usa" then Cap = "United States" End Function Sub GetRegionLinks() Dim con, db, rs, strSQL, website, title Set db = New GenUtil db.OpenDatabase con Set rs = Server.CreateObject("ADODB.RecordSet") 'strSQL = "SELECT DISTINCT CONTINENTS.Continent, CONTINENTS.ContinentID " & _ ' "FROM COUNTRIES INNER JOIN " & _ ' "CONTINENTS ON COUNTRIES.ContinentID = CONTINENTS.ContinentID INNER JOIN " & _ ' "CUSTOMERS ON COUNTRIES.CountryID = CUSTOMERS.CountryID " & _ ' "WHERE (CUSTOMERS.Website IS NOT NULL AND dbo.CUSTOMERS.Website N'') AND (CUSTOMERS.MembershipCategoryID = 1 OR " & _ ' "CUSTOMERS.MembershipCategoryID = 2) " & _ ' "ORDER BY CONTINENTS.ContinentID " strSQL = "SELECT DISTINCT dbo.CONTINENTS.Continent, dbo.CONTINENTS.ContinentID " & _ "FROM dbo.CONTINENTS INNER JOIN " & _ "dbo.COUNTRIES ON dbo.CONTINENTS.ContinentID = dbo.COUNTRIES.ContinentID RIGHT OUTER JOIN " & _ "dbo.CUSTOMERS_TRAINERS LEFT OUTER JOIN " & _ "dbo.CUSTOMERS ON dbo.CUSTOMERS_TRAINERS.CustomerID = dbo.CUSTOMERS.CustomerID ON " & _ "dbo.COUNTRIES.CountryID = dbo.CUSTOMERS_TRAINERS.CountryID LEFT OUTER JOIN " & _ "dbo.STATES ON dbo.CUSTOMERS_TRAINERS.StateID = dbo.STATES.StateID LEFT OUTER JOIN " & _ "dbo.CUSTOMERS_DEGREES_DISPLAY ON dbo.CUSTOMERS_TRAINERS.CustomerID = dbo.CUSTOMERS_DEGREES_DISPLAY.CustomerID LEFT OUTER JOIN " & _ "dbo.ZIPCodes ON LEFT(dbo.CUSTOMERS_TRAINERS.PostalCode, 5) = dbo.ZIPCodes.ZIPCode " & _ "WHERE (dbo.CUSTOMERS.MembershipCategoryID = 1) " & _ "AND (dbo.CUSTOMERS.InternetListingStatus IS NOT NULL) " & _ "ORDER BY dbo.CONTINENTS.ContinentID" ''Response.Write strSQL & "
" rs.CursorLocation = adUseClient rs.Open strSQL, con, 1 ,3 Response.Write "

Continents

" & vbCRLF Response.Write "
" Do while not rs.EOF Response.Write "" & trim(rs("Continent")) & "   " & vbCRLF rs.MoveNext Loop Response.Write "

" strSQL = "SELECT DISTINCT dbo.COUNTRIES.CountryMailingName AS Country " & _ "FROM dbo.CONTINENTS INNER JOIN " & _ "dbo.COUNTRIES ON dbo.CONTINENTS.ContinentID = dbo.COUNTRIES.ContinentID RIGHT OUTER JOIN " & _ "dbo.CUSTOMERS_TRAINERS LEFT OUTER JOIN " & _ "dbo.CUSTOMERS ON dbo.CUSTOMERS_TRAINERS.CustomerID = dbo.CUSTOMERS.CustomerID ON " & _ "dbo.COUNTRIES.CountryID = dbo.CUSTOMERS_TRAINERS.CountryID LEFT OUTER JOIN " & _ "dbo.STATES ON dbo.CUSTOMERS_TRAINERS.StateID = dbo.STATES.StateID LEFT OUTER JOIN " & _ "dbo.CUSTOMERS_DEGREES_DISPLAY ON dbo.CUSTOMERS_TRAINERS.CustomerID = dbo.CUSTOMERS_DEGREES_DISPLAY.CustomerID LEFT OUTER JOIN " & _ "dbo.ZIPCodes ON LEFT(dbo.CUSTOMERS_TRAINERS.PostalCode, 5) = dbo.ZIPCodes.ZIPCode " & _ "WHERE (dbo.CUSTOMERS.MembershipCategoryID = 1) " & _ "AND (dbo.CUSTOMERS.InternetListingStatus IS NOT NULL) " & _ "ORDER BY dbo.COUNTRIES.CountryMailingName" rs.close rs.CursorLocation = adUseClient rs.Open strSQL, con, 1 ,3 ''Response.Write strSQL Response.Write "

Countries

" & vbCRLF Response.Write "
" Do while not rs.EOF Response.Write "" & Cap(trim(rs("country"))) & "   " & vbCRLF rs.MoveNext Loop Response.Write "

" Set db = Nothing CloseObject rs CloseObject con End Sub Sub GetStateProvLinks() Dim con, db, rs, strSQL, website, title, canadadone Set db = New GenUtil db.OpenDatabase con Set rs = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT DISTINCT dbo.STATES.StateLong AS State, COUNTRIES.CountryID " & _ "FROM dbo.CONTINENTS INNER JOIN " & _ "dbo.COUNTRIES ON dbo.CONTINENTS.ContinentID = dbo.COUNTRIES.ContinentID RIGHT OUTER JOIN " & _ "dbo.CUSTOMERS_TRAINERS LEFT OUTER JOIN " & _ "dbo.CUSTOMERS ON dbo.CUSTOMERS_TRAINERS.CustomerID = dbo.CUSTOMERS.CustomerID ON " & _ "dbo.COUNTRIES.CountryID = dbo.CUSTOMERS_TRAINERS.CountryID LEFT OUTER JOIN " & _ "dbo.STATES ON dbo.CUSTOMERS_TRAINERS.StateID = dbo.STATES.StateID LEFT OUTER JOIN " & _ "dbo.CUSTOMERS_DEGREES_DISPLAY ON dbo.CUSTOMERS_TRAINERS.CustomerID = dbo.CUSTOMERS_DEGREES_DISPLAY.CustomerID LEFT OUTER JOIN " & _ "dbo.ZIPCodes ON LEFT(dbo.CUSTOMERS_TRAINERS.PostalCode, 5) = dbo.ZIPCodes.ZIPCode " & _ "WHERE (dbo.STATES.StateLong 'International') AND (COUNTRIES.CountryID = 4 OR COUNTRIES.CountryID = 37) AND (dbo.CUSTOMERS.MembershipCategoryID = 1) " & _ "AND (dbo.CUSTOMERS.InternetListingStatus IS NOT NULL) " & _ "ORDER BY COUNTRIES.CountryID desc, dbo.STATES.StateLong asc" rs.CursorLocation = adUseClient rs.Open strSQL, con, 1 ,3 canadadone = false ''Response.Write strSQL Response.Write "

States in the US

" & vbCRLF Response.Write "
" Do while not rs.EOF if not canadadone and rs("CountryID") = 4 then Response.Write "

" Response.Write "

Provinces in Canada

" & vbCRLF Response.Write "
" canadadone = true end if Response.Write "" & (trim(rs("state"))) & "   " & vbCRLF rs.MoveNext Loop Response.Write "

" Set db = Nothing CloseObject rs CloseObject con End Sub %> '