Hvordan skal denne se ud

<%
if session("lvl") = "1" then
  If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

Besked = request.form("msg")

conn.execute("INSERT INTO brugere  (msg) values ('"& Besked &"')")

Else
%>

<form method="POST" action="bruger.asp" method="post" <div align="center">
  <div align="center"><center><p><textarea rows="3" name="Besked" cols="20"></textarea></p>
  </center></div><div align="center"><center><p><input type="submit" value="Skriv" name="B1"><input
  type="reset" value="slet" name="B2"></p>
  </center></div>
</form>
</body>
</html>

<% End If %>

<% end if 'Session("lvl") = 1 %>

kan du komme på icq : 92064248 et øjeblik ?

jeg har lige prøvet at ligge det op her.. den melder fejl
http://www.fredericia-bynight.dk/test/fredericia.zip

fejlen er :
Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Field 'beskeder.besked' cannot be a zero-length string.

/test/bruger.asp, line 75

du hendter beskeden med denne: 
Besked = request.form("msg")

Men det store input felt hedder besked så det skal være:
Besked = request.form("Besked")

der mangler en > efter: <form method="post" action="bruger.asp" method="post"

<form method="post" action="bruger.asp" method="post">

Du har kaldt din div for msg: <div align="center" name="msg">

ja nu ligger den i databasen, men der må være en fejl endnu for ellers ville den nederste gif blive vist..

tænker du på: <img border="0" src="../bund.gif" width="675" height="16"> ??

Hvordan bliver det ikke vist.. Som om billedet er der dog inge grafik eller slet ingen ting.

Ja det er den jeg mener, den kommer bare ikke frem når man har sendt noget til databasen

Denne:  if session("lvl") = "1" then

kommer midt i koden og hvis lvl ikke er 1 så viser den ikke FORM'en og resten af siden ned til efter </HTML>.

Hvis man skriver til DB'en skal <FORM>'en så komme frem igen?

Det samme gælder faktisk hvis man skriver til DB så fjerne den lige så meget som hvis Session("lvl") ikke er = 1

jamen det der høre til level 1 skal vises når det er en level 1'er der er på.

hvis det er som jeg tror det er så skal disse linier:
if session("lvl") = "1" then
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

Besked = request.form("msg")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("data.mdb")
conn.execute("INSERT INTO beskeder (besked) values ('"& Besked &"')")

Else
%> </p>
                  <form method="post" action="bruger.asp" method="post"> <div align="center" name="msg">
                    <div align="center"><center><p><textarea rows="3" name="Besked" cols="20"></textarea></p>
                    </center></div><div align="center"><center><p><input type="submit" value="Skriv" name="B1"><input
                    type="reset" value="slet" name="B2"></font></p>
                    </center></div>
                  </form>
                </blockquote>
                </td>
              </tr>
            </table>
            </center></div></td>
          </tr>
        </table>
        </div></td>
      </tr>
    </table>
    </div></td>
  </tr>
</table>
</center></div><div align="center"><center>

<table border="0" cellpadding="0" cellspacing="0" width="675">
  <tr align="center">
    <td height="4"></td>
  </tr>
  <tr align="center">
    <td><img border="0" src="../bund.gif" width="675" height="16"></td>
  </tr>
</table>
</center></div>

<p align="center">&nbsp;</p>
</body>
</html>
<% End If %>
<% end if 'Session("lvl") = 1 %>


Retttes til:

if session("lvl") = "1" then
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

  Besked = request.form("besked")

  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("data.mdb")
  conn.execute("INSERT INTO beskeder (besked) values ('"& Besked &"')")
End if
%> </p>
                  <form method="post" action="bruger.asp"> method="post"> <div align="center" name="msg">
                    <div align="center"><center><p><textarea rows="3" name="Besked" cols="20"></textarea></p>
                    </center></div><div align="center"><center><p><input type="submit" value="Skriv" name="B1"><input
                    type="reset" value="slet" name="B2"></font></p>
                    </center></div>
                  </form>
<% end if 'session("lvl")=1 %>
                </blockquote>
                </td>
              </tr>
            </table>
            </center></div></td>
          </tr>
        </table>
        </div></td>
      </tr>
    </table>
    </div></td>
  </tr>
</table>
</center></div><div align="center"><center>

<table border="0" cellpadding="0" cellspacing="0" width="675">
  <tr align="center">
    <td height="4"></td>
  </tr>
  <tr align="center">
    <td><img border="0" src="../bund.gif" width="675" height="16"></td>
  </tr>
</table>
</center></div>

<p align="center">&nbsp;</p>
</body>
</html>

jeg kan ikke forstå hvorfor giffen forsvinder, formen skal være der endnu

du dette kode:

If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

  'GEMMER I DATABASEN

Else  'BEMÆRK ELSE

  'Udskriver FORM'en her

End if

Så  når man gemmer i databasen bliver formen ikke vist.

Og pga af End if først er efter den sidste gif fil bliver den heller ikke vist.

