[[[JONAS]]]

Amigos ya está solucionado. Por si a alguien le pasara lo mismo que a mí. he cambiado algo el código:

 
var sqlt : string;
begin
	try
	begin
		sqlt := 'Update Vehiculo Set vehdes =' + chr(39) + Request.ContentFields.Values['desvehiculo'] + chr(39);
		sqlt := sqlt + ' where vehcod =' + chr(39) + Request.ContentFields.Values['codvehiculo'] + chr(39);
		with IBQuery1 do
		begin
		   sql.Clear;
		   sql.Add(sqlt);
		   Execsql;
		end;