Institute for Justice and Journalism

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


	Racial Justice Fellows, 2007 Ann Bennett Freelance Producer / Writer National Black Programming Consortium ANN BENNETT is an independent filmmaker with a specialty in historical documentaries. After studying American History and 16mm Production at Harvard University, Bennett began her film career at Blackside Productions in Boston. Since then, she has worked on a host of documentaries on African American history and culture for public television, cable networks, and several non-profit organizations. Bennett has devoted her professional career to exploring the nexus of history, culture, and spirituality within the African Diaspora. She has won awards and fellowships from: The National Black Programming Consortium - New Media & Technology Institute, The American Film Institute Digital Content Lab, The CPB Producers Academy, The Black Documentary Collective, The Independent Feature Project Documentary Lab, and The Columbia University Bollinger Presidential Scholarship. Back

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