Online redigering af database vha. asp
Hejsa!Jeg har en database, som jeg online trækker nyheder ud af, det fungerer fint...
Mit problem er når jeg skal redigere dem...
Min database er en access og den er opbygget som flg.
Databasenavn: TCR
Tabelnavn: Nyhed
Feltnavne og typer:
ID - Autonummerering
Dato - Tekst
Overskrift - Tekst
OprettetAf - Tekst
Mail - Tekst
Emne - Notat
Min side hvorpå jeg vælger hvilken jeg vil redigere ser sådan ud:
<%
RESPONSE.BUFFER="True"
%>
<HTML>
<HEAD>
<TITLE>Redigernyhed</TITLE>
<meta name="Generator" content="Stone's WebWriter 4">
</HEAD>
<BODY>
<H2>Redigernyhed</H2>
<BR>
<%
DIM CONNECT, OnNyhed, nr
SET CONNECT = SERVER.CREATEOBJECT("ADODB.CONNECTION")
CONNECT.OPEN "DRIVER={Microsoft ACCESS DRIVER (*.MDB)}; DBQ=" & Server.MapPath ("../forum/tcr.mdb")
%>
<!-- Her hentes oplysningerne ud af databasen -->
<B>Vi har følgende</B>
<%
SET OnNyhed = CONNECT.EXECUTE (_
"SELECT * FROM Nyhed")
%>
<TABLE BORDER="1">
<!-- Her sættes løkken op for at sikre at alt kommer med -->
<TR>
<TD>Emne</TD>
</TR>
<%
DO UNTIL OnNyhed.EOF %>
<% nr = OnNyhed("ID") %>
<TR>
<TD><%=OnNyhed("Overskrift")%></TD>
<TD><FORM ACTION="redigernyhednu.asp" Target="_top" METHOD="POST" NAME="nyhedsredigering">
<INPUT TYPE="submit" VALUE="Rediger" NAME="Rediger">
<INPUT TYPE="hidden" VALUE="<% Response.write(NR) %>" NAME="Nr"></TD>
</FORM>
</TR>
<!-- Her sættes løkken til at køre igen, hvis dette er nødvendigt -->
<% OnNyhed.MOVENEXT
LOOP %>
</TABLE>
<BR>
<BR>
<A HREF="../index.asp">Tilbage til forsiden</A>
</BODY>
</HTML>
Den side jeg sender videre til redigernyhednu.asp ser således ud:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0//EN">
<HTML>
<HEAD>
<TITLE>Rediger nyhed</TITLE>
<meta name="Generator" content="Stone's WebWriter 4">
</HEAD>
<BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#0000FF" VLINK="#660066" ALINK="#FF0000">
<H2>Redigernyhed</H2>
<%
DIM CONNECT
SET CONNECT = SERVER.CREATEOBJECT("ADODB.CONNECTION")
CONNECT.OPEN "DRIVER={Microsoft ACCESS DRIVER (*.MDB)}; DBQ=" & Server.MapPath ("../forum/tcr.mdb")
%>
<!-- <INPUT TYPE="text" VALUE=<%= "'" & Request.form("Nr") & "'"%> SIZE="20" MAXLENGTH="20" NAME="Password">- feltet bruges kun til test, fjernes i endelig version... -->
<% nnr = Request.form("Nr") %>
<%
SET ONRediger = CONNECT.EXECUTE ("Select * FROM Nyhed where ID = '" & nnr & "'")
%>
<BR>
<BR>
Nyheden er:
<FORM ACTION="godkendnyhed.asp" METHOD="POST" NAME="nyhedchange">
<BR>
<BR>
<TABLE>
<TR>
<TD>Dato: <input type="text" value="værdi" name="dato"><br>
Overskrift: <input type="text" value="værdi" name="Overskrift"><br>
Oprettet af: <input type="text" value="værdi" name="OprettetAf"><br>
Mail: <input type="text" value="værdi" name="Mail"><br>
Emne: <TEXTAREA WRAP="off" ROWS="30" COLS="60" NAME="kommentartekst"><%=OnRediger("Emne")%></TEXTAREA><BR><BR>
<INPUT TYPE="submit" VALUE="registrer ændringer" NAME="Send"> <INPUT TYPE="reset" VALUE="Fortryd ændringer" NAME="Fortryd">
<INPUT TYPE="hidden" VALUE="<% Response.write(Mnr)%>" NAME="Nr">
</FORM>
</BODY>
</HTML>
Men jeg kan ikke rigtig få den til at sende noget til siden...
er der nogen der kan gennemskue hvad jeg gør galt? Det håber jeg da :-)
