NeMt :o)

Lav en count på den:

set rscount = conn.execute(\"select count(id) as antal from dintabel\")
antal = rscount(\"antal\")
set rscount = nothing

response.write(antal)

hvor skal jeg kodet henne ??? (det du har skrevet) ?

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"

Set rs2 = Server.CreateObject(\"ADODB.RecordSet\")
rs2.Open \"Select * From jwgbog\", Conn, 1, 3
rs2.AddNew
rs2(\"navn\") = Request.form(\"navn\")

rs2.Update
rs2.Close
Set rs2 = Nothing
%>
<html>
<head>
<title>JWgbog 1.0 ASP</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<link rel=\"stylesheet\" href=\"styles.css\" type=\"text/css\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<form action=\"tilfoj.asp\" method=\"post\">
  <br>
  <table width=\"400\" border=\"0\" cellspacing=\"1\" cellpadding=\"3\" bgcolor=\"#3399FF\" class=\"1px_ganz\">
    <tr>
      <td width=\"134\">Dit Navn <span class=\"rot\"> *</span><font color=\"#666666\">
        </font> <br>
        <input type=\"text\" name=\"navn\" maxlength=\"100\" class=\"1px_ganz\">
      </td>
      <td width=\"251\">&nbsp;</td>
    </tr>
    <tr>
      <td colspan=\"2\">&nbsp;</td>
    </tr>
  </table>
  <br>
  <table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"400\">
    <tr>
      <td>
        <div align=\"center\"><font face=\"Verdana, Arial, Helvetica, sans-serif\"><b>
          <input type=\"Submit\" value=\"Tilf&oslash;j\" name=\"Submit\">
          <input type=\"Reset\" value=\"Slet Alt\" name=\"Reset\">
          </b></font></div>
      </td>
    </tr>
  </table>
  <br>
</form>
</body>
</html>

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"

Set rs2 = Server.CreateObject(\"ADODB.RecordSet\")
rs2.Open \"Select * From jwgbog\", Conn, 1, 3
rs2.AddNew
rs2(\"navn\") = Request.form(\"navn\")

rs2.Update
rs2.Close
Set rs2 = Nothing

set rscount = conn.execute(\"select count(id) as antal from dintabel\")
antal = rscount(\"antal\")
set rscount = nothing
%>
<html>
<head>
<title>JWgbog 1.0 ASP</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<link rel=\"stylesheet\" href=\"styles.css\" type=\"text/css\">
</head>
<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<%=antal%><form action=\"tilfoj.asp\" method=\"post\">
  <br>
  <table width=\"400\" border=\"0\" cellspacing=\"1\" cellpadding=\"3\" bgcolor=\"#3399FF\" class=\"1px_ganz\">
    <tr>
      <td width=\"134\">Dit Navn <span class=\"rot\"> *</span><font color=\"#666666\">
        </font> <br>
        <input type=\"text\" name=\"navn\" maxlength=\"100\" class=\"1px_ganz\">
      </td>
      <td width=\"251\">&nbsp;</td>
    </tr>
    <tr>
      <td colspan=\"2\">&nbsp;</td>
    </tr>
  </table>
  <br>
  <table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"400\">
    <tr>
      <td>
        <div align=\"center\"><font face=\"Verdana, Arial, Helvetica, sans-serif\"><b>
          <input type=\"Submit\" value=\"Tilf&oslash;j\" name=\"Submit\">
          <input type=\"Reset\" value=\"Slet Alt\" name=\"Reset\">
          </b></font></div>
      </td>
    </tr>
  </table>
  <br>
</form>
</body>
</html>

tak for hjælpen :o)

Så lidt :-)