I am getting the following error message when I am inserting data into the database:
-2147467259
Here is the insert code.
<%
connectionstring = "DRIVER={MySQL ODBC 3.51 Driver};Server=xxx;Database=xxx;uid=xxx;"
Set cn = Server.CreateObject("ADODB.Connection")
On error resume next
cn.Open connectionstring
if err <> 0 then
cn.Close
usrmsg = "Error opening connection to database."
Response.Redirect("/error.asp?err=" & err & "&usrmsg=" & usrmsg)
else
Set member = Server.CreateObject("ADODB.Recordset")
member.ActiveConnection = cn
'start of form
id = request.Form("id")
firstname = request.Form("firstname")
lastname = request.Form("lastname")
address1 = request.Form("address1")
address2 = request.Form("address2")
city = request.Form("city")
states = request.Form("states")
zip = request.Form("zip")
country = request.Form("country")
email = request.Form("email")
newsletter = request.Form("newsletter")
rdate = FormatDateTime(Date)
fields = ""
fields = fields & "id,"
fields = fields & "firstname,"
fields = fields & "lastname,"
fields = fields & "address1,"
fields = fields & "address2,"
fields = fields & "city,"
fields = fields & "states,"
fields = fields & "zip,"
fields = fields & "country,"
fields = fields & "email,"
fields = fields & "newsletter,"
fields = fields & "rdate"
values = ""
values = values & "'" & id & "',"
values = values & "'" & firstname & "',"
values = values & "'" & lastname & "',"
values = values & "'" & address1 & "',"
values = values & "'" & address2 & "',"
values = values & "'" & city & "',"
values = values & "'" & states & "',"
values = values & "'" & zip & "',"
values = values & "'" & country & "',"
values = values & "'" & email & "',"
values = values & "'" & newsletter & "',"
values = values & "'" & rdate & "'"
sqltext = ""
sqltext = sqltext & "insert into contact (" & fields & ") values (" & values & ")"
'Response.Write(sqltext & "<br>")
On error resume next
member.open sqltext
if err <> 0 then
usrmsg = "Error inserting record into database."
Response.Redirect("error.asp?err=" & err & "&usrmsg=" & usrmsg)
end if
end if
cn.close
%>
any help would be greatly appreciated.






Bookmarks