poster i database (burde være let)

ved ikke om det er et tilfælde,men umiddelbart burde det være:

if (rs3.bof and rs3.eof) then
    NR = 1
else
    NR = rs3.fields("nr") + 1
end if

hvor det vigtige altså er at der i betingelsen er brugt rs3 istedet for rs.

fuck, det var det der var fejlen. Det med rs. Tak :))

skriv et svar, så gir jeg dig points

det var ikke det alligevel :(

doh....opdagde lige jeg selv lavede en fejl:

rs3.fields("nr") skal være rs3("nr")

Men det har du nok opdaget :)

Hvad fejl får du så nu, hvis det stadig ikke virker???

Den snyder - men denne virker:

sqlrec1 = "SELECT MAX(Profil_Id) AS NR FROM Profil"   
Set rs3 = forbindelse.Execute(sqlrec1)   
NR = rs3("nr") + 1       

Det er så underligt indrettet at man ikke behøver at checke. -Så virker det.

Det er jo faktisk rigtigt.....glemte lige max altid returnere en værdi :)

Det er ikke fordi at jeg får en fejl. Men bagefter skal en post i databasen sættes lig med = Nr. Og som sagt får alle andre end post nr 1 en værdi. Den første post får bare ingen værdi. Det er lidt skørt

Hvis du anvender mit eksempel så får første post værdien 1. Jeg ved det - fordi jeg selv har haft samme problem.

Nope det funger ikke.
Sådan ser koden ud, og den gider ikke, kan det være fordi jeg benytter access?
Set forbindelse = Server.CreateObject("ADODB.Connection")     
    forbindelse.Open("ocdb")   
   
    Set rs = Server.CreateObject("ADODB.RecordSet")
    sqlrec = "Select * From profil"   
    rs.Open sqlrec, forbindelse, 1, 3       
   
    sqlrec1 = "SELECT MAX(Profil_Id) AS NR FROM Profil"   
    Set rs3 = forbindelse.Execute(sqlrec1)               
            NR = rs3("nr") +1   
   
    rs.AddNew
    rs("profil_id") = NR
    rs("profilnavn") = profilnavn
    rs("kodeord") = kodeord   
    rs("dato") = Date 'dags dato xx-xx-xx
    rs("email") = Email       
    rs("alder") = alder
    rs("koen") = koen
    rs.Update   
    rs.Close

Nu var jeg lige så sikker i min sag. Jeg har koden på mit arbejde og kan ikke komme til det nu - men det skal checkes.
Ellers har jeg lavet denne og testet den i Access:

if not IsNull(RS3("nr")) then
  nr = RS3("nr") + 1
else
  nr = 1
end if

Den virker :)) Takker. Jeg havde selv prøvet med IsEmpty, vidste ikke at der findes en IsNull :).