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


	Border Justice Fellows, 2003-2004 Julio Cesar Ortiz Special Asst. Reporter KTVW Canal 33 Julio Ortiz is a General and Special Assignment reporter for Univision Arizona. He was born in Ensenada, Mexico, about 2 hours south of Tijuana. He received most of his schooling in Mexico before moving to the United States, where he finished his college education. Ortiz founded the first weekly Spanish Newscast in the history of the California State University System. He has worked for Spanish radio and newspapers as a border correspondent and covers border and immigration issues and legislation on a regular basis. Back

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