<%@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 %> USC Annenberg - Institute for Justice and Journalism
About Us Justice & Journalism Fund Reporting Resources Contact Us

NAVIGATION

  • On Justice & Injustice
  • IJJ-Supported Projects
  • Environmental Justice
  • Immigration Resources
  • Ask Dan
  • Media Reports on Immigration
  • Reporting Resources
  • Center for Media, Crime and Justice

JOIN OUR E-MAIL LIST!

Sign up here to receive alerts about JustNews.org content and about upcoming IJJ programs:

  • Register to receive e-mail alerts
  • Update your e-mail or profile
  • Unsubscribe to e-mail alerts

CENTER FOR MEDIA, CRIME AND JUSTICE

This center is an IJJ partner organization. We collaborate on news media issues regarding criminal justice.

YOUR COMMENTS

Comment about this site, specific stories or IJJ's plans. Share your experiences in covering social justice stories. We'll post comments selectively.


">
    <% While ((Repeat3__numRows <> 0) AND (NOT rsContent07Comments.EOF)) %>
  • <%=(rsContent07Comments.Fields.Item("EntryTextBrief").Value)%>
    • <% Repeat3__index=Repeat3__index+1 Repeat3__numRows=Repeat3__numRows-1 rsContent07Comments.MoveNext() Wend %>

IJJ LINKS

Immigration Resources

To receive immigration updates via Bender’s Immigration Bulletin: Click below and fill in your e-mail address at “Join Email Update.”
www.bibdaily.com

“Controlling Immigration: What Oaxacan Migrants Can Tell Us”
Power Point prepared by Dr. Wayne Cornelius, Director, Center for Comparative Immigration Studies, UC-San Diego
Download PPT | Download PDF

IJJ Sessions at Unity: Immigration Storytelling to Require Greater Expertise

How to Keep Ahead of the Immigration Story

Immigration Reporting Resources

Q&A with reporter Esmeralda Bermudez about an Oregon family deported to Guatemala

PAST IJJ FELLOWSHIP PROGRAMS
CRIMINAL JUSTICE

This is sample text provided to give you an example of what your text will look like in this

RACIAL JUSTICE

This is sample text provided to give you an example of what your text will look like in this
IMMIGRATION

This is sample text provided to give you an example of what your text will look like in this

9/11 SECURITY & LIBERTY

This is sample text provided to give you an example of what your text will look like in this

PAST EVENTS, CONFERENCES

IJJ's Sessions at Unity: Telling the Immigration Story to Require Greater Expertise

 

Immigration: The Mexican Perspective

 

The Black Underclass and America’s Criminal Justice System Read More..

 

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

© 2006-2009 USC Annenberg Institute for Justice and Journalism. All rights reserved.
Web site designed and maintained by IVC Productions
<% rsContent07Comments.Close() Set rsContent07Comments = Nothing %> <% rsContent32IJJLinks.Close() Set rsContent32IJJLinks = Nothing %>