hvad er der galt

Hvad er fejlmeddelelsen?

ps det skal vel og mærke være i rækken med den viste besked (ID fåes fra forrige side)

fejlen er, at der IKKE bliver tilføjet i databasen (ikke nogen fejlmeddelelse)

ok

Hvad med den sædvanlige; har du skrive rettigheder til databasen ?

Og er der nogle værdier i felterne fra formularen ? Prøv evt. at udskrive dem med response.write

Og sidst, er nulværdier tilladt i de felter der ikke opdateres ? Eks. hvis du klikker i Torben, vil de andre 2 være tomme - men dette burde give en fejl, hvis de ikke var tilladt.

strSQL = \"Select * From rbk Where Id = \" & Request.Querystring(\"id\") & \"; \"

skal det ikke se sådan ud?

alt vedr. databasen skulle være rigtigt indstillet (nulværdi osv)
jeg har prøvet forkellige kombinationer af ovenstående, og på et tidspunkt skete der også noget (da havde jeg lavet en bekræftelses side) men det jeg indtastede kom til at stå i en NY RÆKKE og ikke i samme række som beskeden.

west - send det lige til mig igen, så prøver jeg det. men kom alle de andre data med?

har du koden i en eller to filer?
HVis det er en fil skal du havde en \"mode\" selector ind.

Dene SQL:
\"Insert into rbk (torben, kristian, ingelise) values (\'\"& Request.Form(\"torben\") &\"\', \'\"& Request.Form(\"kristian\") &\"\', \'\"& Request.Form(\"ingelise\") &\"\')\"

opretter en ny record i tabellen rbk uden nogen \"link\" til beskedn. Du skal bruge UPDATE
Hvordan ser tabellen rbk ud??

rbk:
id
navn
besked
torben
kristian
ingerlise

hvis det er en fil så prøv dette:

