Här kanske du får ngt tips?!:
<%
UPD=request("UPD")
ID=request("ID")
TEXT=request("TEXT")
if ID <> "" then
Dim Conn, rs, SQLSats
Set Conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open "DBQ=" & Server.MapPath("\Databas.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
SQLSats = "Select ID,NAME,TEXT,UPD from Pages Where ID="&ID
SET rs = Conn.Execute(SQLSats)
Redigera=request("Redigera")
If Redigera="Yes" then
SQL = "Update pages Set [TEXT]='" & TEXT &"', UPD='" & cdate(UPD) & "' Where ID="& ID
conn.execute SQL,,128
updTrue=" Sidan: "& RS("NAME")&", är uppdaterad!"
end if
%>
<form method="post" name="Redigera" action="page.asp?Redigera=Yes&ID=<%=rs("ID")%>">
Sida: <b><%=RS("NAME")%></b><br>Uppdaterad senast: <b><%=RS("UPD")%></b>
<p>
<textarea name="TEXT" cols="70" rows="18"><%response.write rs("TEXT")%>
</textarea>
<input type="hidden" name="UPD" value="<%=date()%>"><br><br>
<input type="submit" name="submit" value="Uppdatera">
</form>
<font color="#FF0000"><%=updTrue%></font>
<%
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing