aboutadmin.asp ser sådan her ud:
<%
mode = request("mode")
dim conn, strconnect, sql, rs, indhold, title
set conn = server.createobject("ADODB.Connection")
strconnect = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("sider.mdb")
conn.open strconnect
set rs = server.createobject("ADODB.Recordset")
sql = "select * from indhold where side=1;"
rs.open sql, conn
while not rs.eof
indhold = rs("indhold")
titel = rs("titel")
rs.movenext
wend
if mode = "" then
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
<html>
<head>
<title>aboutadmin</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<script language='javascript'>
function fed()
{
sT = document.selection.createRange();
sTxt = sT.text;
if(!sTxt.length > 0) { return( false); }
sT.text = "[B]" + sTxt + "[/B]";
}
</script>
</head>
<body>
<table width="45%" height="392" align="center" ></table>
<tr valign=top>
<td height="386">
<div align="center"><form>
<input type='button' value='Fed' onClick="fed()"><br>
</form>
<% response.write"<form name='FormName' action='aboutadmin.asp?mode=update' method='post'>" %>
<p><textarea name="indhold1" cols="70" rows="20" ><% =indhold %></textarea><br>
<input name="Godkend" type="submit" value="Godkend">
</form>
</p></a></div></td>
</tr>
</table>
</body>
</html>
<%
else
indhold2 = Trim(Replace(request.form("indhold1"),"'","`" ))
indhold2 = replace(indhold2, vbCrLF, "<br>")
SQL2 = "update indhold set indhold ='" & indhold2 & "' where side = 1;"
rs = Conn.Execute(SQL2)
response.redirect("about.asp")
end if
%>
