Opdatéring af et felt

Er det noget i denne stil du skulle bruge?
strSQL = \" UPDATE person SET \"
strSQL = strSQL & \"relationsnr = \" & relation & \", \"
strSQL = strSQL & \"fornavn = \'\" & fornavn & \"\', \"
strSQL = strSQL & \"mellemnavn = \'\" & mellemnavn & \"\', \"
strSQL = strSQL & \"efternavn = \'\" & efternavn & \"\', \"
strSQL = strSQL & \"vejnavn = \'\" & vejnavn & \"\', \"
strSQL = strSQL & \"husnr = \'\" & husnr & \"\', \"
strSQL = strSQL & \"postnr = \" & postnr & \", \"
strSQL = strSQL & \"telefonnr = \" & telefonnr & \", \"
strSQL = strSQL & \"mobilnr = \" & mobilnr & \", \"
IF session(\"filnavn\") <> \"\" THEN
        strSQL = strSQL & \"filnavn = \'\" &  session(\"filnavn\") & \"\', \"
END IF
strSQL = strSQL & \"Email = \'\" & Email & \"\', \"
strSQL = strSQL & \"beskrivelse = \'\" & beskrivelse & \"\', \"
strSQL = strSQL & \"interesser = \'\" & interesser & \"\'\"
strSQL = strSQL & \" WHERE DBID = \" & session(\"id\")
response.write strSQL
objConn.Execute(strSQL)
session(\"filnavn\") = \"\"

mvh Elisabeth

Nej. :)

Der bliver dataene jo opdateret med SQL.

Jeg vil gøre det direkte i recordsettet.

Det er jo et eller andet i stil med:

set db = server.createobject (\"ADODB.Connection\")
set rs = server.createobject (\"ADODB.Recordset\")

db.open connectstr

sqlstr=\"SELECT * FROM tabel WHERE tabelID<10\"

rs.open sqlstr, db \' Her skal også ændres noget

rs (\"tabelFelt\") = \"dsjkfddsj\"

rs.update

rs.close

set rs = nothing
set db = nothing

- - - -

Men jeg vil gerne se den komplette kode.

Der er nogle ting som jeg er i tvivl om.

F.eks. hvordan skal recordsettet åbnes for at jeg kan ændre direkte i det ???

Det her bruger jeg selv..
----------------------------

Response.Buffer = true
dim id, realname, Age, Username, Password, Phone, Email, ICQ, www, Status, Connection
If Request.Form(\"Password\") <> \"\" Then
    Realname = Request.Form(\"Realname\")
    Age = Request.Form(\"Age\")
    Username = Request.Form(\"Username\")
    Password = Request.Form(\"Password\")
    Phone = Request.Form(\"Phone\")
    Email  = Request.Form(\"Email\")
    ICQ = Request.Form(\"ICQ\")
    www = Request.Form(\"Www\")
    Connection = Request.Form(\"Connection\")
   
    if ICQ = \"\" then ICQ = \"0\"
    if Age = \"\" then Age = \"0\"
    Set myConn = Server.CreateObject(\"ADODB.Connection\")
    myConn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"../clandata.mdb\") & \";DriverId=25;FIL=MS Access\"
    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"SELECT * FROM Users WHERE (usrID = \" & Session(\"usrID\") & \")\"
    rs.Open strSQL, myConn, 1, 3
    If Not (rs.BOF Or rs.EOF) Then
        id = rs(\"usrID\")
        rs(\"usrPassword\") = Password
        rs(\"usrAge\") = Age
        rs(\"usrRealName\") = Realname
        rs(\"usrEmail\") = Email
        rs(\"usrPhone\") = Phone
        rs(\"usrWww\") = www
        rs(\"usrIcq\") = ICQ
        rs(\"usrConnection\") = Connection
        rs.Update
        rs.Close
        myConn.Close
        Set rs = Nothing
        Set myConn = Nothing
    end if
    Session(\"profile\") = \"Profile Updated \"
    Response.Redirect \"profile_edit.asp

Perfekt. Tak for hjælpen :)

Det var så lidt ;O)