Ændringer af en post i en database
Jeg her lavet en database, hvor der er nogle oplysninger om bruger, det er bla. login oplysninger til en side, men også navn mm.Jeg vil gerne have en side, hvor de har mulighed for at rette i deres oplysninger.
Det skal være sådan, at når de har logget ind, kan de på den side, klikke på ændre oplysninger, eller noget i den stil, og så skal der så komme en side, hvor der står deres nuværende oplysninger i nogle felter, det skal de så kunne slette, og skrive noget nyt. Jeg har prøvet med nedstående kode, men det virker ikke (Det er noget jeg har taget fra et andet script, og så ændret lidt)
----------change.asp--------------
<html>
<head>
<meta http-equiv=\"Content-Language\" content=\"da\">
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=windows-1252\">
<meta name=\"GENERATOR\" content=\"Microsoft FrontPage 4.0\">
<meta name=\"ProgId\" content=\"FrontPage.Editor.Document\">
<title>change</title>
</head>
<body>
<%
Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db.mdb\")
Set View = Connect.Execute(\"SELECT * FROM Users
%>
<form method=\"POST\" action=\"change.asp?action=update\">
<p>
Brugernavn:<br>
<input type=\"text\" name=\"Username\" value=\"<%=View(\"Username\") %>\" size=\"20\"><p>
Kodeord<br>
<input type=\"text\" name=\"Password\" value=\"<%=View(\"Password\") %>\" size=\"20\"><p>Navn:<br>
<input type=\"text\" name=\"Navn\" value=\"<%=View(\"Navn\") %>\" size=\"20\"><p>
<input type=\'submit\' value=\' Gem \' name=\'B1\' class=\"button\">
</form>
<p><a href=\'login.asp?mode=logaf\'>Log af</a>
<%end if %>
<% if action = \"update\" then %>
<!--#include file=\"adovbs.inc\"-->
<%
Username = Request.Form(\"Username\")
Password = Request.Form(\"Password\")
Navn = Request.Form(\"Navn\")
%>
<%
Set Connect = Server.CreateObject(\"ADODB.Connection\")
Connect.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"db.mdb\")
Set ProfilRS = Server.CreateObject(\"ADODB.Recordset\")
Query = \"SELECT * FROM Users WHERE Userid=\'\" & Session(\"Userid\") & \"\'\"
ProfilRS.Open Query, Connect, adOpenStatic, adLockOptimistic
%>
<%
ProfilRS(\"Username\") = Username
ProfilRS(\"Password\") = Password
ProfilRS(\"Navn\") = Navn
ProfilRS.Update
Response.Write(\"<br><br>Dine Indstillinger er nu opdateret!\")
Response.Write(\"du må ikke klikke tilbage eller opdater, for så sletter den det hele du SKAL først logge ud!\")
Response.Write(\"<p><a href=\'change.asp?action=change\'>Tilbage til indstillingerne</a>\")
%>
<%end if %>
</body>
</html>
