Simpel hent id-felt inden update

http://www.opfinderen.dk/sites/?id=13

jamen jeg skal finde id'et inden jeg har indsat posten i tabellen

så gør du bare som ovenfor og lægger 1 til !-)

du kan også bruge select max(id) for at finde det største id i tabelen. Men hvorfor vil du have id'et inden du indsætter. Jeg kan ikke helt se formålet med det.

mm12010 >> godt link....

jamen det er i forbindelse med uplaod af stien til et billed i en tabel i en database og så skal jeg bruge postens id til at lave en mappe

Hvis jeg bare lægger en til er jeg jo ikker på at få det rigtige id hvis jeg har været inde og slette det seneste id

det er derfor man først gør det efter indsæt.
indsæt dine date, og lav en update bagefter hvor du indsætter stien......

det har jeg prøvet man kan ikke få det til at virke vil du hjælpe mig

hvilken database bruger du ??? MySQL, Access, MS-SQL....

access

burde jeg ikke bare kunne skrive
  indlaeg.Update

  indlaeg.Open "SELECT * FROM tblsag WHERE id = " & rapportid, database,2 ,2

  sti = "/infratech/billeder/sager/" & rapportid & "/"
  Set fs=Server.CreateObject("Scripting.FileSystemObject")
  If fs.FolderExists(Server.Mappath(sti)) = false Then
    fs.CreateFolder(Server.Mappath(sti))
  end if
  index = 1
  for each file in upload.Files
    If not file.IsMissing Then
      filnavn = sti & "foto" & index & "." & file.FileExt
      file.saveas Server.MapPath(filnavn)
      indlaeg("foto" & index) = filnavn
      index = index + 1
    else
      filnavn = ""
    end if
  next
  indlaeg.Update

  rapid=indlaeg("id")

  Response.Redirect("default.asp?radid=" & rapid)

uploader du flere filer af gangen?

ja det hænder

kan jeg eventuelt sende filen til dig

Paste hele koden ind, hvis du ikke kan få dette til at virke.

sti = "/infratech/billeder/sager/
...
...
filnavn = "temp"
conn.execute("insert into tblsag(foto"& index &") values('"&filnavn&"')") 'uden sti
set rs = conn.execute("Select @@Identity as ThisID From Tabel")
mappeID = rs("ThisID")
filnavn = sti & "/" & mappeID & "foto" & index & "." & file.FileExt
conn.execute("update tblsag set foto"& index &"='filnavn'") 'med sti
...

noget i denne retning.
Jeg gør brug af en anden metode til at connecte til databasen, som jeg synes er mere forstålig. Jeg ved faktisk ikke om det virker med din måde. Det er samme metode som bruges i mm12010's link, så du kan se hvordan man gør der.

jeg tjekker det i aften eller i morgen se kig lige inde der

Så er jeg her igen
Jeg kan ikke få det til at virke men her har du hele koden

Set indlaeg = Server.CreateObject("ADODB.Recordset")

