Rediger script
Hejsa Jeg har enlig brug for et komplet script der kan redigere data i min database, via forms.Databasen er en access 2003, og tabellen hedder nyhed.
Der er flg punkter der skal have en request.form
Id
dato
ip
skribent
nyhed
Koden den skal sættet ind i ser sådan her ud ..
<!--#include file="Beskyt.asp" -->
<% mode = Request.QueryString("mode")
Response.Buffer = True
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("community.mdb")
Conn.Open DSN
%>
<head>
<title>Admin > Nyhed</title>
<meta name="Generator" content="Stone's WebWriter 4">
</head>
<body>
<%
if mode = "slet" then
strSQL = "Select * from nyhed order by id desc"
Set rs = Conn.Execute(strSQL)
do
%>
<div align="center">
<center>
<table border="0" width="60%" cellpadding="0" cellspacing="0" height="48">
<tr>
<td width="30%" height="23" valign="top" align="left"><b>Skribent.</b> <% response.write rs("skribent") %></td>
<td width="38%" height="23"><b>dato.</b> <% response.write rs("dato") %></td>
<td width="32%" height="23"><a href="?mode=slet_nyhed&id=<%=rs("id")%>"><b>Slet</b></a></td>
</tr>
<tr>
<td width="100%" height="25" colspan="3" valign="top" align="left"><b>Nyhed:</b> <%response.write rs("nyhed") %> <br><hr></td>
</tr>
</table>
</center>
</div>
<%
rs.movenext
loop while not rs.eof
end if
if mode = "add" then
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
strSQL="insert into nyhed(skribent, nyhed, dato) values ('" & request.form("skribent") & "', '" & request.form("nyhed") & "', '" & FormatDateTime(Now, vbShortDate) & "')"
conn.execute(strsql)
response.redirect "admin.asp"
end if
%>
<form method="post" action="?mode=add&sub=nyhed">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" width="41%" height="118">
<tr>
<td width="25%" height="20"><b>Tilføj nyhed ?</b></td>
<td width="75%" height="20"></td>
</tr>
<tr>
<td width="25%" height="19"><b>Navn</b></td>
<td width="75%" height="19"><input type="text" name="skribent" size="20"></td>
</tr>
<tr>
<td width="25%" height="79"></td>
<td width="75%" height="79"><textarea rows="5" name="nyhed" cols="22"></textarea><input type="submit" value="Tilføj"></td>
</tr>
</table>
</center>
</div>
</form>
</body>
</html>
<%
end if
if mode = "slet_nyhed" then
strSQL = "Delete from nyhed WHERE id=" & Request.QueryString("id")
Conn.Execute(strSQL)
response.redirect "?mode=slet"
end if
if mode = "red" then
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
HER SKAL KODEN IND
else
strSQL = "Select * from nyhed order by id desc"
Set rs = Conn.Execute(strSQL)
do
%>
<form action="?mode=red" method="post">
<table width="100%" border="0">
<tr>
<td><h6>Skribent</h6><input name="Skribent" value="<%=rs("skribent")%>" type="text" /></td>
<td><h6>Dato</h6><input name="Dato" value="<%=rs("dato")%>" type="text" /></td>
<td><h6>IP</h6><input name="IP" value="<%=rs("ip")%>" type="text" /></td>
</tr>
<tr>
<td><h6>Nyhed</h6><textarea cols="" name="nyhed"><%=rs("nyhed")%></textarea></td>
<td></td>
<td><h6>ID</h6><input name="id" size="5" type="text" value="<%=rs("id")%>" /></td>
</tr>
<tr>
<td><button type="submit">Rediger</button></td>
<td></td>
<td></td>
</tr>
</table>
</form>
<hr>
<%
rs.movenext
loop while not rs.eof
end if
end if
conn.close
set conn = nothing
%>