kan du prøve at fyre hele min side af så du mener det virker ? Mit er helt i koks nu

giv mig lige 2 sekunder..

ok

<!--#include virtual ="/include/UserTime.asp"-->
<% Response.buffer = true %>
<html>
<%
If Not Session("lvl") <> "" THEN
Response.redirect "default.asp"
End If

If request.querystring("action") = "Disconnect" THEN
Session.abandon
Response.redirect "default.asp"
End If
%>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("data.mdb")
%>
<%
sSQL = "SELECT [brugernavn] as Bruger, lvl FROM brugere WHERE lbnr = " & Session("lbnr")

        Set RSlogin = Server.CreateObject("ADODB.RecordSet")
        RSlogin.Open sSQL, Conn, 3,3
%>

<head>
<link rel="stylesheet" type="text/css" href="../styles.css">
<title>w w w . F r e d e r i c i a - B y N i g h t . dk</title>
</head>

<body bgcolor="#3288A4">
<div align="center"><center>

<table border="0" cellpadding="0" cellspacing="0" width="675">
  <tr>
    <td><img border="0" src="../top.gif" width="675" height="70"></td>
  </tr>
  <tr>
    <td height="4"></td>
  </tr>
  <tr>
    <td><div align="left"><table border="1" cellpadding="0" cellspacing="0" width="100%"
    bordercolor="#000000">
      <tr>
        <td><div align="left"><table border="0" cellpadding="0" cellspacing="5" width="671"
        bgcolor="#6C8892">
          <tr>
            <td width="154" valign="top" align="center"><!--#include Virtual="/include/brugermenu.asp" --> </td>
            <td width="495" background="../mainbg.gif" height="0"
            style="background-repeat: repeat-y; border-right-style: solid; border-right-width: 1; border-top-style: solid; border-top-width: 1; border-bottom-style: solid; border-bottom-width: 1"
            bordercolor="#000000" valign="top"><div align="center"><center><table border="0"
            cellpadding="0" cellspacing="0" width="97%">
              <tr>
                <td valign="top"><font face="Arial"><b><br>
                Bruger information</b></font><font size="2" face="Arial"><blockquote>
                  <p align="left">Du er logget ind som: <%= RSlogin("bruger")%><br>
                  <br>
                  Bruger niveauer:<br>
                  <br>
                  &nbsp;&#149;&nbsp; 1 &gt; Administrator<br>
                  &nbsp;&#149;&nbsp; 2 &gt; Poweruser<br>
                  &nbsp;&#149;&nbsp; 3 &gt; User<br>
                  &nbsp;&#149;&nbsp; 4 &gt; Guest<br>
                  <br>
                  Dit niveau: <%= RSlogin("lvl")%><br>
                  <br>
                  <a Href="bruger.asp?Action=Disconnect">Log ud</a> </font></p>
                  <p align="left"><font size="2" face="Arial"></p>
<%
if session("lvl") = "1" then
  'Alt hvad der er herfra og ned til linien med:  end id 'Session("lvl")=1 bliver kun vist hvis lvl=1
  If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
    Besked = request.form("besked")
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("data.mdb")
    conn.execute("INSERT INTO beskeder (besked) values ('"& Besked &"')")
  End if %>
              <form method="post" action="bruger.asp" method="post"> <div align="center" name="msg">
                <div align="center"><center><p><textarea rows="3" name="Besked" cols="20"></textarea></p>
                </center></div><div align="center"><center><p><input type="submit" value="Skriv" name="B1"><input
                type="reset" value="slet" name="B2"></font></p>
                </center></div>
              </form>
<% end if 'Session("lvl")=1 %>
                </blockquote>
                </td>
              </tr>
            </table>
            </center></div></td>
          </tr>
        </table>
        </div></td>
      </tr>
    </table>
    </div></td>
  </tr>
</table>
</center></div><div align="center"><center>

<table border="0" cellpadding="0" cellspacing="0" width="675">
  <tr align="center">
    <td height="4"></td>
  </tr>
  <tr align="center">
    <td><img border="0" src="../bund.gif" width="675" height="16"></td>
  </tr>
</table>
</center></div>

<p align="center">&nbsp;</p>
</body>
</html>
<%
if session("lvl") = "2" then
Response.Write "Kun brugere af Level 2 kan se denne"
end if
%>
<%
if session("lvl") = "3" then
Response.Write "Kun brugere af Level 3 kan se denne"
end if
%>
<%
if session("lvl") = "4" then
Response.Write "Du har gæstestatus"
end if
%>
<%
RSlogin.Close
Set RSlogin = Nothing
%>

kan du smække en response write på... ? altså teksten er nu lagt i databasen

jo den skal ind i denne if:
  If Request.ServerVariables("REQUEST_METHOD") = "POST" Then

Eksvis sådan her:

  If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
    Besked = request.form("besked")
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("data.mdb")
    conn.execute("INSERT INTO beskeder (besked) values ('"& Besked &"')")
    Response.Write "Beskeden er lagt i databasen."
  End if %>

Mange mange tak