Hi I am trying to write values to a database, but when using the INSERT
keyword, i get this error : Number of query values and destination fields
are not the same. I have reduced my number of query values and destination
fields to just one so they are definitely the same. Anyone got any ideas? the code is as follows:

<%
If Len(Request.Form("Company")) = 0 Then
   Response.Redirect("addError.asp")
Else
   Set Conn = Server.CreateObject("ADODB.Connection")
   Conn.Open "DSN=AppsDB"

   Company = ReplaceQuotes(Request.Form("Company"))
' Division = ReplaceQuotes(Request.Form("Division"))
' Device = ReplaceQuotes(Request.Form("Device"))
' Engineer = ReplaceQuotes(Request.Form("Engineer"))
' MainIssue = ReplaceQuotes(Request.Form("MainIssue"))
' DateReceived = ReplaceQuotes(Request.Form("DateReceived"))

   strSql = "INSERT INTO MainTable VALUES('" & Company & "')"
   ', '" & Division & "', '" & Device & "', '" & Engineer & "', '" & MainIssue & "', '" & DateReceived & "')"
   Conn.Execute(strSql)

   Conn.Close
   Set Conn = Nothing
End If

Function ReplaceQuotes(strValue)
   strValue = Replace(strValue, "'", "''")

   ReplaceQuotes = strValue
End Function
%>

can you Response.Write your SQL statement (after posting the form)? Check your database for any missing fields,

The way you have your SQL statements,the values will have to be specified in the order of the fields in the table.
You can also try to build you SQL statement like this
INSERT INTO tablename (column1, column2,column3) VALUES (value1,value2,value3);

Let me know

You could try an update query as well.

set rs = server.createobject("adodb.recordset")
sql = "select * from MainTable"
rs.open sql, conn, 3, 3
rs.addnew
rs("Company") = request("Company")
rs("Division") = request("Division")
rs("Device") = request("Device")
rs("Engineer") = request("Engineer")
rs("MainIssue") = request("MainIssue")
rs("DateReceived") = request("DateReceived")
rs.update

When you try to add value to just one or two columns and not all the columns of the table, then you have to mention that in order and specify its values in that order too in your INSERT statement, which you are missing.

strSql = "INSERT INTO MainTable(COMPANY_COLUMN_NAME) VALUES('" & Company & "')"

Regarding the error that you might have faced while trying to add values for all the columns, check if all VARIABLES are having values.

Also check this Page - Why do I get an 0x80040e14 error message? that deals with other errors of similar error code.

Hope that helps.
Cheers!

_________________________
- Vijay G
Strive for Perfection

thanks guys! Its working now!