rediger eksisterende record.

Jeg har tidligere løst dette uden problemer, sikkert for længe imellem man bruger det.

Der requestes et felt fra en form fra en foregående side, et felt tilføjet en variabel, i det tilfælde her et tal fra 1 til antallet af records, det tilføjes databasen.

i det tilfældet det pågældende record alleredes findes skal det dog bare opdateres. dette er hvad jeg har på nuværende tidspunkt, og det virker fint til kun at tilføje data, mangler redigereingsdelen hvis den pågældende post allerede findes.

De to der skal filtreres ud fra er henholdsvis

er hvis  Request("id" & intevaluering)og Request("dato") er ens begge steder. dato er sat som et textformat, så det behøves der ikke tages hensyn til.


<% Option Explicit %>


<%

Response.Buffer = True




Dim rs1
Dim rs2        
Dim intevaluering       
Dim adocon
Dim strcon
Dim MYSQL
dim dataconn



set adoCon = server.createobject ("ADODB.connection")
set rs1 = server.createobject ("ADODB.recordset")
adoCon.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA Source=" & Server.MapPath("log/mindatabase")

rs1.LockType = 3
MYSQL = "SELECT timeseddel.* FROM timeseddel;"
rs1.open MYSQL, adoCon, 1, 3









For intevaluering = 1 to session("num")


   

if  Request("status" & intevaluering) = "yes"  then



   
        rs1.AddNew
       
        rs1.Fields("dato") = Request("dato")       
        rs1.Fields("personid") = Request("id" & intevaluering)
        rs1.Fields("cpr") = Request("cpr" & intevaluering)
        rs1.Fields("navn") = Request("navn" & intevaluering)
        rs1.Fields("timeantal") = Request("timer" & intevaluering)

        rs1.Fields("projekt") = Request("projekt" & intevaluering)
        rs1.Fields("leder") = Request("leder" & intevaluering)
        rs1.Fields("ft") = Request("ft" & intevaluering)
        rs1.Fields("st") = Request("st" & intevaluering)
    rs1.Fields("bs") = Request("bs" & intevaluering)
    rs1.Fields("af") = Request("af" & intevaluering)
    rs1.Fields("lf") = Request("lf" & intevaluering)
    rs1.Fields("uf") = Request("uf" & intevaluering)
    rs1.Fields("remark") = Request("remark" & intevaluering)

       
   
   
        rs1.Update

   

   



   

end if
   
Next


Set adoCon = Nothing
Set strCon = Nothing
Set rs1 = Nothing



%>


på forhånd tak :-)