ARGH - hvad er det lige der går galt for mig... anyway - prøv dette:
<!-- #INCLUDE FILE=\"adovbs.inc\" -->
<!-- #INCLUDE FILE=\"conn.asp\" -->
<!-- #INCLUDE FILE=\"admin_only.asp\" -->
<html>
<head>
<title>Admin</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<script language=\"JavaScript\">
function popup(msg) {
confirm(msg);
}
function getURL() {
var i, args=getURL.arguments; document.MM_returnValue = false;
for (i=0; i<(args.length-1); i+=2) eval(args[i]+\".location=\'\"+args[i+1]+\"\'\");
}
</script>
<link rel=\"stylesheet\" href=\"mykingofstyle.css\" type=\"text/css\">
</head>
<%
Set rs = Server.CreateObject(\"ADODB.Recordset\")
csql = \"SELECT * FROM nyheder\"
rs.Open csql, conn
%>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<table width=\"650\" border=\"0\" cellspacing=\"0\" cellpadding=\"1\" bgcolor=\"#FF6600\" align=\"center\">
<tr>
<td valign=\"top\">
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" bgcolor=\"#FFFFFF\">
<tr>
<td valign=\"top\">
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" class=\"standarttxt\" bgcolor=\"#FF6600\">
<tr>
<td width=\"40\">
<div align=\"center\">id</div>
</td>
<td width=\"80\">opdateret D.</td>
<td width=\"100\">forfatter</td>
<td width=\"370\">
<%
strTekst = Request.Form(\"Tekst\")
\' Undersøger variblen strTekst for Null værdien
If Not isNull(strTekst) Then
strTekst = Replace(strTekst, vbCrLf, \"<br>\")
Response.Write strTekst
End If
%>
</td>
<td>
<div align=\"center\">ret/slet</div>
</td>
</tr>
</table>
<img src=\"images/spacer.gif\" width=\"20\" height=\"20\">
<%
do until rs.eof
%>
<table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" class=\"standarttxt\">
<tr valign=\"top\">
<td width=\"40\">
<div align=\"center\"><%=rs(\"id\")%></div>
</td>
<td width=\"80\"><%=rs(\"dato\")%></td>
<td width=\"100\"><%=rs(\"forfatter\")%></td>
<td width=\"370\"><%=rs(\"tekst\")%></td>
<td width=\"20\">
<div align=\"right\"><a href=\"update_data.asp?id=<%=rs(\"id\")%>\"><img src=\"images/update.gif\" alt=\"Ret post\" width=\"9\" height=\"11\" border=\"0\" onClick=\"popup(\'Er du sikker på at du vil rette i denne post ?\\rPostens id er <%=rs(\"id\")%> .\')\"></a></div>
</td>
<td width=\"20\">
<div align=\"right\"></div>
</td>
<td width=\"20\">
<div align=\"left\"><a href=\"del.asp?id=<%=rs(\"id\")%>\"><img src=\"images/trash.gif\" alt=\"Slet post\" width=\"9\" height=\"11\" border=\"0\" onClick=\"popup(\'SLETTEDE poster kan ikke gendannes.\\rEr du sikker på at du vil SLETTE denne post ?\\rPostens id er <%=rs(\"id\")%> .\')\"></a></div>
</td>
</tr>
</table>
<br>
<%
rs.MoveNext
LOOP
%>
<br>
</td>
</tr>
</table>
</td>
</tr>
</table>
<div align=\"center\">
<table width=\"650\" border=\"0\" cellspacing=\"0\" cellpadding=\"1\">
<tr valign=\"top\">
<td width=\"100\">
<input type=\"button\" name=\"nypost\" value=\"Opret ny post.\" class=\"mybox\" onClick=\"getURL(\'parent\',\'add_data.asp\');return document.MM_returnValue\">
</td>
<td width=\"100\">
<input type=\"button\" name=\"mainpage\" value=\" Start side \" class=\"mybox\" onClick=\"getURL(\'parent\',\'default.asp\');return document.MM_returnValue\">
</td>
<td width=\"450\">
<div align=\"right\"> </div>
</td>
</tr>
</table>
</div>
</body>
</html>
<%
rs.close
set rs = nothing
%>
