<% dim navn,efternavn,mail,id id=Trim(request.form("id")) navn=Trim(request.form("navn")) efternavn=Trim(request.form("efternavn")) mail=Trim(request.form("mail")) dim cn,cnstr Set cn = Server.CreateObject("ADODB.Connection") cnstr="provider=microsoft.jet.oledb.4.0;" cnstr=cnstr & "data source=c:\inetpub\wwwroot\stud_asp_example\sem6_2002\c208\kim.mdb;" cn.connectionstring=cnstr cn.Open dim sql,sql1,sql2 sql="update data set navn='"& navn &"' where id="& id cn.execute sql sql1="update data set efternavn='"& efternavn &"' where id="& id cn.execute sql1 sql2="update data set mail='"& mail &"' where id="& id cn.execute sql2 cn.close set cn=nothing %> <html> <body background="baggrund.jpg"> Posten er ændret<br> <a href="gestebog.html"><img src="tilbage2.gif"></a> </body> </html>