<%
if request.form("save") = "go" then
Function TrimRep(strTekst)
strTekst = Trim(strTekst)
strTekst = replace(strTekst,vbCrLF,"<br>")
TrimRep = Replace(strTekst,"'","''")
End Function
side = "totalløsninger"
side_text = TrimRep(request.form("side_text"))
sql = "INSERT INTO privat (side,side_text) VALUES ('"
sql = sql & side & "', '"
sql = sql & side_text & "')"
conn.execute(sql)
Response.Redirect("
http://www.dinside.dk")
%>
</span>
<p class="codediv"><span class="brodtxt">En ny side blev tilføjet
databasen</span></p>
<span class="broed">
<% end if %>
</span>
<form method="post" action="">
<span class="broed">
<input type="hidden" name="save" value="go">
</span>
<table border="0" width="283" class="brodtxt" align="center">
<tr>
<td class="brodtxt">Side_text</td>
<td>
<div align="center"><span class="broed">
<textarea name="side_text" cols="30" rows="7" class="brodtxt"></textarea>
</span></div>
</td>
</tr>
<tr>
<td> </td>
<td>
<div align="right"><span class="broed">
input type="submit" value="Gem ny tekst" class="brodtxt">
</span></div>
</td>
</tr>
</table>
</form>