Set objGetData=objCon.Execute("SELECT MAX(GalleryIdNr) FROM motgallery")
If objGetData.EOF Then
set LGalleryIdNr=1
Else
LGalleryIdNr= objGetData("GalleryIdNr")+1
end if

vad skall jag anv för namn avseende objGetData ?

Mvh
Johan

lika enkelt som självklart...

Set objGetData=objCon.Execute("SELECT MAX(GalleryIdNr) FROM motgallery")
If objGetData.EOF Then
set LGalleryIdNr=1
Else
LGalleryIdNr= objGetData("MAX(GalleryIdNr)")+1
end if

är svaret.... kom på det själv! Kul detta - inte så svårt.

Set ställer nog till det. Om det skulle vara tomt. Du bör oxå kolla efter null varden. Addition med null ger null.
<code>

Set objGetData=objCon.Execute("SELECT MAX(GalleryIdNr) As LastId FROM motgallery")
If objGetData.EOF Then
LGalleryIdNr = 1
ElseIf IsNull(objGetData("LastId")) Then
LGalleryIdNr = 1
Else
LGalleryIdNr = objGetData("LastId") + 1
End If
</code>

tack, ser bättre ut.. har ändrat!