Slut ?

slutter? mener du lukker forbindelsen?

hvis ja:
<%
\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

svar

Så får jeg denne fejl:
http://www.unlocking.dk/msjubii/vis_generelt.asp?id=13
Kan jeg få få dig til at gøre mig en tjeneste ?, Det er at kigge på mine 2 filer vis_generelt.asp og så min menu ? Du skal nok få point for det.

der er da ikke nogen fejl?

takker for pts :)

Jo helt nede i bunden;

Microsoft VBScript runtime error \'800a01a8\'

Object required

/msjubii/vis_generelt.asp, line 58

kan du ikke skrive hvad der står i 58?

Der står den du lige har givet mig:
<%
\' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

Conn.Close

a\'hva? \'Luk... burde ikke gøre noget, prøv at slette det alligevel

Set rs = conn.Execute(SQLstmt)
skal det ikke også lukkes: altså:
Set rs = Nothing

virker nu! :)

jeg her en include menu som ser sådan ud, jeg går ud fra det er den som går ind og forstyrer på en eller anden måde:

<head>
<style type=\"text/css\">

table.menu {border: 1px solid #393939;}

td.menu, .overskrift {font: 11px verdana, sans-serif;}

a.menupunkt {
    text-decoration: none;
    color: #000000;
    border-top : 1px solid #FFFFFF;
    border-left : 1px solid #FFFFFF;
    border-right : 1px solid #6D6D6D;
    border-bottom : 1px solid #6D6D6D;
    display: block;
    width:100%;
}

a.menupunkt:hover {
    text-decoration: none;
    background-color: #9FBBC6;
    border-top : 1px solid #FFFFFF;
    border-left : 1px solid #FFFFFF;
    border-right : 1px solid #6D6D6D;
    border-bottom : 1px solid #6D6D6D;
    color: #000000;
    width:100%;
}

.overskrift {
text-decoration: none;
    background-color: #9FBBC6;
    border-top : 1px solid #FFFFFF;
    border-left : 1px solid #FFFFFF;
    border-right : 1px solid #6D6D6D;
    border-bottom : 1px solid #6D6D6D;
    color: #000000;
    width:100%;

}

</style>


</head>


        <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,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\" 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=\"default.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>

jamen, den virker da nu!!

nej på alle siderne eks. i overskriften der står visitkort ..Det er den sidste menu i denne:

            <%

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
    %> 

Det burde den vel ikke når min side ser sådan ud ? Så skulle overskriften jo passe til 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>

den kan jeg altså ikke hjælpe dig med? :(

jeg vil tro at det er en fejl i din sqlstatement

for fremtiden synes jeg at du skal holde lidt tilbage med at acceptere svar. jeg kan fx ikke hjælpe dig med din sql, da jeg heller ikke er nogen db haj. sorry :(