<%Set dbConn = Server.CreateObject("ADODB.Connection")Set rs = Server.CreateObject("ADODB.RecordSet")dbConn.open Application("ConnectionString")%>RAM : Connect with OthersPrivacy PolicySite MapContact UsHome
HomeAbout RAMNational PartnersConnect with OthersResourcesQuality Improvement OrganizationsPress RoomUnderwritersFAQs
ImageMap

Subscribe to Remaking American Medicine's FREE newsletter.

Quick Login

For National Partners and Quality Improvement Organizations (QIOs) access a special section of RAMcampaign.org created just for you. To obtain a User ID and Password click here.

USER ID:

PASSWORD:



CONNECT WITH OTHERS

<% if request.form("search") = "" then %>

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.


SEARCH

<%end if%>

#topofresults" method="post" name="CwO">
Organization: ">
City: ">
State:
Zip Code: ">
Region
Audience
Organization Type
Health Care Issues
Keywords ">

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


<% else %>

SEARCH RESULTS

<% do until rs.eof %>

<%= 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')">


<% rs.movenext loop end if %> <% end if %>