<add name="TIPWebEdits" connectionString="Provider=VFPOLEDB.1;Data Source=C:\Inetpub\wwwroot\netTIP\App_Data\Tip_WebEdits\tip_webedits.dbc;NULL=No" providerName="System.Data.OleDb" />
>> Public Function SaveTIPChanges() As Boolean >> Dim oConn As New OleDbConnection(ConfigurationManager.ConnectionStrings("TIPWebEdits").ConnectionString) >> >> Dim SQL As String = "INSERT INTO tip (" >> SQL += "tip_id," >> SQL += "st_name," >> SQL += "termini," >> SQL += "project," >> SQL += "rtp_id," >> SQL += "sponsor_id," >> SQL += "state_id," >> SQL += "fed_id," >> SQL += "why," >> SQL += "length," >> SQL += "existlanes," >> SQL += "newlanes," >> SQL += "newwalks," >> SQL += "newbikelanes," >> SQL += "total_cost," >> SQL += "contact," >> SQL += "phone," >> SQL += "func_class," >> SQL += "System," >> SQL += "subsystem," >> 'SQL += "memo," >> SQL += "s_scoping," >> 'SQL += "s_proceed," >> 'SQL += "s_envclr," >> 'SQL += "s_stage1," >> 'SQL += "s_utility," >> 'SQL += "s_railroad," >> 'SQL += "s_rwplans," >> 'SQL += "rw_clr," >> 'SQL += "s_planfile," >> 'SQL += "s_sale," >> SQL += "EditBy)" >> >> SQL += " values " >> >> SQL += "(" >> SQL += TIPID_TextBox.Text.Trim + "," >> SQL += "[" + st_name_TextBox.Text.Trim + "]," >> SQL += "[" + Termini_TextBox.Text.Trim + "]," >> SQL += "[" + Project_TextBox.Text.Trim + "]," >> SQL += rtp_id_TextBox.Text.Trim + "," >> SQL += "[" + sponsor_id_TextBox.Text.Trim + "]," >> SQL += "[" + state_id_TextBox.Text.Trim + "]," >> SQL += "[" + fed_id_TextBox.Text.Trim + "]," >> SQL += "[" + why_TextBox.Text.Trim + "]," >> SQL += Length_TextBox.Text.Trim + "," >> SQL += ExistLanes_TextBox.Text.Trim + "," >> SQL += NewLanes_TextBox.Text.Trim + "," >> SQL += IIf(Sidewalk_CheckBox.Checked = True, ".T.", ".F.") + "," >> SQL += IIf(BikeLane_CheckBox.Checked = True, ".T.", ".F.") + "," >> SQL += Total_cost_TextBox.Text.Trim + "," >> SQL += "[" + Contact_TextBox.Text.Trim + "]," >> SQL += "[" + Phone_TextBox.Text.Trim + "]," >> SQL += "[" + FuncClass_DropDownList.SelectedValue.Trim + "]," >> SQL += "[" + System_DropDownList.SelectedValue.Trim + "]," >> SQL += "[" + Subsystem_DropDownList.SelectedValue.Trim + "]," >> 'SQL += "[" + Server.UrlEncode(Memo_TextBox.Text.Trim) + "]," >> SQL += s_Scoping_TextBox.Text.Trim + "," >> 'SQL += s_proceed_textbox.Text.Trim + "," >> 'SQL += s_envclr_TextBox.Text.Trim + "," >> 'SQL += s_stage1_TextBox.Text.Trim + "," >> 'SQL += s_utility_TextBox.Text.Trim + "," >> 'SQL += s_railroad_TextBox.Text.Trim + "," >> 'SQL += s_rwplans_TextBox.Text.Trim + "," >> 'SQL += s_rwclr_TextBox.Text.Trim + "," >> 'SQL += s_planfile_TextBox.Text.Trim + "," >> 'SQL += s_sale_TextBox.Text.Trim + "," >> SQL += "[" + Membership.GetUser.UserName + "])" >> Response.Write(SQL) >> >> Dim oCommand As New OleDbCommand("ExecuteSQL", oConn) >> oCommand.CommandType = CommandType.StoredProcedure >> Dim param = oCommand.Parameters.Add("@SQL", OleDbType.WChar) >> param.Value = SQL >> >> oConn.Open() >> oCommand.ExecuteNonQuery() >> oConn.Close() >> Return True >> >> >> End Function >>>>I'm also trying to figure out the syntax for the dates as you can see. The problem is with the MEMO field named memo :) (its an old database).