när jag submitar stannar sidan men uppdaterar posten varför fattar inte??????
[b]blabla.asp[/b]
<!-- #include file="adovbs.inc" -->
<!-- #include file="style.css" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/plank_sida.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From plank_sida Where id1 = " &Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
%>
<html>
<head>
<title>Planka Community - Ändra Planksida</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="../YOYO%20Community/Bilder/Bakgrund_rutig.gif">
<table width="485" border="0" cellspacing="2" cellpadding="2" bgcolor="#FFFFFF">
<tr>
<td valign="top" class="tabell" bgcolor="#FFFFFF">
<form method="POST" action="blabla2.asp">
<p align="right"> <font face="Verdana" size="1"><br>
</font> <font face="Verdana" size="6">Ändra din sida</font><font face="Verdana" size="1"><br>
<br>
HTML: <font color="#000000">
<br>
<textarea rows="11" name="HTML" cols="73"><%=Recset("html")%></textarea><br>
<br>
</font>
<input type="submit" name="Submit" value="Ändra sida" class="knapp">
</font></p>
</form>
</td>
</tr>
</table>
</body>
</html>
[b]blabla2.asp[/b]
<!-- #include file="adovbs.inc" -->
<%
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("Database/blabla.mdb")&";"
Set RecSet = Server.CreateObject("ADODB.Recordset")
Addera = "Select * From blabla Where id1 = " &Session("id")
RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic
RecSet("HTML") = Request.Form("HTML")
RecSet.Update
RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
response.redirect "blabla.asp"
%>
[Redigerat av antar den 09 jan 2002]