Overskriver alle poster (Access)
Case "ret"set conn = server.CreateObject("ADODB.connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)};"
DSN = DSN & "DBQ=" & server.MapPath("gba.mdb")
conn.open DSN
IF request.form("submit") <> "" THEN
str1 = request.form("tekst")
str2 = request.form("slags")
strSQL3 = "UPDATE div_item SET "
strSQL3 = strSQL3 & "tekst='" & str1 & "'"
strSQL3 = strSQL3 & ", slags ='" & str2 & "'"
strSQL = strSQL & " WHERE idoption=" & request.querystring("id")
Conn.Execute(strSQL3)
response.Redirect("skrivmisc.asp")
ELSE
set rs = Conn.Execute("Select * from div_item where idoption =" & request("id"))
%>
<center>
<form name="form1" method="post" action="skrivmisc.asp?mode=ret&id=<% = rs("idoption") %>">
<p>Overskrift<br>
<input name="tekst" type="text" value="<% =rs("tekst") %>" size="40">
</p>
<p>slags<br>
<input type="text" name="slags" value="<% =rs("slags") %>" size="40">
</p><p>
<input type="submit" name="Submit" value="Opdater">
</p>
</form>
</center>
<% END IF %>
Den retter alle poster? istedet for den udvalgte? hvorfor og havd kan jeg gøre ved det?
