Tilfoj

Næh, egentligt ikke - prøv at formulere dig noget mere præcist og lad os se noget kode. Linket hjælper os jo ikke, da vi jo ikke kan se ASP koden.

Forøvrigt lyder det jo meget rimeligt, at ADD.ASP tilføjer noget til databasen...

linket virker !!!

Ja, det gør det da, men det viser jo kun den genererede HTML kode - den oprindelige ASP kode kan vi jo ikke se....

Og så mangler vi stadig den lidt mere præcise formulering af spørgsmålet....!

kig på

\"Skrevet i min gæstbog: 55\"

mens du opdatere siden..

være gang du opdatere siden så bliver der tilføjet noget i databasen....

http://www.eksperten.dk/spm/72397

fundet fejlen

Kunne du tænke dig at indvie os andre i, hvad problemet var??

Han elsker bare at stille spgm, og derefter tage størstedelen af points\'ne (hvis ikke alle) og lukke det lidt senere, bare lad være med at bekymre dig om ham:)

Burde han så ikke udelukkes fra Eksperten? Lidt irriterende at spilde tid på ham...

så i ik tror jeg snyder...

<%
\' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"database.mdb\")
Conn.Open DSN

strSQL = \"Select * from jwgbog\"

set rscount = conn.execute(\"select count(id) as antal from jwgbog\")
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\">
<table border=\"0\" width=\"700\" bgcolor=\"#000000\" cellspacing=\"1\" cellpadding=\"0\" align=\"center\">
  <tr>
    <td width=\"100%\" bgcolor=\"#FFFFFF\" valign=\"top\">
      <table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"3\">
        <tr bgcolor=\"#FFFFFF\">
          <td width=\"50%\"><font size=\"5\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\">JWgbog
            1.0 ASP</font></b></font></td>
          <td align=\"right\" valign=\"bottom\" nowrap width=\"50%\">
            <div align=\"right\"><font size=\"2\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"></font></font>
              <table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"200\">
                <tr>
                  <td align=\"right\">
                    <div align=\"right\"><font size=\"2\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">last
                      entry:<br>
                      <b>5/12/2001 7:32:38 PM</b></font></font><font face=\"Verdana, Arial, Helvetica, sans-serif\"><b></b></font></div>
                  </td>
                </tr>
              </table>
            </div>
          </td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table border=\'0\' cellspacing=\'0\' cellpadding=\'0\' width=\'700\' align=\"center\" height=\"19\">
  <tr>
    <td width=\'1\' valign=\'top\' bgcolor=\'#000000\'><img src=\"images/intet.gif\" width=\'1\'></td>
    <td width=\'698\' valign=\'top\' bgcolor=\'#f7f7f7\'>
      <table width=\"100%\" border=\"0\" cellspacing=\"4\" cellpadding=\"0\">
        <tr>
          <td width=\"50%\"><font face=\"Verdana, Arial, Helvetica, sans-serif\"><b><font size=\"2\"><a href=\"index.asp\">Hjem</a>
            </font><font face=\"Verdana, Arial, Helvetica, sans-serif\"><b><font face=\"Verdana, Arial, Helvetica, sans-serif\"><b><font size=\"2\">|
            <a href=\"add.asp\">Tilf&oslash;j</a></font></b></font></b></font><font size=\"2\">
            | <a href=\"guestbook.asp\">Vis G&aelig;stebogen</a></font></b></font>
          </td>
          <td width=\"50%\">
            <div align=\"right\"><b><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\">Skrevet
              i min g&aelig;stbog: <b><%=antal%></b></font> <font face=\"Verdana, Arial, Helvetica, sans-serif\" size=\"1\"></font></b></div>
          </td>
        </tr>
      </table>
    </td>
    <td width=\'1\' valign=\'top\' bgcolor=\'#000000\'><img src=\"intet.gif\" width=\'1\'></td>
  </tr>
</table>
<table border=\"0\" width=\"700\" bgcolor=\"#000000\" cellspacing=\"1\" cellpadding=\"0\" align=\"center\">
  <tr>
    <td bgcolor=\"#FFFFFF\" valign=\"top\" colspan=\"2\">
      <div align=\"center\">
        <p>&nbsp;                  <% mode = request(\"mode\") %>
                  <%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
    strSQL = \"Select * From jwgbog\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
                  <% if mode =\"\" then %>
                <form action=\"add.asp?mode=tilfojet\" method=\"post\">
                  <center>
                    <font face=tahoma size=2>
                    <div align=\"center\">
              <table width=\"400\" border=\"0\" cellspacing=\"1\" cellpadding=\"3\" class=\"bottom\" align=\"center\" bgcolor=\"#f7f7f7\">
                <tr>
                  <td width=\"134\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Dit
                    Navn <span class=\"rot\"> *</span><font color=\"#666666\"> </font>
                    </font><br>
                    <input type=\"text\" name=\"navn\" maxlength=\"100\" class=\"bottom\">
                  </td>
                  <td width=\"251\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Efternavn</font><span class=\"rot\"><br>
                    <input type=\"text\" name=\"alder\" maxlength=\"100\" class=\"bottom\">
                    </span></td>
                </tr>
                <tr>
                  <td width=\"134\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Land</font><br>
                    <input type=\"text\" name=\"land\" maxlength=\"100\" class=\"bottom\">
                  </td>
                  <td width=\"251\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">
                    Icq</font><span class=\"rot\"><br>
                    <input type=\"text\" name=\"icq\" maxlength=\"100\" class=\"bottom\">
                    </span></td>
                </tr>
                <tr>
                  <td colspan=\"2\" height=\"2\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Billder:</font>
                    <input type=\"radio\" value=\"1\" checked name=\"pic\">
                    <img src=\"1.gif\" align=\"middle\">
                    <input type=\"radio\" name=\"pic\" value=\"2\">
                    <img src=\"2.gif\" align=\"middle\">
                    <input type=\"radio\" name=\"pic\" value=\"3\">
                    <img src=\"3.gif\" align=\"middle\">
                    <input type=\"radio\" name=\"pic\" value=\"4\">
                    <img src=\"4.gif\" align=\"middle\">
                    <input type=\"radio\" name=\"pic\" value=\"5\">
                    <img src=\"5.gif\" align=\"middle\"></td>
                </tr>
                <tr>
                  <td colspan=\"2\" height=\"167\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">
                    Kommetare<span class=\"rot\">*</span><font color=\"#666666\">
                    </font></font><br>
                    <textarea name=\"kommetare\" cols=\"50\" rows=\"8\" class=\"bottom\"></textarea>
                  </td>
                </tr>
                <tr>
                  <td width=\"134\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Email<span class=\"rot\">
                    </span></font><span class=\"rot\"><br>
                    <input type=\"text\" name=\"email\" maxlength=\"100\" class=\"bottom\" size=\"15\">
                    </span></td>
                  <td width=\"251\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Hjemmeside</font><span class=\"rot\"><font face=\"Verdana, Arial, Helvetica, sans-serif\"><br>
                    <input type=\"text\" name=\"url\" value=\"http://\" maxlength=\"100\"  class=\"bottom\" size=\"15\">
                    </font></span></td>
                </tr>
                <tr>
                  <td colspan=\"2\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><span class=\"rot\">
                    </span></font>
                    <table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" width=\"200\">
                      <tr>
                        <td align=\"left\">
                          <div align=\"left\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\"><span class=\"rot\">
                            *</span><font color=\"#666666\"> = Skal indtastes</font></font></div>
                        </td>
                      </tr>
                    </table>
                  </td>
                </tr>
              </table>
              <br>
              <b><font size=\"2\" face=\"Verdana, Arial, Helvetica, sans-serif\" class=\"mehr_platz\">
              </font></b> <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>
                    </div>
                    </font>
                  </center>
                  <br>
                </form>
                <% end if %>
                <% if mode =\"tilfojet\" then

      rs.AddNew
      rs(\"navn\") = Request.form(\"navn\")
      rs(\"alder\") = Request.form(\"alder\")
      rs(\"email\") = Request.form(\"email\")
      rs(\"icq\") = Request.form(\"icq\")
      rs(\"pic\") = Request.form(\"pic\")
      rs(\"url\") = Request.form(\"url\")
      rs(\"kommetare\") = Request.form(\"kommetare\")
      rs(\"land\") = Request.form(\"land\")
      rs(\"dato\") = date()
      rs(\"kl\") = time()
      rs(\"Ip\") = Request.ServerVariables(\"REMOTE_ADDR\")
      rs.Update
%>
                <p class=\"menuoverskrift2\">Tak for din kommetare.</p>
                <p><span class=\"skriftype\"></span><br>
                  <br>
                  <% end if %></p></div>
    </td>
  </tr>
</table>
</body>
</html>

Ok, så fik vi en zillion linjer kode, men stadig ingen forklaring...

http://www.eksperten.dk/spm/72397