edit en post i form
Jeg vil gerne have nedenstående kode til at:Når man klikker på "Edit" ud for en post hentes formen frem med felter udfyldt fra denne "record" / Id,
således at man bare skal editere det felt man ønsker og submitte.
ALT andet virker OK som det er.
Kode:
<html>
<head><title>Adressebog</title>
<body>
<p> </p>
<p><a href="?action=add">Tilføj til databasen</a><br>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("personer.mdb")
Conn.Open DSN
If Request.Form("submit") = "Gem" Then
sSQL = "INSERT INTO personer (Fornavn, Efternavn, Adresse, Telefon, Mobil, Email, Foedselsdato) VALUES ('"
sSQL = sSQL & Request.Form("Fornavn") & "', '"
sSQL = sSQL & Request.Form("Efternavn") & "', '"
sSQL = sSQL & Request.Form("Adresse") & "', '"
sSQL = sSQL & Request.Form("Telefon") & "', '"
sSQL = sSQL & Request.Form("Mobil") & "', '"
sSQL = sSQL & Request.Form("Email") & "', '"
sSQL = sSQL & Request.Form("Foedselsdato") & "')"
Conn.Execute(sSQL)
Response.Write "<strong>En person er tilføjet database</strong><br>"
Elseif Request.QueryString("action") = "del" Then
sSQL = "DELETE FROM personer WHERE ID = " & Request.QueryString("id")
Conn.Execute(sSQL)
End If
If Request.QueryString("action") = "add" Then
%>
</p>
<form action="finish.asp" method="post">
<table width="95%" align="center" >
<tr>
<td width="10%" height="10" valign="middle"><ul>
<li><strong>Fornavn</strong></li>
</ul></td>
<td width="20%" height="10"><input type="text" name="Fornavn"></td>
<td height="10"> </td>
</tr>
<tr>
<td valign="middle"><ul>
<li><strong>Efternavn</strong></li>
</ul></td>
<td valign="middle"><input type="text" name="Efternavn"></td>
<td> </td>
</tr>
<tr>
<td valign="middle"><ul>
<li><strong>Adresse</strong></li>
</ul></td>
<td valign="middle"><input type="text" name="Adresse"></td>
<td> </td>
</tr>
<tr>
<td valign="middle"><ul>
<li><strong>Telefon</strong></li>
</ul></td>
<td valign="middle"><input type="text" name="Telefon"></td>
<td>eks 33447798 </td>
</tr>
<tr>
<td valign="middle"><ul>
<li><strong>Mobil</strong></li>
</ul></td>
<td valign="middle"><input type="text" name="Mobil"></td>
<td>eks 26204165</td>
</tr>
<tr>
<td valign="middle"><ul>
<li><strong>Email</strong></li>
</ul></td>
<td valign="middle"><input type="text" name="Email"></td>
<td>eks peter@pan.dk</td>
</tr>
<tr>
<td valign="middle"><ul>
<li><strong>Fødselsdato</strong></li>
</ul></td>
<td valign="middle"><input type="text" name="Foedselsdato"></td>
<td>eks 22-10-1978</td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<table width="500" align="center">
<td height="24"><input type="submit" name="Submit" value="Gem" style="width:105px;">
<input type="button" value="Fortryd...og gå tilbage" onClick="history.back();"> </td>
</tr>
</table>
<p> </p>
</form>
<%
Else
%>
<table>
<tr style="font-weight: bold;">
<td >id</td>
<td >Fornavn</td>
<td >Efternavn</td>
<td >Adresse</td>
<td >Telefon</td>
<td >Mobil</td>
<td >Email</td>
<td >Fødselsdato</td>
<td >Operation</td>
</tr>
<%
sSQL = "SELECT * FROM personer"
set rs = Conn.Execute(sSQL)
Do
Response.Write "<tr>"
Response.Write "<td>" & rs("ID") & "</td>"
Response.Write "<td>" & rs("Fornavn") & "</td>"
Response.Write "<td>" & rs("Efternavn") & "</td>"
Response.Write "<td>" & rs("Adresse") & "</td>"
Response.Write "<td>" & rs("Telefon") & "</td>"
Response.Write "<td>" & rs("Mobil") & "</td>"
Response.Write "<td>" & rs("Email") & "</td>"
Response.Write "<td>" & FormatDateTime(rs("Foedselsdato"), vbLongDate) & "</td>"
Response.Write "<td><a href=?action=del&id=" & rs("ID") & ">Slet</a></td>"
Response.Write "<td><a href=?action=del&id=" & rs("ID") & ">Edit</a></td>"
Response.Write "</tr>"
rs.MoveNext
Loop While Not rs.EOF
End If
Conn.Close
set Conn = Nothing
%>
</table
>
</body>
</html>
