recordset + 1

if rs.eof then
  varetypeid =  varetypeid + 1
end if

hvis du vil have fat i det højest id i basen + 1 så gør nogenlunde sådan her:

<%
  set rs = server.createobject("adodb.recordset")
  rs.open "select max(varetypeid) as maxid from [tabelnavn]", conn, 1, 1
  if not rs.eof then
    varetypeid = rs("maxid") + 1
  else
    varetypeid = 1  'hvis der ikke er poster i basen
  end if

%>
%>

hvis den siger type mismatch så kan du nok lige lave en

varetypeid = cint(rs("varetypeid"))

Det er også det jeg har gjort:
<%
varetypeid = rs("varetypeid")
if rs.eof then
  varetypeid =  varetypeid + 1
end if
%>

Men det virker heller ikke...

det er da klart det andet ikke virker. Enten vil du få en fejl fordi du i linien:
>> varetypeid = rs("varetypeid")
forsøger at hente en post der ikke findes, ellers vil rs.eof være false, og du kommer aldrig ind hvor du lægger 1 til.

Prøv evt. en rs.movenext inden din if

coolcoder: det virker ikke men jeg får ingen fejlmeddelelse

nej - men prøv fx at lave en response.write "test" inde i din if. Den bliver garanteret ikke skrevet ud.

rs.eof er jo sand, når du står lige efter sidst post i recordsettet. Det kan du umuligt gøre eftersom du lige har hentet en værdi ud fra det.

Prøv:
<%
varetypeid = rs("varetypeid")
rs.movenext
if rs.eof then
  varetypeid =  varetypeid + 1
end if
%>

Så får jeg værdien 1 det er som om den ikke tager den højeste værdi og ligger 1 til...?

hvad er det du gerne vil? Have det højeste varetypeid der findes i databasen plus en??

...for så prøv lige at tjekke mit første svar :)

Ja det er det men jeg har løst sådan her:

<%
while not rs.eof
varetypeid = rs("varetypeid")
rs.movenext
if rs.eof then
  varetypeid =  varetypeid + 1
end if
wend
%>

Hva' siger du så?

jeg siger at det er dumt at lave en loop, der jo nok bliver langt, når du kan hente det ud af databasen med det samme vha en "select max(varetypeid)"

Ok, det har du ret i, men jeg kan bare ikke få det andet til at virke...
Vil du prøve at hjælpe mig?

selvfølgelig. Hvilken database bruger du? ..og hedder tabellen??

Access2000 tblvaretype

så prøv
<%
set rs = server.createobject("adodb.recordset")
rs.open "select max(varetypeid) as maxid from tblvaretype", conn, 1, 1
if not rs.eof then
  varetypeid = cint(rs("maxid")) + 1
end if
rs.close
set rs = nothing
%>

får denne fejl:

Item cannot be found in the collection corresponding to the requested name or ordinal.

ADODB.Recordset (0x800A0CC1)
Item cannot be found in the collection corresponding to the requested name or ordinal.
/ep/function.asp, line 460

line 460:  varetypeid = cint(rs("maxid")) + 1

Du er sikkert på du har skrevet sql nøjagtig som jeg har? Dvs. husket "as maxid"

Ellers prøv:
varetypeid = cint(rs(0)) + 1

så får jeg en værdi der = 2 og den skal være 55

prøv lige at sende noget mere af din kode. Der hvor du åbner recordset osv... - bare en copy-paste.

<%
set rs2 = server.createobject("adodb.recordset")
rs2.open "select max(varetypeid) as maxid from tblvaretype", MyConn, 1, 1
if not rs2.eof then
varetypeid = cint(rs(0)) + 1
end if
rs2.close
set rs2 = nothing
%>

<%
id = Request.Querystring("ID")
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/ep.mdb")
SQL = "Select * From tblvaregruppe"
Set RS = MyConn.Execute(SQL)
while not rs.eof
varegruppeid = rs("varegruppeid")
rs.movenext
response.write""& varegruppeid & "&nbsp;"
if rs.eof then
varegruppeid =  varegruppeid + 1
end if
wend
%>

i den først du skrev, skal du lige erstatte "rs(0)" med "rs2(0)", så tror jeg den er hjemme ;)

værdien er nu 10 og det er den anden post i databasen...?

<%
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../db/ep.mdb")
SQL = "Select MAX(varetypeid)+1 as maxID From tblvaregruppe"
Set RS = MyConn.Execute(SQL)
if not rs.eof then
  response.write rs("maxID")
end if
%>

...istedet for din egen. Det SKAL kunne virke. Jeg bruger det da så tit selv

10 igen???

og du er helt sikkert på det størst varetypeid i databasen ikke er 9 ??

Ja den er 55

hvorfor er det at jeg har skrevet "varetypeid" i mine kodestumper, og du er begyndt at skrive "varegruppeid" - hvilken er den rigtige? og sørg så lige for at bruge den.

For jeg har lige lavet en test med min kode på en db jeg selv har. Kun ændret tabel og DB-navn. Det virker fint

kan du ikke paste kode her den som du har lavet?

<%
Set MyConn=Server.CreateObject("ADODB.Connection")
MyConn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("./shop.mdb")
SQL = "Select max(id1)+1 as maxid From categories"
Set RS = MyConn.Execute(SQL)
if not rs.eof then
  response.write rs("maxid")
end if

%>

du skal selvfølgelig tilpasse stien, tabellen og inden i parentesen efter MAX skal du skrive feltnavnet du vil finde den største værdi for

Har det noget at sige at mit id felt er af typen tekst?

Jeg får nemlig samme resultat med din kode...

Ja det havde det så jeg rettede min database og så virkede det?

det kan det meget nemt have. ASP er jo stort set ligeglad med om det er tal eller tekst. Databaser har det ikke helt sådan.

Det er vel ikke din tabelnøgle vi arbejder med, vel?

Ja...

uha - sådan en bør altså altid være et autonummeringsfelt!!!

Det er jo netop ikke et autonummeringsfelt, derfor vil jeg finde den sidste post og ligge en til...og det virker fint nu.
Tusinde tak for hjælpen...;-)

velbekomme!
..og bare for god ordens skyld, ku' du jo lige afslutte tråden og godkende et svar ;)

Ja sorry det troede jeg, jeg havde gjort