<!--#include file="../Diverse/top.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<%
set conn = server.CreateObject("ADODB.Connection")
conn.open = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& server.MapPath("../../database/news.mdb")
%>
<title>Admin rediger i news</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link href="../../mir/layout.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
if request.form("doIt") = "Enter" then
action = request.form("toDo")
id = request.form("id")
newTitel = request.form("opret")
newMessage = replace(request.form("message"),chr(10),"<br>")
if action = "delete" then
set db = conn.execute("delete from mig where id ="&id)
end if
if action = "update" and newTitel <> "" then
set db = conn.execute("update mig set titel ='"&newTitel&"', besked = '"&newMessage&"' where id ="&id)
end if
if action = "insert" and newTitel <> "" then
set db = conn.execute("insert into mig (titel,besked) values('"&newTitel&"','"&newMessage&"')")
set newID = conn.execute("select id from mig where titel = '"&newTitel&"'")
id = newID("id")
end if
end if
%>
<div id="mainbox_link">
<br><br>
<table width="400" align="center">
<tr><td>
<form action="<%=request.ServerVariables("URL")%>" method="post">
<select name="id">
<%
set db = conn.execute("select * from mig ORDER BY dato DESC")
do while not db.eof
if cInt(id) = cInt(db("id")) then
%>
<option value="<%=db("id")%>" selected><%=db("titel")%></option>
<%
else
%>
<option value="<%=db("id")%>"><%=db("titel")%></option>
<%
end if
db.moveNext
loop
%>
</select>
<input name="toDo" type="radio" value="delete">
Delete?
<input name="toDo" type="radio" value="update">
Update?
<input name="toDo" type="radio" value="insert" checked>
New?
<br>
<br>
Titel
<input type="text" name="opret" size="30"><br><br>
Besked<textarea name="message" cols="60" rows="10" wrap="soft"></textarea><br>
<input type="submit" value="Enter" name="doIt">
</form>
</td></tr>
</table>
<%
conn.close
%>
<%
'funktion fra top.asp
newsTo ()%>
</div>
</body>
</html>
Mit spørgsmål:
Hvordan kan det lade sig gøre at få den id man vælger oppe i option value til at vise titel og besked i de 2 input fields? Så man kan redigere i beskeden uden at man selv skal huske hvad der står i databasen.
Sangill