Heartbeat International - Worldwide Directory

<% if instr(1,lcase(Request.ServerVariables("SCRIPT_NAME")),"wwinclude.asp")>0 then Response.End end if 'isAffReport determines if the report should show the director information. This is set in the page that included this file. 'isWideReport determines whether the report shows all possible columns or just the primary ones. 'isWideAffReport is set if isAffReport and isWideReport are both set. if isAffReport <> true then isAffReport = false end if isWideReport = request("showWideReport") if isWideReport = "1" then isWideReport = true if isWideReport = "0" then isWideReport = false if isWideReport = "" then isWideReport = session("isWideReport") if isWideReport = "" then isWideReport = false end if end if if request("wide") <> "" then isWideReport = not(isWideReport) end if session("isWideReport") = isWideReport isWideAffReport = isWideReport and isAffReport sortby = request("txtsortby") oldsortby = session("oldsortby") oldRsSortStr = session("oldRsSortStr") pagenum = session("pagenum") if pagenum = "" or pagenum=0 then pagenum = 1 session("pagenum") = 1 end if 'a change in sort should reset the current page if sortby = "" then 'no change rsSortStr = oldRsSortStr else if sortby <> oldsortby then rsSortStr = "[" & sortby & "] asc" else 'hit the same sort link again. if oldRsSortStr = "[" & sortby & "] asc" then rsSortStr = "[" & sortby & "] desc" else rsSortStr = "[" & sortby & "] asc" end if end if 'save the sort stuff for the next time around session("oldRsSortStr") = rsSortStr session("oldsortby") = sortby pagenum = 1 session("pagenum") = 1 end if nav=request("nav") if request("nav") = "prev" then pagenum=pagenum-1 if pagenum=0 then pagenum=1 end if session("pagenum")=pagenum elseif request("nav") = "next" then pagenum=pagenum+1 if pagenum=0 then pagenum=1 end if session("pagenum")=pagenum end if searchOrg = request("sOrg") searchCity = request("sCity") searchState = request("statedd") searchZip = request("szip") searchCountry = request("countrydd") searchHBA = request("sHBA") searchService = request("servicedd") if request("clear") <> "" Then searchOrg = "" searchCity = "" searchState = "" searchZip = "" searchCountry = "" searchHBA = "" searchService = "" end if search=request("search") 'if search <> "" then strFilter = "" needAnd = false if searchOrg <> "" then call addFilter("Organization like '%" & searchOrg & "%'", strFilter, needAnd) end if if searchCity <> "" then call addFilter("City like '%" & searchCity & "%'", strFilter, needAnd) end if if searchState <> "" then call addFilter("[State/Province] = '" & searchState & "'", strFilter, needAnd) end if if searchZip <> "" then call addFilter("Zip like '" & searchZip & "%'", strFilter, needAnd) end if if searchCountry <> "" then if searchCountry="zzUS" then 'handle us special case call addFilter("Country=null", strFilter, needAnd) else call addFilter("Country like '%" & searchCountry & "%'", strFilter, needAnd) end if end if if searchHBA <> "" then call addFilter("[HB Affiliate] =" & searchHBA & "", strFilter, needAnd) end if if searchService <> "" then call addFilter("Service ='" & searchService & "'", strFilter, needAnd) end if 'Response.Write searchOrg & "-
" 'Response.Write searchCity & "-
" 'Response.Write searchState & "-
" 'Response.Write searchZip & "-
" 'Response.Write searchCountry & "-
" 'Response.Write searchHBA & "-
" 'Response.Write searchService & "-
" 'end if 'Response.Write "strFilter = " & strFilter function addFilter(filterToAdd, byref strFilter, byref needAnd) if needAnd then strFilter = strFilter & " and " end if strFilter = strFilter & filterToAdd needAnd = true end function 'Response.Write rssortstr %> <%if isAffReport then %> Heartbeat International - Worldwide Directory <%else%> Heartbeat International - Worldwide Directory <%end if%> <%' 'I changed this row to be in it's own table becuase the resizer column was being pushed way out to the right for some reason 'This work around seems to work though. %>

	Affiliation \| International Affiliates \| News Training \| Resources \| For Affiliates Only

Worldwide Directory

The online Worldwide Directory has been moved to our new site,
http://heartbeatservices.org/index.php/connections/worldwide-directory

<% if isObject(oRS) then oRs.Close end if if isObject(oConn) then oConn.Close end if set oRs=nothing set oConn = nothing function makesortable(strDB, strDisplay) if strDisplay = "" then strDisplay = strDB outStr = "" outStr = outStr & strDisplay & "" makesortable = outStr end function function displayOrganization(inStr, id) if inStr = " " then outStr = inStr else tooltip = "Click to see more detail for this organization." outStr = "" & inStr & "" end if displayOrganization = outStr end function %>