Avatar billede okay Nybegynder
13. maj 2001 - 21:55 Der er 6 kommentarer og
1 løsning

NemT :o)

Fejl:
Microsoft VBScript compilation error \'800a03f6\'

Expected \'End\'

/l/jwguestbook/add.asp, line 177

Linje:
rs.Update

også lidt at scripten:
                        <% end if %>
                <% if mode =\"tilfojet\" then

      rs.AddNew
      rs(\"navn\") = Request.form(\"navn\")
      rs(\"efternavn\") = Request.form(\"efternavn\")
      rs(\"land\") = Request.form(\"land\")
      rs(\"icq\") = Request.form(\"icq\")
      rs(\"kommetare\") = Request.form(\"kommetare\")
      rs(\"email\") = Request.form(\"email\")
      rs(\"url\") = Request.form(\"url\")
      rs(\"pic\") = Request.form(\"pic\")
      rs(\"kl\") = time()
      rs(\"dato\") = date()
      rs(\"ip\") = Request.ServerVariables(\"REMOTE_ADDR\")
      rs.Update
%>
Avatar billede netsrac Praktikant
13. maj 2001 - 21:58 #1
<% end if %>
                <% if mode =\"tilfojet\" then

      rs.AddNew
      rs(\"navn\") = Request.form(\"navn\")
      rs(\"efternavn\") = Request.form(\"efternavn\")
      rs(\"land\") = Request.form(\"land\")
      rs(\"icq\") = Request.form(\"icq\")
      rs(\"kommetare\") = Request.form(\"kommetare\")
      rs(\"email\") = Request.form(\"email\")
      rs(\"url\") = Request.form(\"url\")
      rs(\"pic\") = Request.form(\"pic\")
      rs(\"kl\") = time()
      rs(\"dato\") = date()
      rs(\"ip\") = Request.ServerVariables(\"REMOTE_ADDR\")
      rs.Update
end if
%>
Avatar billede 3rdpixel.hove Nybegynder
13. maj 2001 - 21:58 #2
Prøv nu bare det her i stedet:

<%
save = Request(\"save\")
If save = \"ok\" Then
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(\"efternavn\") = Request.form(\"efternavn\")
rs2(\"land\") = Request.form(\"land\")
rs2(\"icq\") = Request.form(\"icq\")
rs2(\"kommetare\") = Request.form(\"kommetare\")
rs2(\"email\") = Request.form(\"email\")
rs2(\"url\") = Request.form(\"url\")
rs2(\"pic\") = Request.form(\"pic\")
rs2(\"kl\") = time()
rs2(\"dato\") = date()
rs2(\"ip\") = Request.ServerVariables(\"REMOTE_ADDR\")

rs2.Update
rs2.Close
Set rs2 = Nothing
response.redirect \"guestbook.asp\"
End If


if save = \"\" then
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\") & \";UID=admin;PWD=;\"
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\"> <br>
        <form action=\"add.asp?save=ok\" method=\"post\">
          <br>
          <table width=\"400\" border=\"0\" cellspacing=\"1\" cellpadding=\"3\" class=\"1px_ganz\" 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=\"1px_ganz\">
              </td>
              <td width=\"251\"><font size=\"1\" face=\"Verdana, Arial, Helvetica, sans-serif\">Efternavn</font><span class=\"rot\"><br>
                <input type=\"text\" name=\"efternavn\" maxlength=\"100\" class=\"1px_ganz\">
                </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=\"1px_ganz\">
              </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=\"1px_ganz\">
                </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=\"1px_ganz\"></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=\"1px_ganz\" 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=\"1px_ganz\" 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>
        </form>
       
      </div>
    </td>
  </tr>
</table>
</body>
</html>

<% end if %>
Avatar billede keysersoze Ekspert
13. maj 2001 - 21:58 #3
du mangler en \"end if\"
Avatar billede netsrac Praktikant
13. maj 2001 - 21:58 #4
Dig og dine Nemt spm. *G*
Avatar billede 3rdpixel.hove Nybegynder
13. maj 2001 - 21:59 #5
netsrac -> hvad er det, det 10. i dag eller noget??? ;o)
Avatar billede okay Nybegynder
13. maj 2001 - 22:05 #6
Netsrac > du var hurtigest så du får pointene...

Og tak for hjælpen alle sammen :o)
Avatar billede 3rdpixel.hove Nybegynder
13. maj 2001 - 22:05 #7
forresten har jeg resten af koden fra: http://www.eksperten.dk/spm/72397
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester