Kan ikke få lavet gemme funktion
HejNedenstående koder henter data ind i en form, hvorefter jeg skal kunne rette i dem. Når jeg så trykker "Gem" så skal den gemme mine ændringer, men jeg kan ikke finde ud af at lave gemme funktionene. Nogen der gider at hjælpe mig!
<% mode = request("mode") %>
<% if mode = "" then %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/auktion.mdb")
Conn.Open DSN
%>
<% set rskunder = Conn.execute("SELECT * FROM liste where id=" & request("id"))%>
<b><font face="Arial" size="2">Ret auktions oplysninger! </font></b>
<body bgcolor="#FFFFFF" text="#000000" background="" bgproperties="fixed">
<form method="POST" action="?mode=ret&id=<%Response.Write rskunder("id")%>">
<table width="53%" border="1">
<tr>
<td width="28%"><font face="Arial" size="2"><b>Navn:</b></font></td>
<td width="72%">
<font face="Arial">
<input type="text" name="Navn" size="30" value="<%Response.Write rskunder("navn")%>"><font size="2"> </font></font>
</td>
</tr>
<tr>
<td width="28%"><font face="Arial" size="2"><b>Dato:</b></font></td>
<td width="72%">
<font face="Arial">
<input type="text" name="Dato" size="30" value="<%Response.Write rskunder("dato")%>"><font size="2"> (f. eks:
03-09-04)</font></font></td>
</tr>
<tr>
<td width="28%"><font face="Arial" size="2"><b>Beskrivelse:</b></font></td>
<td width="72%">
<font face="Arial">
<textarea name="beskrivelse" rows="5" cols="40"><%Response.Write rskunder("beskrivelse")%></textarea><font size="2">
</font></font>
</td>
</tr>
<tr>
<td width="28%"><font face="Arial" size="2"><b>Online</b></font></td>
<td width="72%">
<font face="Arial">
<select size="1" name="Online">
<option selected><%Response.Write rskunder("online")%></option>
<option>Ja</option>
<option>Nej</option>
</select></font></td>
</tr>
</table>
<br>
<input type="submit" value="Send" name="B1">
<input type="reset" value="Nulstil" name="B2">
</p>
</form><br>
<%else
end if %>
<%if mode = "Ret" then%>
GEMME FUNKTION
<%end if%>
