<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables MM_editAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Request.QueryString End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Insert Record: set variables If (CStr(Request("MM_insert")) <> "") Then MM_editConnection = MM_INDOT_Comments_STRING MM_editTable = "comments" MM_editRedirectUrl = "thankyou.htm" MM_fieldsStr = "WholeName|value|Business|value|Home|value|City|value|State|value|Zip|value|Email|value|Maillist|value|Notify|value|Days|value|Commute|value|Interest|value|Comment|value|Heard|value|Rating|value" MM_columnsStr = "WholeName|',none,''|Business|',none,''|Home|',none,''|City|',none,''|State|',none,''|Zip|',none,''|Email|',none,''|Maillist|none,1,0|Notify|none,1,0|Days|',none,''|Commute|',none,''|Interest|',none,''|Comment|',none,''|Heard|',none,''|Rating|',none,''" ' create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, "|") MM_columns = Split(MM_columnsStr, "|") ' set the form values For i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_fields(i+1) = CStr(Request.Form(MM_fields(i))) Next ' append the query string to the redirect URL If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString Else MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString End If End If End If %> <% ' *** Insert Record: construct a sql insert statement and execute it If (CStr(Request("MM_insert")) <> "") Then ' create the sql insert statement MM_tableValues = "" MM_dbValues = "" For i = LBound(MM_fields) To UBound(MM_fields) Step 2 FormVal = MM_fields(i+1) MM_typeArray = Split(MM_columns(i+1),",") Delim = MM_typeArray(0) If (Delim = "none") Then Delim = "" AltVal = MM_typeArray(1) If (AltVal = "none") Then AltVal = "" EmptyVal = MM_typeArray(2) If (EmptyVal = "none") Then EmptyVal = "" If (FormVal = "") Then FormVal = EmptyVal Else If (AltVal <> "") Then FormVal = AltVal ElseIf (Delim = "'") Then ' escape quotes FormVal = "'" & Replace(FormVal,"'","''") & "'" Else FormVal = Delim + FormVal + Delim End If End If If (i <> LBound(MM_fields)) Then MM_tableValues = MM_tableValues & "," MM_dbValues = MM_dbValues & "," End if MM_tableValues = MM_tableValues & MM_columns(i) MM_dbValues = MM_dbValues & FormVal Next MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")" If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_editConnection MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close If (MM_editRedirectUrl <> "") Then Response.Redirect(MM_editRedirectUrl) End If End If End If %> <% set Insert_Comments = Server.CreateObject("ADODB.Recordset") Insert_Comments.ActiveConnection = MM_INDOT_Comments_STRING Insert_Comments.Source = "SELECT * FROM comments ORDER BY Date ASC" Insert_Comments.CursorType = 0 Insert_Comments.CursorLocation = 2 Insert_Comments.LockType = 3 Insert_Comments.Open() Insert_Comments_numRows = 0 %> F E E D B A C K - US 231 Relocation Study


Feedback

The official comment period for the Draft Environmental Document ended October 18, 2002. Thank you to those that submitted comments. The comments received on the document are part of the official public hearing transcript and are addressed in the Final Environmental Document.

You may continue to provide general comments and feedback on the project. However, the comments received after October 18, 2002 will not be considered official public hearing comments nor will they be addressed in the Final Environmental Document. General comments are considered as an overall part of the public involvement process for the project.

Send comments to:

Mary Wright
INDOT Hearings Examiner
IGCN, Room N901
100 N Senate Ave
Indianapolis, IN 46204

Phone: (317) 234-0796
Fax: (317) 234-1228

E-mail: mwright@indot.state.in.us
<% Insert_Comments.Close() %>