Fejl

Menuen:

        <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\"  width=\"100%\">
          <tr>
            <td class=menu width=\"100%\"><div class=overskrift>
                <p align=\"center\"><b><font face=\"Verdana\" size=\"2\">Generelt</font></b></div></td>
                <%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"../../db/msgenerelt.mdb\")

\'SQLstmt = \"INSERT INTO adresse (ID,overskrift,Dato,link\"
\'SQLstmt = SQLstmt & \" VALUES (\" & request.form(\"Besked\") & \",\'\" & request.form(\"Overskrift\") & \"\')\"
SQLstmt = \"SELECT * FROM news ORDER BY overskrift \"
\'
\'response.write SQLstmt

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
  %>

          </tr>

          <tr>
            <td class=menu width=\"100%\">
            <%
  DO WHILE NOT rs.EOF
    overskrift = rs(\"overskrift\")
    ID = rs(\"ID\")
   
    %>

          <font size=\"2\" face=\"Verdana\"><a href=\"vis_generelt.asp?id=<%=ID%>\" class=menupunkt><img border=\"0\" src=\"Gfx/Design/Pil.gif\"><%=overskrift%></a></font>
            <%
    rs.MoveNext
  LOOP
  RS.Close


conn.Close
Set conn = nothing
Set SQLstmt = nothing
    %> 
          </td>
           
          </tr>
          <tr>
            <td class=menu width=\"100%\"><font size=\"2\" face=\"Verdana\">&nbsp;</font></td>
          </tr>
          <tr>
            <td class=menu width=\"100%\" align=\"center\"><div class=overskrift><b><font face=\"Verdana\" size=\"2\">Handlinger</font></b></div></td>
          </tr>
          <tr>
            <td class=menu width=\"100%\"><font size=\"2\" face=\"Verdana\"><a href=\"emote.asp\" class=menupunkt><img border=\"0\" src=\"Gfx/Design/Pil.gif\">Handlinger<img border=\"0\" src=\"Gfx/Iconer/hot.gif\"></a></font></td>
          </tr>
          <tr>
            <td class=menu width=\"100%\"><font size=\"2\" face=\"Verdana\"><a href=\"emoteoversigt.asp\" class=\"menupunkt\"><img border=\"0\" src=\"Gfx/Design/Pil.gif\">Oversigt</a></font></td>
          </tr>
          <tr>
            <td class=menu width=\"100%\"><font size=\"2\" face=\"Verdana\">&nbsp;</font></td>
          </tr>
          <tr>
            <td class=menu width=\"100%\" align=\"center\"><div class=overskrift><b><font face=\"Verdana\" size=\"2\">Andet</font></b></div></td>
          </tr>
          <tr>
            <td class=menu width=\"100%\"><font size=\"2\" face=\"Verdana\"><a href=\"forkortelser.asp\" class=\"menupunkt\"><img border=\"0\" src=\"Gfx/Design/Pil.gif\">Forkortelser</a></font></td>
          </tr>
          <tr>
            <td class=menu width=\"100%\"><font size=\"2\" face=\"Verdana\"><a href=\"kommandoer.asp\" class=\"menupunkt\"><img border=\"0\" src=\"Gfx/Design/Pil.gif\">Kommandoer</a></font></td>
          </tr>
          <tr>
            <td class=menu width=\"100%\"><font size=\"2\" face=\"Verdana\"><a href=\"tips.asp\" class=\"menupunkt\"><img border=\"0\" src=\"Gfx/Design/Pil.gif\">Tips</a></font></td>
          </tr>
          <tr>
            <td class=menu width=\"100%\"><font size=\"2\" face=\"Verdana\">&nbsp;</font></td>
          </tr>
          <tr>
            <td class=menu width=\"100%\" align=\"center\"><div class=overskrift><b><font face=\"Verdana\" size=\"2\">Information</font></b></div></td>
            <%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"../../db/msinfo.mdb\")

\'SQLstmt = \"INSERT INTO adresse (ID,Besked,Forfatter,Dato,link\"
\'SQLstmt = SQLstmt & \" VALUES (\" & request.form(\"Besked\") & \",\'\" & request.form(\"Forfatter\") & \"\',\'\" & request.form(\"Dato\") & \"\',\" & request.form(\"link\") & \",\'\" & request.form(\"vist\") & \"\',\'\" & request.form(\"Overskrift\") & \"\')\"
SQLstmt = \"SELECT * FROM news ORDER BY overskrift\"
\'
\'response.write SQLstmt

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
  %>
           
          </tr>
          <tr>
            <td class=menu width=\"100%\">
            <%
  DO WHILE NOT rs.EOF
    overskrift = rs(\"overskrift\")
    ID = rs(\"ID\")
    Dato = rs(\"Dato\")
   
    %>

          <font size=\"2\"><a href=\"vis_info.asp?id=<%=ID%>\" class=menupunkt><img border=\"0\" src=\"Gfx/Design/Pil.gif\"><%=overskrift%></a></font>
            <%
    rs.MoveNext
  LOOP
  RS.Close


conn.Close
Set conn = nothing
Set SQLstmt = nothing
    %> 
              </td>
          </tr>
          <tr>
            <td class=menu width=\"100%\"><font size=\"2\" face=\"Verdana\">&nbsp;</font></td>
          </tr>
          <tr>
            <td class=menu width=\"100%\" align=\"center\"><div class=overskrift><b><font face=\"Verdana\" size=\"2\">Services</font></b></div></td>
            <%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"../../db/msservices.mdb\")

\'SQLstmt = \"INSERT INTO adresse (ID,Besked,Forfatter,Dato,link\"
\'SQLstmt = SQLstmt & \" VALUES (\" & request.form(\"Besked\") & \",\'\" & request.form(\"Forfatter\") & \"\',\'\" & request.form(\"Dato\") & \"\',\" & request.form(\"link\") & \",\'\" & request.form(\"vist\") & \"\',\'\" & request.form(\"Overskrift\") & \"\')\"
SQLstmt = \"SELECT * FROM news ORDER BY overskrift\"
\'
\'response.write SQLstmt

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
  %>
           
          </tr>
          <tr>
            <td class=menu width=\"100%\">
            <%
  DO WHILE NOT rs.EOF
    overskrift = rs(\"overskrift\")
    ID = rs(\"ID\")
    Dato = rs(\"Dato\")
   
    %>

          <font size=\"2\"><a href=\"vis_services.asp?id=<%=ID%>\" class=menupunkt><img border=\"0\" src=\"Gfx/Design/Pil.gif\"><%=overskrift%></a></font>
  <%

    rs.MoveNext
  LOOP
  RS.Close
 
  conn.Close
Set conn = nothing
Set SQLstmt = nothing
    %> 

</td>          </tr>
          <tr>
            <td class=menu width=\"100%\"><font size=\"2\" face=\"Verdana\">&nbsp;</font></td>
          </tr>
          <tr>
            <td class=menu width=\"100%\" align=\"center\"><div class=overskrift> <b><font face=\"Verdana\" size=\"2\">MsJubii.dk</font></b></div></td>
          </tr>
          <tr>
            <td class=menu width=\"100%\"><a href=\"forum.asp\" class=menupunkt><font size=\"2\" face=\"Verdana\"><img border=\"0\" src=\"Gfx/Design/Pil.gif\">Forum</font></a></td>
          </tr>
          <tr>
            <td class=menu width=\"100%\"><a href=\"guestbook.asp\" class=menupunkt><font size=\"2\" face=\"Verdana\"><img border=\"0\" src=\"Gfx/Design/Pil.gif\">Gæstebog</font></a></td>
          </tr>
          <tr>
            <td class=menu width=\"100%\"><font size=\"2\" face=\"Verdana\"><a href=\"news.asp\" class=menupunkt><img border=\"0\" src=\"Gfx/Design/Pil.gif\">Sidste
              nyt</a></font></td>
          </tr>
          <tr>
            <td class=menu width=\"100%\"><a href=\"info.asp\" class=menupunkt><font size=\"2\" face=\"Verdana\"><img border=\"0\" src=\"Gfx/Design/Pil.gif\">Kontakt</font></a></td>
          </tr>
          <tr>
            <td class=menu width=\"100%\"><font size=\"2\" face=\"Verdana\"><a href=\"default2.asp\" class=\"menupunkt\"><img border=\"0\" src=\"Gfx/Design/Pil.gif\">Forside</a></font></td>
          </tr>
          <tr>
            <td class=menu width=\"100%\"><font size=\"2\" face=\"Verdana\">&nbsp;</font></td>
          </tr>
          <tr>
            <td class=menu width=\"100%\">  <p align=\"center\"><select onchange=\"window.open(this.options[this.selectedIndex].value,\'something\')\" size=\"1\" style=\"font-family: Verdana; font-size: 10 px; background-color: #B6CBD3; border: 1 solid #2C4787\">
              <option selected value=\"http://radio.jubii.dk\">Jubii Net-Radio</option>
  <option value=\"http://radio.jubii.dk\" >--&gt; Hit-Radio &lt;--</option>
  <option value=\"http://radio.jubii.dk/Live56.asx\">Hit-Radio(32kbs)</option>
  <option value=\"http://radio.jubii.dk/Live64.asx\">Hit-Radio(64kbs)</option>
  <option value=\"http://radio.jubii.dk/Live128.asx\">Hit-Radio(128kbs)</option>
  <option value=\"http://radio.jubii.dk\" >--&gt; Mix-Radio &lt;--</option>
  <option value=\"http://radio.jubii.dk/mixLive56.asx\">Mix-Radio(32kbs)</option>
  <option value=\"http://radio.jubii.dk/mixLive64.asx\">Mix-Radio(64kbs)</option>
  <option value=\"http://radio.jubii.dk/mixLive128.asx\">Mix-Radio(128kbs)</option>
</select></p></td>
          </tr>
        </table>
<CENTER><a href=\"http://fibp.hypermart.net\" target=\"_blank\"><IMG alt=\"Foreningen imod børneporno\" SRC=\"http://fibp.hypermart.net/images/2/fibp.gif\" BORDER=\"0\" ALIGN=\"MIDDLE\"></a></CENTER>

Selve siden:

<html>

<head>
<title>MsJubii.dk</title>
<LINK REL=\"stylesheet\" HREF=\"style.css\" TYPE=\"text/css\">
</head>

<body>
<%

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.MapPath(\"../../db/msgenerelt.mdb\")

SQLstmt = \"SELECT * FROM news WHERE id = \" & Request(\"id\")

Conn.Execute (SQLstmt)

Set rs = conn.Execute(SQLstmt)
  %>
<%
  \'DO WHILE NOT rs.EOF
      Besked = rs(\"Besked\")
    overskrift = rs(\"overskrift\")

        %>
   
<div align=\"center\">
  <center>
  <table border=\"0\" cellpadding=\"2\" cellspacing=\"0\" width=\"700\">
    <tr>
      <td width=\"690\" colspan=\"2\" bgcolor=\"#E7EEF1\">
        <p align=\"center\">
        <!--#include file=\"top.asp\"--></td>
    </tr>
    <tr>
      <td width=\"690\" bgcolor=\"#3F6070\" colspan=\"2\">
        <p align=\"center\"><!--#include file=\"topbar.asp\"--></td>
    </tr>
    <tr>
      <td width=\"140\" bgcolor=\"#B6CBD3\" valign=\"top\"><!--#include file=\"menu.asp\"-->
      </td>
      <td width=\"550\" bgcolor=\"#E7EEF1\" valign=\"top\">
        <table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"100%\">
          <tr>
            <td width=\"100%\">
              <p align=\"center\"><font size=\"2\" face=\"Verdana\"><b><%=Overskrift%></b></font></td>
             
          </tr>
          <tr>
            <td width=\"100%\"><img border=\"0\" src=\"Gfx/Design/pixel-line-top.gif\" width=\"100%\" height=\"1\"></td>
          </tr>
          <tr>
            <td width=\"100%\"></td>
          </tr>
        </table>
      </center>
      <p><font size=\"2\"><%=besked%></font>

    </td>
    <center>


    </tr>
    <tr>
      <td width=\"690\" colspan=\"2\">
        <p align=\"center\"><!--#include file=\"bund.asp\"--></td>
    </tr>
  </table>
  </center>
</div>

</body>

</html>

Du skriver faktisk ikke <%=overskrift%> på alle siderne, du skriver <%=Overskrift%> -- prøv at ændre dette.

Ændre hvad ? Det er da det sammen :-/

Hos mig er variabelnavne case-sensitive, hvorfor overskrift og Overskrift er to forskellige variable. prøv at tilføje <%option explicit%> som det allerførste i din kode, og se hvad der så sker.

lukket