<%@LANGUAGE="VBSCRIPT"%> <% Dim MM_editAction 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 Dim MM_abortEdit MM_abortEdit = false %> <% ' IIf implementation Function MM_IIf(condition, ifTrue, ifFalse) If condition = "" Then MM_IIf = ifFalse Else MM_IIf = ifTrue End If End Function %> <% If (CStr(Request("MM_insert")) = "frmComments") Then If (Not MM_abortEdit) Then ' execute the insert Dim MM_editCmd Set MM_editCmd = Server.CreateObject ("ADODB.Command") MM_editCmd.ActiveConnection = MM_ijjSQL_STRING MM_editCmd.CommandText = "INSERT INTO dbo.tbl_Content (EntryTextBrief, CategoryID, IPAddress, SessionID) VALUES (?, ?, ?, ?)" MM_editCmd.Prepared = true MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 203, 1, 1073741823, Request.Form("EntryTextBrief")) ' adLongVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, -1, MM_IIF(Request.Form("CategoryID"), Request.Form("CategoryID"), null)) ' adDouble MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("IPAddress")) ' adVarWChar MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 5, 1, -1, MM_IIF(Request.Form("SessionID"), Request.Form("SessionID"), null)) ' adDouble MM_editCmd.Execute MM_editCmd.ActiveConnection.Close ' append the query string to the redirect URL Dim MM_editRedirectUrl MM_editRedirectUrl = "/ijj/comments_successful.asp" If (Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If Response.Redirect(MM_editRedirectUrl) End If End If %> <% Dim rsContent07Comments Dim rsContent07Comments_cmd Dim rsContent07Comments_numRows Set rsContent07Comments_cmd = Server.CreateObject ("ADODB.Command") rsContent07Comments_cmd.ActiveConnection = MM_ijjSQL_STRING rsContent07Comments_cmd.CommandText = "SELECT * FROM view_Content07Comments ORDER BY EntryDate DESC" rsContent07Comments_cmd.Prepared = true Set rsContent07Comments = rsContent07Comments_cmd.Execute rsContent07Comments_numRows = 0 %> <% Dim rsContent32IJJLinks Dim rsContent32IJJLinks_cmd Dim rsContent32IJJLinks_numRows Set rsContent32IJJLinks_cmd = Server.CreateObject ("ADODB.Command") rsContent32IJJLinks_cmd.ActiveConnection = MM_ijjSQL_STRING rsContent32IJJLinks_cmd.CommandText = "SELECT * FROM view_Content32IJJLinks ORDER BY EntryDate DESC" rsContent32IJJLinks_cmd.Prepared = true Set rsContent32IJJLinks = rsContent32IJJLinks_cmd.Execute rsContent32IJJLinks_numRows = 0 %> <% Dim Repeat4__numRows Dim Repeat4__index Repeat4__numRows = -1 Repeat4__index = 0 rsContent32IJJLinks_numRows = rsContent32IJJLinks_numRows + Repeat4__numRows %> <% Dim Repeat3__numRows Dim Repeat3__index Repeat3__numRows = 3 Repeat3__index = 0 rsContent07Comments_numRows = rsContent07Comments_numRows + Repeat3__numRows %> Institute for Justice and Journalism

 

Border Justice Fellows, 2003-2004

Mary Ellen Sanchez
Reporter/Columnist
Kansas City Star

Mary Sanchez is the race and ethnicity reporter and weekly op-ed columnist for The Kansas City Star, where she has worked since 1985. She writes a monthly column for The Poynter Institute's website and is a correspondent for EFE, a wire service based in Madrid, Spain. Sanchez covers a wide range of people and ethnic communities and specializes in immigration. She has traveled extensively throughout Mexico and Central America. The National Association of Hispanic Journalists, the National Association of Black Journalists, and the Gay & Lesbian Alliance Against Defamation have recognized Sanchez’s work.


Fellowship Project:

Back

Home | About Us | Our Partners & Funders | Justice & Journalism Fund | Reporting Resources | Contact Us

<% rsContent07Comments.Close() Set rsContent07Comments = Nothing %> <% rsContent32IJJLinks.Close() Set rsContent32IJJLinks = Nothing %>