side med formular:
<!--#include file="dbforb.asp"-->
<%
Session("Id") = Request.QueryString("Id")
Session("navn") = Request.QueryString("navn")
Set rsKategori = Server.CreateObject("ADODB.Recordset")
strSQL = "Select * From Hoverskrifter Where Id = " & Session("id")
rsKategori.Open strSQL, Conn, adOpenForwardOnly
%>
<html>
<head>
<title>Untitled</title>
</head>
<body>
<form nethod="post" action="opdater_kateoverskrift.asp">
<table width="60%" cellpadding="2" cellspacing="0" border="0">
<tr>
<td colspan="3" bgcolor="#808080"><font face="Verdana" size="3" color="#FFFFFF">Her kan du enten opdatere kategorien eller eller slette kategorien og alle dens underliggende emner</font></td>
</tr>
<tr>
<td><font face="Verdana" size="2" color="#000000">Opdater kategori:</font></td>
<td><input type="text" name="kategori" value="<%=Session("navn")%>"></td>
<td><input type="submit" name="Submit" value="Opdater"></td>
</tr>
<tr>
<td><font face="Verdana" size="2" color="#000000">Slet kategori (og emner):</font></td>
<td> </td>
<td><a href="slet_kategori.asp?Id=<%=rsKategori("Id")%>&kategori=<%=rsKategori("overskrift")%>"><img src="nyebilleder/slet_knap.gif" width="73" height="23" alt="" border="0"></a></td>
</tr>
</table>
</form>
</body>
</html>
asp side:
<!--#include file="dbforb.asp"-->
<%
Dim rs1
Set rs1 = Server.CreateObject("ADODB.Recordset")
strSQL1 = "Select * From Hoverskrifter Where Id = " & Session("Id")
rs1.Open strSQL1, Conn, 1, 3
rs1.Update
rs1("overskrift") = Request.Form("kategori")
rs1.Update
Dim rs2
Set rs2 = Server.CreateObject("ADODB.Recordset")
strSQL2 = "Select * From Hemner Where overskrift = '" & Session("navn") & "'"
rs2.Open strSQL2, conn, 1, 3
rs2.Update
rs2("overskrift") = Request.Form("kategori")
rs2.Update
Response.Redirect "default.asp"
%>
