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 Barbara Belejack Editor The Texas Observer BARBARA BELEJACK, editor of the Texas Observer, moved to Austin in 2001 from Mexico City, where she worked as a journalist for many years. She also taught a course called "The U.S., Latin America, and the Media," at New York University's Center for Latin American and Caribbean Studies. Before becoming a journalist, she worked for two years as a Legal Services lawyer. Her real claim to fame, she says, is that she is distantly related to Thomas Bell (real name Belejcak, as the name is spelled in Andy Warhol country), the author of “Out of This Furnace,” a classic novel about Eastern European immigration to the United States. Belejack is a graduate of Vassar College. She received a master’s in journalism from New York University and a law degree from the University of Connecticut. Back

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