<html>
<title>besked siden</title>
<head>
</head>
<body>
<%
mode = request(\"mode\")
if mode = \"\" then
  mode = \"edit\"
end if

select case mode
  case \"edit\"
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
    DSN = DSN & \"DBQ=\" & Server.MapPath (\"database.mdb\")
    Conn.Open DSN

    \' Hent fra databasen afhængig af værdien id fra URL
    strSQL = \"Select * From rbk Where Id = \" & Request.Querystring(\"id\")
    Set rs = Conn.Execute(strSQL)

    \' Skriv personens data
    Response.Write rs(\"navn\") & \" skrev : \" & rs(\"overskrift\")
    response.write \"<br><br>\"
    Response.Write \"<dt>følgende besked : </dt><dd>\" & rs(\"tekst\") & \"</dd>\"

\'    Conn.Close
\'    Set Conn = Nothing
    %>
<br>
<br>
<form method=\"POST\" action=\"index.asp?mode=save&id=<%= Request.Querystring(\"id\")%>\">
<table border=\"1\" width=\"300\">
<tr>
<td width=\"100%\" colspan=\"3\">Sæt x ved dit navn når du har læst dette indlæg</td>
</tr>
<tr>
<td width=\"33%\"><input type=\"checkbox\" name=\"torben\" value=\"TA\" <% if rs(\"torben\")=\"TA\" then response.write \" SELECTED\"%>>Torben</td>
<td width=\"33%\"><input type=\"checkbox\" name=\"kristian\" value=\"KB\" <% if rs(\"kristian\")=\"KB\" then response.write \" SELECTED\"%>>Kristian</td>
<td width=\"34%\"><input type=\"checkbox\" name=\"ingelise\" value=\"IP\" <% if rs(\"ingerlise\")=\"IP\" then response.write \" SELECTED\"%>>Inge Lise</td>
</tr>
<tr>
<td width=\"100%\" colspan=\"3\">
<p align=\"center\">Derefter skal du<br>
<input type=\"submit\" value=\"Trykke her\" name=\"send\">
</td>
</tr>
</table>
</form>
<%
    Conn.Close
    Set Conn = Nothing



  case \"save\"
    Set Conn = Server.CreateObject(\"ADODB.Connection\")
    DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
    DSN = DSN & \"DBQ=\" & Server.MapPath (\"database.mdb\")

    Conn.Open DSN

    torben_str= Request.Form(\"torben\")
    if torben_str =\"\" then
        torben_str=\" \"
    end if
    kristian_str= Request.Form(\"kristian \")
    if kristian_str =\"\" then
      kristian_str=\" \"
    end if
    ingelise_str= Request.Form(\"ingelise \")
    if ingelise_str=\"\" then
      ingelise_str=\" \"
    end if

    strSQL = \"UPDATE rbk SET torben=\'\" & torben_str & \", kristian=\'\" & kristian_str & \"\', ingelise=\'\" & ingelise_str & \"\' WHERE id=\"& Request.Querystring (\"id\")

    Conn.Execute(strSQL)
    Conn.Close
    Set Conn = Nothing
    %>
    <p><a href=\"index.asp\">Retur</a></p>
<%
End Select   
%>
</body>
</html>

undskyld ventetiden, men jeg skulle lige afprøve

det virker desværre ikke.
det gør som det ellers skal, men der bliver intet tilføjet i databasen
og databasen ser sådan ud.
rbk:
id
navn
overskrift
tekst
dato
torben
ingelise
kristian

jeg håber du kan hjælpe, da jeg helt er låst fast

OK der var lige et par stavefejl. Prøv lige dette:

<html>
<title>besked siden</title>
<head>
</head>
<body>
<%
mode = request(\"mode\")
if mode = \"\" then
  mode = \"edit\"
end if

select case mode
case \"edit\"
  Set Conn = Server.CreateObject(\"ADODB.Connection\")
  DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
  DSN = DSN & \"DBQ=\" & Server.MapPath (\"database.mdb\")
  Conn.Open DSN

  \' Hent fra databasen afhængig af værdien id fra URL
  strSQL = \"Select * From rbk Where Id = \" & Request.Querystring(\"id\")
  Set rs = Conn.Execute(strSQL)

  \' Skriv personens data
  Response.Write rs(\"navn\") & \" skrev : \" & rs(\"overskrift\")
  response.write \"<br><br>\"
  Response.Write \"<td>følgende besked : </td><td>\" & rs(\"tekst\") & \"</td>\"

  \' Conn.Close
  \' Set Conn = Nothing
  %>
  <br>
  <br>
  <form method=\"POST\" action=\"index.asp?mode=save&id=<%= Request.Querystring(\"id\")%>\">
  <table border=\"1\" width=\"300\">
  <tr>
  <td width=\"100%\" colspan=\"3\">Sæt x ved dit navn når du har læst dette indlæg</td>
  </tr>
  <tr>
  <td width=\"33%\"><input type=\"checkbox\" name=\"torben\" value=\"TA\" <% if rs(\"torben\")=\"TA\" then response.write \" CHECKED\"%>>Torben</td>
  <td width=\"33%\"><input type=\"checkbox\" name=\"kristian\" value=\"KB\" <% if rs(\"kristian\")=\"KB\" then response.write \" CHECKED\"%>>Kristian</td>
  <td width=\"34%\"><input type=\"checkbox\" name=\"ingelise\" value=\"IP\" <% if rs(\"ingelise\")=\"IP\" then response.write \" CHECKED\"%>>Inge Lise</td>
  </tr>
  <tr>
  <td width=\"100%\" colspan=\"3\">
  <p align=\"center\">Derefter skal du<br>
  <input type=\"submit\" value=\"Trykke her\" name=\"send\">
  </td>
  </tr>
  </table>
  </form>
  <%
  Conn.Close
  Set Conn = Nothing



case \"save\"
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"database.mdb\")

Conn.Open DSN

torben_str= Request.Form(\"torben\")
if torben_str =\"\" then
torben_str=\" \"
end if
kristian_str= Request.Form(\"kristian\")
if kristian_str =\"\" then
kristian_str=\" \"
end if
ingelise_str= Request.Form(\"ingelise\")
if ingelise_str=\"\" then
ingelise_str=\" \"
end if

strSQL = \"UPDATE rbk SET torben=\'\" & torben_str & \"\', kristian=\'\" & kristian_str & \"\', ingelise=\'\" & ingelise_str & \"\' WHERE id=\"& Request.Querystring (\"id\")
Response.Write(strSQL)
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
%>
<p><a href=\"index.asp?id=<%= Request.Querystring(\"id\")%>\">Retur</a></p>
<%
End Select
%>
</body>
</html>

det virker stadig ikke, den skriver intet ind i min database.
kan jeg evt. maile dig siderne?

underligt jeg har det til at virke på min maskeine (der hjemme). Ja det må du gerne, aoe@earthling.net P.S: Jeg får nok ført kikke på det i efermiddag eller aften.

ok jeg kikkede lige hurtigt: Ok prøv denne, Jeg troede kun der var en fil som hed index.asp havde ikke lige set besked.asp....

Filen besked.asp (men det ved du jo godt) :

<html>
<title>besked siden</title>
<head>
</head>
<body>
<%
mode = request(\"mode\")
if mode = \"\" then
  mode = \"edit\"
end if

select case mode
case \"edit\"
  Set Conn = Server.CreateObject(\"ADODB.Connection\")
  DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
  DSN = DSN & \"DBQ=\" & Server.MapPath (\"database.mdb\")
  Conn.Open DSN

  \' Hent fra databasen afhængig af værdien id fra URL
  strSQL = \"Select * From rbk Where Id = \" & Request.Querystring(\"id\")
  Set rs = Conn.Execute(strSQL)

  \' Skriv personens data
  Response.Write rs(\"navn\") & \" skrev : \" & rs(\"overskrift\")
  response.write \"<br><br>\"
  Response.Write \"<td>følgende besked : </td><td>\" & rs(\"tekst\") & \"</td>\"

  \' Conn.Close
  \' Set Conn = Nothing
  %>
  <br>
  <br>
  <form method=\"POST\" action=\"besked.asp?mode=save&id=<%= Request.Querystring(\"id\")%>\">
  <table border=\"1\" width=\"300\">
  <tr>
  <td width=\"100%\" colspan=\"3\">Sæt x ved dit navn når du har læst dette indlæg</td>
  </tr>
  <tr>
  <td width=\"33%\"><input type=\"checkbox\" name=\"torben\" value=\"TA\" <% if rs(\"torben\")=\"TA\" then response.write \"

CHECKED\"%>>Torben</td>
  <td width=\"33%\"><input type=\"checkbox\" name=\"kristian\" value=\"KB\" <% if rs(\"kristian\")=\"KB\" then response.write \"

CHECKED\"%>>Kristian</td>
  <td width=\"34%\"><input type=\"checkbox\" name=\"ingelise\" value=\"IP\" <% if rs(\"ingelise\")=\"IP\" then response.write \"

CHECKED\"%>>Inge Lise</td>
  </tr>
  <tr>
  <td width=\"100%\" colspan=\"3\">
  <p align=\"center\">Derefter skal du<br>
  <input type=\"submit\" value=\"Trykke her\" name=\"send\">
  </td>
  </tr>
  </table>
  </form>
  <%
  Conn.Close
  Set Conn = Nothing



case \"save\"
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; \"
DSN = DSN & \"DBQ=\" & Server.MapPath (\"database.mdb\")

Conn.Open DSN

torben_str= Request.Form(\"torben\")
if torben_str =\"\" then
torben_str=\" \"
end if
kristian_str= Request.Form(\"kristian\")
if kristian_str =\"\" then
kristian_str=\" \"
end if
ingelise_str= Request.Form(\"ingelise\")
if ingelise_str=\"\" then
ingelise_str=\" \"
end if

strSQL = \"UPDATE rbk SET torben=\'\" & torben_str & \"\', kristian=\'\" & kristian_str & \"\', ingelise=\'\" & ingelise_str &

\"\' WHERE id=\"& Request.Querystring (\"id\")
\'Response.Write(strSQL)
Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
%>
<p><a href=\"index.asp\">Retur</a></p>
<%
End Select
%>
</body>
</html>

har du fået det afprøvet?

undskyld den lange ventetid
jeg glemte dig helt

det virker fint nu tak for hjælpen