<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) = "2005HD_registration") Then MM_editConnection = MM_HD2005_registration_STRING MM_editTable = "vborden.HD2005_registration" MM_editRedirectUrl = "2005HD_Reply.htm" MM_fieldsStr = "FirstName|value|LastName|value|Degrees|value|Organization|value|Address|value|City|value|State|value|ZipCode|value|PhoneNumber|value|AlternateNumber|value|FaxNumber|value|EmailAddress|value|PosterPresentations|value|Dinner|value|CME|value|Stroke|value|BenchBedside|value|CVD|value|HIVAIDS|value|CancerHealth|value|SecondaryDatabases|value|EconomicBarriers|value|Undergraduate|value|TranslatingGenomic|value" MM_columnsStr = "FirstName|',none,''|LastName|',none,''|Degrees|',none,''|Organization|',none,''|Address|',none,''|City|',none,''|State|',none,''|ZipCode|',none,''|PhoneNumber|',none,''|AlternateNumber|',none,''|FaxNumber|',none,''|EmailAddress|',none,''|PosterPresentations|none,'Y','N'|Dinner|none,'Y','N'|CME|none,'Y','N'|Stroke|',none,''|BenchBedside|',none,''|CVD|',none,''|HIVAIDS|',none,''|CancerHealth|',none,''|SecondaryDatabases|',none,''|EconomicBarriers|',none,''|Undergraduate|',none,''|TranslatingGenomic|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),",") MM_delim = MM_typeArray(0) If (MM_delim = "none") Then MM_delim = "" MM_altVal = MM_typeArray(1) If (MM_altVal = "none") Then MM_altVal = "" MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = "none") Then MM_emptyVal = "" If (MM_formVal = "") Then MM_formVal = MM_emptyVal Else If (MM_altVal <> "") Then MM_formVal = MM_altVal ElseIf (MM_delim = "'") Then ' escape quotes MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'" Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End If MM_tableValues = MM_tableValues & MM_columns(MM_i) MM_dbValues = MM_dbValues & MM_formVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> Health Disparities Symposium

MOREHOUSE SCHOOL OF MEDICINE HIGHLIGHTS - POSTER PRESENTATIONS
Morehouse School of Medicine faculty and staff will present clinical, basic science, research, education and training programs designed to eliminate health disparities.

PLENARY SESSIONS
Federal, state, and local agencies have been invited to present overviews of their strategic and programmatic plans on health disparities, research and outcomes.

WORKING SESSIONS
Attendees will participate in working sessions around topic areas presented during the Plenary Sessions. These interactive working groups have been designed to engage participants in discussions focused on the major lessons learned from integrated, multidisciplinary, research, and programs to include the community-based experience. This model program format is developed to strengthen interdisciplinary collaborations among scientific, clinical and community based research populations. In addition, participants will engage in work sessions to assist in developing appropriate recommendations.

WORKING SESSION TOPIC AREAS
Cancer
Renal Disease
Cardiovascular Disease
Stroke
Diabetes
Student Engagement
HIV/AIDS and other Infectious Diseases
Utilizing Secondary Databases
Obesity
Undergraduate Student Engagement

COMMUNITY PHYSICIANS’ NETWORK
The Morehouse School of Medicine Community Physicians’ Network will present an official satellite workshop titled “Cardiovascular Disease, Depression, and Women’s Health: Best Practices for Closing the Treatment Gap.” Separate registration is required for this session, please be certain to select this activity on the Registration Form

THE DEBILITATOR
A viewing of an independent film focused on a middle-aged African American male with diabetes, its complications, and his non-compliance followed by a panel discussion.
 
Morehouse School of Medicine
720 Westview Drive, SW
Atlanta, Georgia 30310
webmaster@msm.edu