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

National Center on Minority Health and Health Disparities Centers of Excellence in Partnerships for Community Outreach, Research on Health Disparities and Training (Project EXPORT)

University of Alabama, Birmingham
University of Alabama, Tuscaloosa
University of South Alabama, Mobile
Alabama State University
University of Alaska, Anchorage
University of Albany, SUNY
University of Arizona
Black Hills State University
Bluefield State College
University of California, Davis
University of California, Los Angeles
University of California, San Diego
Carlos Albizu University
Children’s National Medical Center
Clemson University
University of Colorado Health Sciences Center
Columbia University Health Sciences
Charles R. Drew University and Medical Science Center
Albert Einstein College of Medicine
Emory University
Florida A&M University
Florida International University
Governors State University
University of Hawaii at Manoa
Howard University
University of Illinois at Chicago
Henry M. Jackson Foundation for the Advancement of Military Medicine
Jackson State University
Johns Hopkins University
University of Maryland Baltimore Professional School
Medical University of South Carolina
University of Medicine and Dentistry of New Jersey
Medstar Research Institute
Meharry Medical College
University of Michigan at Ann Arbor
Morehouse College		  

Morehouse School of Medicine
Morgan State University
Mount Sinai School of Medicine of New York University
University of Nevada, Las VegasUniversity of North Carolina
University of North Carolina, Greensboro
North Carolina Central University
University of Northern Iowa
New York University School of Medicine
University of North Carolina, Greensboro
University of Oklahoma Health Sciences Center
University of Pennsylvania
University of Pittsburgh
University of Puerto Rico Medical Sciences Campus
San Diego State University
Shaw University
South Carolina State University
State University of New York Downstate Medical Center
Temple University School of Medicine
East Tennessee State University
Texas College
University of Texas at Brownsville
Texas A&M Research Foundation
University of Texas Health Science Center, Houston
University of Texas, El Paso
University of Texas MD Anderson Cancer Center
Texas Southern University
Texas Tech University Health Sciences Center
Tuskegee University
University of the Virgin Islands
University of Wisconsin, Madison

 
The 1 Joshua Group, LLC • 3695-F Cascade Road, Suite 1139 • Atlanta, GA 30331 • v: 404.505.8822 • f: 404.505.0713