It is a website built in .ASP and with an ACCESS database.
It has been in operation for 3 years and has not caused any problems but today I started to give this error. The error is as follows,
Microsoft JET Database Engine error '80040e21'
The field is too small to accept the amount of data you are trying to add. Try inserting or pasting less data. line 47
Line 47 corresponds to rs("Mobil")=trim(request("Mobil"))
sql="SELECT * FROM [Dades Pacient]"
rs.Open sql, cnnSimple
rs.Addnew
rs("Nom")=trim(request("Nom"))
rs("Cognoms")=trim(request("Cognoms"))
rs("Dni")=trim(request("Dni"))
rs("data ingres")=trim(request("dataingres"))
rs("Resposable")=request("Resposable")
rs("registre")=trim(request("registre"))
rs("codi")=trim(request("codi"))
rs("Codi Postal")=trim(request("CodiPostal"))
rs("Direccio")=trim(request("Direccio"))
rs("Poblacio")=trim(request("Poblacio"))
rs("Provincia")=trim(request("Provincia"))
rs("Telefon")=trim(request("Telefon"))
rs("Mobil")=trim(request("Mobil"))
rs("eMail")=trim(request("eMail"))
if trim(request("dataingres"))<>"" then rs("data ingres")=trim(request("dataingres")) end if
rs("camp1")=request("camp1")
if trim(request("data_alta"))<>"" then rs("data_alta")=trim(request("data_alta")) end if
if trim(request("data-neixament"))<>"" then rs("data neixament")=trim(request("data-neixament")) end if
rs("Sexe")=trim(request("Sexe"))
rs("Estat Civil")=trim(request("EstatCivil"))
rs("Estudis")=trim(request("Estudis"))
rs("Treball")=trim(request("Treball"))
rs.Update
response.write sql
rs.close