<%
sql = \"select * from nyheder order by dato desc\"
set res = conn.execute(sql)
while not res.eof
%>
<%=res(\"titel\")%><a href=\"admin.asp?mode=redigerret&id=<%res(\"id\")%>\">Rediger Nyhed</a><br>
<%
res.movenext
wend
Set objConn = Server.CreateObject(\"ADODB.Connection\")
objConn.Connectionstring = \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.Mappath(\"db/database.mdb\")
objConn.Open
Set rs = objConn.Execute(\"SELECT id, title, nyhed FROM nyheder WHERE Id = \" & Request.Querystring(\"Id\"))
%>
<table width=\"510\" border=\"0\" bgcolor=\"#333333\" cellspacing=\"1\" cellpadding=\"2\" class=\"ContentStyle\">
<tr>
<td bgcolor=\"#111111\" width=\"100%\" align=\"center\"><strong>Rediger en Nyhed</strong></b></td>
</tr>
<td bgcolor=\"#000000\" colspan=\"2\">
<center>
Hvis du skal rediger en nyhed, må du kun rediger dine egne eller f.eks de andre hvis du ser en fejl eller lign.
Men du må endelig ikke ændre i teksten kun rette fejl.
</center>
</td>
</tr>
<td bgcolor=\"#111111\" width=\"100%\" align=\"center\"><strong>Formen</strong></td>
</tr>
<td bgcolor=\"#000000\" colspan=\"2\">
<form action=\"admin.asp?mode=nyhederredigerret\" method=\"post\">
<input type=\"hidden\" name=\"redid\" id=\"redid\" value=\"<%=Rs(\"id\")%>\"
<table width=\"90%\" align=\"center\" border=\"0\" cellspacing=\"10\" cellpadding=\"0\" class=\"ContentStyle\">
<tr>
<td align=\"left\" valign=\"top\">Når man har trykket på submit skal den skrive har at nyheden er blivet rettet</td>
</tr>
<tr>
<td align=\"left\" valign=\"top\">
<b>Title <font color=\"#336699\">*</font></b>
</td>
<td align=\"right\">
<input name=\"redid\" id=\"redid\" type=\"textbox\" class=\"InputTable\" size=\"40\" value=\"<%=Request(\"titleid\")%>\">
</td>
</tr>
<tr>
<td align=\"left\" valign=\"top\">
<b>Nyhed <font color=\"#336699\">*</font></b>
</td>
<td align=\"right\">
<textarea cols=\"39\" rows=\"10\" name=\"redid\" id=\"redid\"><%=rs(\"nyhedid\")%></textarea>
</td>
</tr>
<tr>
<td align=\"left\" valign=\"top\">
<input name=\"submit\" type=\"submit\" class=\"Button\" value=\"Rediger Nyheden\">
</td>
<td align=\"right\">
<input name=\"reset\" type=\"reset\" class=\"Button\" value=\"Slet og Start Forfra\">
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<%
rs.close
Set rs = Nothing
objConn.close
Set objConn = Nothing
%>
jeg får denne fejl
Der opstod en Microsoft VBScript-kørselsfejl fejl \'800a01a8\'
Et objekt er obligatorisk: \'\'
/admin.asp, linje 269
ninje 269 er
set res = conn.execute(sql)
Ny bruger
Nybegynder
Opret
Preview
