hjälp med for each Falt in rs.fields

Man kan ju vara lite grisig och göra ett undantag.

for each Falt in rs.fields

   if lcase(cstr(falt.name)) <> "id" then 
      rs(falt.name) = request.form(falt.name) 
   end if

next

jo det får kanske bli nått sånt.. men då blir inte sidan så jätte dynamisk ;D

En annan grisig variant är ju att lägga till On Error resume next och i raden efter fånga upp felet och clear:a felet om det inte går att skriva till fältet.

On Error Resume Next
for each Falt in rs.fields
rs(falt.name) = request.form(falt.name) 
if Err.Number = 'Vad det nu blir för fel nummer then
Err.Clear
else
'Annat fel har inträffat avbryt loop
exit for
end if
'Fortsätt loopen

next 

On Error Goto 0

henrikjohansson skrev:

jo det får kanske bli nått sånt.. men då blir inte sidan så jätte dynamisk ;D

Hur ofta har man en räknare/primärnyckel som heter något annat än ID, samt hur ofta kommer du flytta scriptet/byta databas?

det är iofs ganska sällan :D

henrikjohansson skrev:

det är iofs ganska sällan :D

Dåså. ;)