%Set dbConn = Server.CreateObject("ADODB.Connection")Set rs = Server.CreateObject("ADODB.RecordSet")dbConn.open Application("ConnectionString")%>
This site was designed to help bring individuals and organizations together to promote quality health care improvement. To see how the site helped to connect individuals and organizations, select a state from the drop down state menu and type in Coalition Support in the Keywords box. You can also search for National Partners and Best Practices by selecting a state and then typing in either phrase in Keywords.
Search results will yield:
Local coalition organizer names and contact information for groups creating grassroots activities around the country that participated in partnership with the Remaking American Medicine outreach campaign.
National Partner organizations who can put you in touch with their local members, affiliates or chapters if you want to learn what others may be doing in the area of quality improvement. We also suggest that you visit the Resources section on this site and look for National Partner Quality Tools.
Best practices examples of quality improvement. There is much to learn from each other about improving quality. Here are some great places to start.
To search for other health care issues, related topics and organizations not featured in the drop-down menus, just enter names, subjects or phrases in the Keywords box.
All of the organizations in the database have agreed to be listed.
<%if request.form("search") = "1" then rs.cursortype = 1 SQL = "SELECT dbo.tblConnectWithOthers.*, dbo.tblHCI.HCI, dbo.tblRegions.region, dbo.tblOrganizationType.organizationType, dbo.tblAudience.audience "& _ "FROM dbo.tblConnectWithOthers INNER JOIN " &_ "dbo.tblHCI ON dbo.tblConnectWithOthers.healthCareIssuesID = dbo.tblHCI.ID INNER JOIN " &_ "dbo.tblRegions ON dbo.tblConnectWithOthers.regionID = dbo.tblRegions.ID INNER JOIN " &_ "dbo.tblOrganizationType ON dbo.tblConnectWithOthers.organizationTypeID = dbo.tblOrganizationType.ID INNER JOIN " &_ "dbo.tblAudience ON dbo.tblConnectWithOthers.audienceID = dbo.tblAudience.ID " &_ "" whereclause = "" if request.form("organization") <> "" then whereclause = "organizationName LIKE '%" & lcase(replace(request.form("organization"), "'", "''")) & "%'" end if 'if request.form("lastName") <> "" then 'if whereclause <> "" then ' whereclause = whereclause & " AND " 'end if ' whereclause = whereclause & "contactLastName LIKE '" & lcase(replace(request.form("lastName"), "'", "''")) & "%'" 'end if if request.form("city") <> "" then if whereclause <> "" then whereclause = whereclause & " AND " end if whereclause = whereclause & "city LIKE '%" & lcase(replace(request.form("city"), "'", "''")) & "%'" end if if request.form("state") <> "0" then if whereclause <> "" then whereclause = whereclause & " AND " end if whereclause = whereclause & "LOWER(state) = '" & lcase(replace(request.form("state"), "'", "''")) & "'" end if if request.form("zipCode") <> "" then if whereclause <> "" then whereclause = whereclause & " AND " end if whereclause = whereclause & "zipCode = '" & lcase(replace(request.form("zipCode"), "'", "''")) & "'" end if if request.form("region") <> "0" then if whereclause <> "" then whereclause = whereclause & " AND " end if whereclause = whereclause & "tblRegions.ID = " & request.form("region") end if if request.form("audience") <> "0" then if whereclause <> "" then whereclause = whereclause & " AND " end if whereclause = whereclause & "tblAudience.ID = " & request.form("audience") end if if request.form("organizationType") <> "0" then if whereclause <> "" then whereclause = whereclause & " AND " end if whereclause = whereclause & "tblOrganizationType.ID = " & request.form("organizationType") end if if request.form("HCI") <> "0" then if whereclause <> "" then whereclause = whereclause & " AND " end if whereclause = whereclause & "tblHCI.ID = " & request.form("HCI") end if if request.form("keywords") <> "" then if whereclause <> "" then whereclause = whereclause & " AND " end if whereclause = whereclause & "keywords LIKE '%" & lcase(replace(request.form("keywords"), "'", "''")) & "%'" end if if whereclause <> "" then SQL = SQL & " WHERE " & whereclause & " AND tblConnectWithOthers.active = 1" else SQL = SQL & " WHERE tblConnectWithOthers.active = 1" end if SQL="[sp_CWO] " & "'%" & lcase(replace(request.form("organization"), "'", "''")) & "%'" & ",'%" & lcase(replace(request.form("city"), "'", "''")) & "%'" & ",'" & request.form("state") & "'" & ",'" & request.form("zipCode") & "%'" & "," & request.form("region") & "" & ",'%" & request.form("organizationType") & "%'" & ",'%" & request.form("audience") & "%'" & ",'%" & request.form("HCI") & "%'" & ",'%" & lcase(replace(request.form("keywords"), "'", "''")) & "%'" 'response.write SQL rs.open SQL, dbConn if rs.eof then %>
No matches in the database were found.
<%= rs("organizationName") %>
<%= rs("address") %>
<%= rs("city") %>, <%= UCase(rs("state")) %> <%= rs("zipCode") %>
Phone: <%= rs("organizationPhone") %>
URL: ', 'externalSite','')}"><%= rs("URL") %>
Organization Type: <%= rs("OrgTypeList") %>
Health Care Issues: <%= rs("HCI_List") %>
<% if rs("missionStatement") <> "" then %> Mission Statement: <%= left(rs("missionStatement"),300) %>...
<% end if %>
','connectDetails','width=560,height=500,status=no,location=no,menubar=no,scrollbars')">