og en lille kikser mere :)
hele add.asp filen skal du også skifte med:
<% Response.Buffer = True %>
<% mode = Request("mode") %>
<HTML><HEAD><TITLE>Tilføj nyhed</TITLE>
<META http-equiv=Content-Language content=da>
<META http-equiv=Content-Type content="text/html; charset=windows-1252">
</HEAD>
<BODY>
<DIV align=center>
<CENTER>
<TABLE style="border-width:0; border-style:solid; BORDER-COLLAPSE: collapse" borderColor=#111111 cellSpacing=0 cellPadding=10 width="100%" border=0>
<TBODY>
<TR>
<TD>
<% if mode = "ok" then %> <b> <font color="#FFFFFF" size="2" face="Arial"><span style="background-color: #009900"> ER TILFØJET TIL DATABASEN!
<% end if %>
</span> </font><font size="2" face="Arial"><a href="vis.asp">klik her
for at komme tilbage til forsiden</a></font></b><FORM action="add.asp?mode=db" method="post">
<p><b><font face="Arial" size="4">Tilføj nyhed</font></b></p>
<p><b><font face="Arial" size="2">Overskrift<br>
</font></b><input type="text" name="emne" size="20"></p>
<p><b><font face="Arial" size="2">Skriv din tekst i nedenstående felt:<br>
</font></b>
<TEXTAREA name=info rows=11 cols=55></TEXTAREA></p>
<h5 style="margin-left: 10; margin-right: 10">
<INPUT type=submit value=Tilføj>
<INPUT type=reset value="Slet tekst" name=B2></h5>
</FORM>
<p><font face="Arial" size="1"><b>NB! Man kan benytte html-koder til at give teksten liv:</b></font></p>
<p><font face="Arial" size="1"><span style="font-style: normal">Hvis man vil ændre lidt i typografien kan man eksempelvis bruge
nedenstående koder: Den tekst der skal fremhæves skal sættes mellem tags'ne
<x></x></span></font></p>
<p><font face="Arial" size="1">
<span style="font-style: italic; font-weight:700">Eksempel:</span></font></p>
<p style="margin-top: 0; margin-bottom: 0"><font face="Arial" size="1"><span style="font-style: normal"><b>dette er bold skrift</b> bliver til <b>dette er bold skrift</b></span></font></p>
<p style="margin-top: 0; margin-bottom: 0"><font face="Arial" size="1"><span style="font-style: normal"><b>Tags'ne:</b></span></font></p>
<p style="margin-top: 0; margin-bottom: 0"><font face="Arial" size="1"><span style="font-style: normal">Bold = <b></b></span></font></p>
<p style="margin-top: 0; margin-bottom: 0"><font face="Arial" size="1"><span style="font-style: normal">Italic= <i></i></span></font></p>
<p style="margin-top: 0; margin-bottom: 0"><font face="Arial" size="1"><span style="font-style: normal">Understreg <u></u></span></font></TD></TR></TBODY></TABLE></CENTER></DIV>
</BODY></HTML>
<% if mode = "db" then
emne = request.form("emne")
info = request.form("info")
emne = Replace(emne,"'","''")
info = replace(info, chr(13), "<BR>")
info = Replace(info,"'","''")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("info.mdb")
SQLstmt = "INSERT INTO info (emne, info)"
SQLstmt = SQLstmt & " VALUES ('" & emne & "','" & info & "')"
'response.write sqlstmt
Conn.Execute (SQLstmt)
conn.Close
Set conn = nothing
Set SQLstmt = nothing
response.redirect ("add.asp?mode=ok")
end if %>
