Re: Redigere poster i database [
Besvar ]
Av: Jan Ã…ge GlimstadJeg har løst problemet på følgende måte:
Fil#1:
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("database.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Show = "SELECT * FROM tabell WHERE tabellID = " & Trim(Request.QueryString("ID")) & " "
RecSet.Open Show, Connect, adOpenStatic, adLockOptimistic %>
<form method="POST" action="red2.asp">
<input type="hidden" name="AD" value="<% =Request.QueryString("ID") %>">
<input type="text" size="30" name="post1" value="<% =RecSet("post1") %>"><p>
<input type="text" size="30" name="post2" value="<% =RecSet("post2") %>"><p>
<input type="submit" value="Oppdater">
</form>
<% RecSet.Close
Connect.Close %>
Fil#2:
<% Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" + Server.MapPath("database.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
Update = "SELECT * FROM tabell WHERE tabellID = " & Request.Form("ad") & " "
RecSet.Open Update, Connect, adOpenStatic, adLockOptimistic
RecSet("post1") = Request.Form("post1")
RecSet("post2") = Request.Form("post2")
RecSet.Update
RecSet.Close
Connect.Close %>