Update - har brug for eksempel

Hvordan du opdaterer data fra en tabel?
http://www.html.dk/tutorials/asp/lektion22.asp

Har du ikke et helt eksempel ? med forms og alt det der . . .

Kig på www.activeserverpages.dk eller www.asp.dk. De har hele systemer, som du kan downloade og lave om!

Jeg har et som jeg bare skal have lavet så det virker . .

Så kunne du jo poste det, så vi kan hjælpe med dine problemer i dit script ;-)

jeps - Først havde jeg intet script .. men nu har jeg næsten lavet det . .mangler bare at få rettet en eller anden stupid fejl i een linie :)

Jeg har en session hvor brugeren login navn sættes når han logger ind.  ala. session.navn=username

burde jeg så ikke kunne opdatere med denne linie:
    strSql = \"Update users (usercode, useremail, userage) values (\'\" & strKode & \"\',\'\" & strEmail & \"\',\'\" & strAlder & \"\') where username = \'\" & Session(\"navn\") & \"\'\"

ændret til:

\"Update users (usercode, useremail, userage) values (\'\" & strKode & \"\',\'\" & strEmail & \"\',\'\" & strAlder & \"\') where userid = \" & strId & \"\"


men sadig fejl

Hvilken fejlmeddelelse får du?

Dette er min kode:  <% if Request.ServerVariables(\"Request_method\") = \"POST\" then

                strKode = Server.HTMLEncode(Request.form(\"kode\"))
                    if Request.form(\"alder\") <> \"\" then
                strAlder = int(Request.form(\"alder\"))
                end if
                strEmail = Server.HTMLEncode(Request.form(\"email\"))
                strId = Server.HTMLEncode(Request.form(\"id\"))
                Response.Write \"<b>\"
                    if strKode = \"\" then
                Response.Write \"Udfyld kodeord\"
                    elseif strAlder = \"\" then
                Response.Write \"Vælg alder\"
                    elseif strEmail = \"\" then
                Response.Write \"Udfyld email\"
                    else   
                Conn.Execute(\"Update users (usercode, useremail, userage) values (\'\" & strKode & \"\',\'\" & strEmail & \"\',\" & int(strAlder) & \") where userid = \" & strId & \"\")
                Response.Redirect(\"retprofil.asp\")

               
                end if
                end if %>


dette er fejlen:

Microsoft OLE DB Provider for ODBC Drivers error \'80040e09\'

[TCX][MyODBC]You have an error in your SQL syntax near \'(usercode, useremail, userage) values (\'klasdotdk\',\'klas@klas.dk\',22) where user\' at line 1

/retprofil.asp, line 99






Dette er linie 99:
Conn.Execute(\"Update users (usercode, useremail, userage) values (\'\" & strKode & \"\',\'\" & strEmail & \"\',\" & int(strAlder) & \") where userid = \" & strId & \"\")

Prøv med:

Conn.Execute(\"Update users (usercode, useremail, userage) values (\'\" & strKode & \"\',\'\" & strEmail & \"\',\'\" & int(strAlder) & \"\') where userid = \'\"& strId &\"\'\")

Lie (ml) hjalp mig over icq, han sendte et  eksempel, og jeg ændrede koden til:

<% if Request.ServerVariables(\"Request_method\") = \"POST\" then

                age = Request.form(\"age\")
                email = Request.form(\"email\")
                code = Request.form(\"code\")
                id = Session(\"id\")

SQL = \"UPDATE users SET useremail=\'\" & email & \"\', userage=\'\" & age & \"\', usercode=\'\" & code & \"\' WHERE userid=\" & ID
conn.execute(SQL)

end if

conn.close
set conn = nothing
Response.Redirect(\"retprofil.asp\") 
%>



det virker nu :)