lav break her

når dette skal udskrives vil jeg have \"<br>\" istedet for \"vbcrlf\"

hvis du vil have point skal du lave dette om...


<!-- #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.myValue = 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\">tekst</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&aring; 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&aring; 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.myValue\">
      </td>
      <td width=\"100\">
        <input type=\"button\" name=\"mainpage\" value=\"  Start side  \" class=\"mybox\" onClick=\"getURL(\'parent\',\'default.asp\');return document.myValue\">
      </td>
      <td width=\"450\">
        <div align=\"right\"> </div>
      </td>
    </tr>
  </table>
</div>
</body>
</html>
<%
rs.close
set rs = nothing
%>