administration

Kig her:
http://www.dlaursen.dk/webmedadmin

og her:
http://www.dlaursen.dk/webmedadmin/admin

Den vil ikke opdatere, hvad gør jeg galt???


ret.asp ser sådan ud:

<% @Language = "VBScript" %>

<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../mdb/db.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>

<%
Id = Request.Form ("id")
Tabelnavn = "menu"

If Request.ServerVariables("CONTENT_LENGTH") <> 0 Then ' Opdatering
%>



<%
Set Opdatering = Server.CreateObject("ADODB.Recordset")
Query = "Select * from " & Tabelnavn & " Where id=" & Id & " "
Opdatering.Open Query, Conn, adOpenStatic, adLockOptimistic


Opdatering("navn") = Trim(Request.Form("navn"))
Opdatering("knap") = Trim(Request.Form("knap"))
Opdatering("font") = Trim(Request.Form("font"))
Opdatering("fontstr") = Trim(Request.Form("fontstr"))
Opdatering.Update

response.redirect "default.asp"

Else

Id = Request.QueryString ("id")
Set Query=Conn.Execute ("Select * from " & Tabelnavn & " Where id=" & id & "")

%>




<table cellpadding="0" cellspacing="0" border="1">
<tr>
        <td colspan="11" height="20">
                <center><b>Ret i menupunkt:</b></center><br>
        </td>
</tr>


<Form Action="ret.asp" method="post">
<tr>
<td>Navn:</td><td align=right><input name="navn" type=text size="15" value="<%=Query("navn")%>"></td>
</tr>
<tr>
<td>Knap:</td><td align=right><input name="knap" type=text size="15" value="<%=Query("knap")%>"></td>
</tr>
<tr>
<td>Skrifttype:</td><td align=right><input name="font" type=text size="15" value="<%=Query("font")%>"></td>
</tr>
<tr>
<td>Skriftstørrelse:</td><td align=right><input name="fontstr" type=text size="15" value="<%=Query("fontstr")%>"></td>
</tr>

<tr>
       
       
       
       
</tr>

<tr>
        <td colspan="2"><Div Align=center><Input type="submit" Value="Send opdatering"></div></td>
</tr>
<input type="hidden" name="id" value="<%=Id%>">
</form>



<% End If %>

</table>
</BODY>
</HTML>

Håber på hjælp...

DTM