if Request.ServerVariables("REQUEST_METHOD") = "POST" then

  Set upload = Server.CreateObject("aspSmartUpload.SmartUpload")
  upload.Upload

  indlaeg.Open "SELECT * FROM tblsag", database,2 ,2

  Sql1 = "Select * From tblsag order by id desc"
  Set Rs1 = database.Execute(Sql1)
  rapportid=rs1("id")+1

  indlaeg.addnew
  indlaeg("oprettet dato") = upload.form("oprettetdato")
  indlaeg("oprettet af") = upload.form("oprettetaf")
  If upload.form("udførelsesdato") = "" Then
    indlaeg("udførelses dato") = Null
  Else
    indlaeg("udførelses dato") = upload.form("udførelsesdato")
  End If
  indlaeg("rekvireret af") = upload.form("rekvireretaf")
  indlaeg("forsikringstagerid") = upload.form("forsikringstagerid")
  If upload.form("timeforbrug") = "" Then
    indlaeg("timeforbrug") = Null
  Else
    indlaeg("timeforbrug") = upload.form("timeforbrug")
  End If
  indlaeg("reparatørid") = upload.form("reparatørid")
  indlaeg("reparatør ordrenr") = upload.form("reparatørordrenr")
  indlaeg("forsikringid") = upload.form("forsikringid")
  indlaeg("police-skadenr") = upload.form("policeskadenr")
  If upload.form("konklusion") = "" Then
    indlaeg("konklusion") = Null
  Else
    indlaeg("konklusion") = upload.form("konklusion")
  End If
  If upload.form("bemærkninger") = "" Then
    indlaeg("bemærkninger") = Null
  Else
    indlaeg("bemærkninger") = upload.form("bemærkninger")
  End If
  If upload.form("faktura") = "0" Then
    indlaeg("faktura") = "nej"
  Else
    indlaeg("faktura") = upload.form("faktura")
  End If
  If upload.form("kreditnota") = "0" Then
    indlaeg("kreditnota") = Null
  Else
    indlaeg("kreditnota") = upload.form("kreditnota")
  End If
  indlaeg("foto/rapport afleveret til") = upload.form("fotorapportafleverettil")
  If upload.form("udførtdato") = "" Then
    indlaeg("udført dato") = Null
  Else
    indlaeg("udført dato") = upload.form("udførtdato")
  End If
  If upload.form("udførtaf") = "0" Then
    indlaeg("udført af") = Null
  Else
    indlaeg("udført af") = upload.form("udførtaf")
  End If
  indlaeg("sag") = upload.form("sag")
  If upload.form("l-varme") = "" Then
    indlaeg("l-varme") = False
  Else
    indlaeg("l-varme") = upload.form("l-varme")
  End If
  If upload.form("l-koldt vand") = "" Then
    indlaeg("l-koldt vand") = False
  Else
    indlaeg("l-koldt vand") = upload.form("l-koldt vand")
  End If
  If upload.form("l-varmt vand") = "" Then
    indlaeg("l-varmt vand") = False
  Else
    indlaeg("l-varmt vand") = upload.form("l-varmt vand")
  End If
  If upload.form("l-afløb") = "" Then
    indlaeg("l-afløb") = False
  Else
    indlaeg("l-afløb") = upload.form("l-afløb")
  End If
  If upload.form("l-kloak") = "" Then
    indlaeg("l-kloak") = False
  Else
    indlaeg("l-kloak") = upload.form("l-kloak")
  End If
  If upload.form("l-udv stikledning") = "" Then
    indlaeg("l-udv stikledning") = False
  Else
    indlaeg("l-udv stikledning") = upload.form("l-udv stikledning")
  End If
  If upload.form("l-forsyningsledning") = "" Then
    indlaeg("l-forsyningsledning") = False
  Else
    indlaeg("l-forsyningsledning") = upload.form("l-forsyningsledning")
  End If
  If upload.form("l-el-gulvkabel") = "" Then
    indlaeg("l-el-gulvkabel") = False
  Else
    indlaeg("l-el-gulvkabel") = upload.form("l-el-gulvkabel")
  End If
  If upload.form("l-termografi") = "" Then
    indlaeg("l-termografi") = False
  Else
    indlaeg("l-termografi") = upload.form("l-termografi")
  End If
  If upload.form("l-andet") = "" Then
    indlaeg("l-andet") = False
  Else
    indlaeg("l-andet") = upload.form("l-andet")
  End If
  indlaeg("l-bemærkning") = upload.form("l-bemærkning")

  If upload.form("o-4000 lækagesporing") = "" Then
    indlaeg("o-4000 lækagesporing") = False
  Else
    indlaeg("o-4000 lækagesporing") = upload.form("o-4000 lækagesporing")
  End If
  If upload.form("o-4010 time undersøgelse") = "" Then
    indlaeg("o-4010 time undersøgelse") = False
  Else
    indlaeg("o-4010 time undersøgelse") = upload.form("o-4010 time undersøgelse")
  End If
  If upload.form("o-4030 varmekabel fejl og rep") = "" Then
    indlaeg("o-4030 varmekabel fejl og rep") = False
  Else
    indlaeg("o-4030 varmekabel fejl og rep") = upload.form("o-4030 varmekabel fejl og rep")
  End If
  If upload.form("o-4040 eftf fejl og rep") = "" Then
    indlaeg("o-4040 eftf fejl og rep") = False
  Else
    indlaeg("o-4040 eftf fejl og rep") = upload.form("o-4040 eftf fejl og rep")
  End If
  If upload.form("o-4060 varmekabel urep") = "" Then
    indlaeg("o-4060 varmekabel urep") = False
  Else
    indlaeg("o-4060 varmekabel urep") = upload.form("o-4060 varmekabel urep")
  End If
  If upload.form("o-4070 timer kloak-tv") = "" Then
    indlaeg("o-4070 timer kloak-tv") = False
  Else
    indlaeg("o-4070 timer kloak-tv") = upload.form("o-4070 timer kloak-tv")
  End If
  If upload.form("o-4080 timer termografi") = "" Then
    indlaeg("o-4080 timer termografi") = False
  Else
    indlaeg("o-4080 timer termografi") = upload.form("o-4080 timer termografi")
  End If

  If upload.form("f-isotopvæske") = "" Then
    indlaeg("f-isotopvæske") = False
  Else
    indlaeg("f-isotopvæske") = upload.form("f-isotopvæske")
  End If
  If upload.form("f-formiergas") = "" Then
    indlaeg("f-formiergas") = False
  Else
    indlaeg("f-formiergas") = upload.form("f-formiergas")
  End If
  If upload.form("f-andet") = "" Then
    indlaeg("f-andet") = False
  Else
    indlaeg("f-andet") = upload.form("f-andet")
  End If
  indlaeg("f-bemærkning") = upload.form("f-bemærkning")

  If upload.form("t-varmeanlæg") = "" Then
    indlaeg("t-varmeanlæg") = False
  Else
    indlaeg("t-varmeanlæg") = upload.form("t-varmeanlæg")
  End If
  If upload.form("t-vandanlæg") = "" Then
    indlaeg("t-vandanlæg") = False
  Else
    indlaeg("t-vandanlæg") = upload.form("t-vandanlæg")
  End If
  If upload.form("t-kloak") = "" Then
    indlaeg("t-kloak") = False
  Else
    indlaeg("t-kloak") = upload.form("t-kloak")
  End If
  If upload.form("t-rapport") = "" Then
    indlaeg("t-rapport") = False
  Else
    indlaeg("t-rapport") = upload.form("t-rapport")
  End If

  indlaeg("foto1bemærk") = upload.form("foto1bemærk")
  indlaeg("foto2bemærk") = upload.form("foto2bemærk")
  indlaeg("foto3bemærk") = upload.form("foto3bemærk")
  indlaeg("foto4bemærk") = upload.form("foto4bemærk")
  indlaeg("foto5bemærk") = upload.form("foto5bemærk")
  indlaeg("foto6bemærk") = upload.form("foto6bemærk")
  indlaeg("foto7bemærk") = upload.form("foto7bemærk")
  indlaeg("foto8bemærk") = upload.form("foto8bemærk")
  indlaeg("foto9bemærk") = upload.form("foto9bemærk")
  indlaeg("foto10bemærk") = upload.form("foto10bemærk")
  If upload.form("pris1") = "" Then
    indlaeg("pris1") = Null
  Else
    indlaeg("pris1") = upload.form("pris1")
  End If
  indlaeg("pris1bemærk") = upload.form("pris1bemærk")
  If upload.form("pris2") = "" Then
    indlaeg("pris2") = Null
  Else
    indlaeg("pris2") = upload.form("pris2")
  End If
  indlaeg("pris2bemærk") = upload.form("pris2bemærk")
  If upload.form("pris3") = "" Then
    indlaeg("pris3") = Null
  Else
    indlaeg("pris3") = upload.form("pris3")
  End If
  indlaeg("pris3bemærk") = upload.form("pris3bemærk")
  If upload.form("pris4") = "" Then
    indlaeg("pris4") = Null
  Else
    indlaeg("pris4") = upload.form("pris4")
  End If
  indlaeg("pris4bemærk") = upload.form("pris4bemærk")
  If upload.form("pris5") = "" Then
    indlaeg("pris5") = Null
  Else
    indlaeg("pris5") = upload.form("pris5")
  End If
  indlaeg("pris5bemærk") = upload.form("pris5bemærk")
  If upload.form("pris6") = "" Then
    indlaeg("pris6") = Null
  Else
    indlaeg("pris6") = upload.form("pris6")
  End If
  indlaeg("pris6bemærk") = upload.form("pris6bemærk")
  If upload.form("pris7") = "" Then
    indlaeg("pris7") = Null
  Else
    indlaeg("pris7") = upload.form("pris7")
  End If
  indlaeg("pris7bemærk") = upload.form("pris7bemærk")
  If upload.form("pris8") = "" Then
    indlaeg("pris8") = Null
  Else
    indlaeg("pris8") = upload.form("pris8")
  End If
  indlaeg("pris8bemærk") = upload.form("pris8bemærk")
  If upload.form("pris9") = "" Then
    indlaeg("pris9") = Null
  Else
    indlaeg("pris9") = upload.form("pris9")
  End If
  indlaeg("pris9bemærk") = upload.form("pris9bemærk")
  If upload.form("pris10") = "" Then
    indlaeg("pris10") = Null
  Else
    indlaeg("pris10") = upload.form("pris10")
  End If
  indlaeg("pris10bemærk") = upload.form("pris10bemærk")


  sti = "/infratech/billeder/sager/" & rapportid & "/"
  Set fs=Server.CreateObject("Scripting.FileSystemObject")
  If fs.FolderExists(Server.Mappath(sti)) = false Then
    fs.CreateFolder(Server.Mappath(sti))
  end if
  index = 1
  for each file in upload.Files
    If not file.IsMissing Then
      filnavn = sti & "foto" & index & "." & file.FileExt
      file.saveas Server.MapPath(filnavn)
      indlaeg("foto" & index) = filnavn
      index = index + 1
    else
      filnavn = ""
    end if
  next

  indlaeg.Update
  Response.Redirect("default.asp")

end if

kikker på det ved 2 tiden, da jeg ikke tid nu...

hej fennec det behøver du ikke, jeg fandt selv ud af det ved at gøre som du sagde :-)

Så har jeg jo ikke noget at bruge resten af dagen til ;)

ellers kan du måske hjælpe med at slette nogle billeder??

Vil du det så skriv lige

Her er to gode ?, som omhandler slet. Du kan jo lige så godt spare på dine point. Søg på eksperten og du skal finde...

http://www.eksperten.dk/spm/465287
http://www.eksperten.dk/spm/463187

ellers skal jeg (eller andre) nok hjælpe.

ja det har du vel ret i, jeg kigger på det senere
ellers tak for hjælpen