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


	9/11 Security and Liberty Fellowships, 2004-2005 Christian Bordal Producer Public Radio International and KCRW-FM Christan Bordal lives in Los Angeles, California where he is producer of the radio programs “To the Point” and “Which Way L.A.?” Both are daily current affairs programs hosted by veteran news host Warren Olney and produced at NPR affiliate KCRW-FM on the campus of Santa Monica College. “To the Point” airs on NPR affiliates around the country and covers matters of national and international significance. “Which Way L.A.?” airs on KCRW in Southern California and covers local and statewide topics. Bordal can also be heard from time to time covering his other love, music, on National Public Radio. Back

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