textarea / gæstebog

Hejsa sidder lige og roder med en gæstebog, vil ha\' den til at godtage html koder, men den viser bare tag\'sne mm..
f.eks
<div style=position:absolute; background:black; width:100%; height:100%; z-index:10000;>
Det her må kunne virke...</div>

Nogen der har en ide?
Her er kodestumpen der gemmer det indtastet:
Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"database.mdb\")  & \";UID=admin;PWD=;\"

    Set rs = Server.CreateObject(\"ADODB.RecordSet\")
   
    strSQL = \"Insert into Gæstebog (Navn, Email, Web, Dato, Tid, Besked) values(\'\"
    strSQL = strSQL & Request.form(\"Navn\") & \"\',\'\"   
    strSQL = strSQL & Request.form(\"Email\") & \"\',\'\"
    strSQL = strSQL & Request.form(\"Web\") & \"\',\'\"
    strSQL = strSQL & date() & \"\',\'\"
    strSQL = strSQL & time() & \"\',\'\"
    strSQL = strSQL & Request.form(\"Besked\") & \"\')\"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
   


Conn.Close
set Conn = Nothing

Og her den der hiver den frem igen:

<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"database.mdb\")
strSQL = \"Select * From Gæstebog ORDER BY ID DESC;\"
set rs = Conn.execute(strSQL)

if rs.EOF then
Response.write \"<font face=\"\"Tahoma\"\" size=\"\"2\"\"><i>Der er ingen der har skrevet i gæstebogen...</i></font>\"
else
Do Until rs.EOF
%>
<table border=\"0\" cellpadding=\"2\" cellspacing=\"0\" width=\"500\">
    <tr>
        <td width=\"500\" bgcolor=\"#C0C0C0\"><font size=\"2\"
        face=\"Tahoma\"><strong><a href=\"mailto:<%=RS(\"Email\")%>\"><font size=\"2\" face=\"Tahoma\"><%=RS(\"Navn\")%></strong></font></a> @
        <font size=\"2\" face=\"Tahoma\"><strong><%=LinkTekst(RS(\"Web\"))%></strong></font></td>
    </tr>
    <tr>
        <td width=\"500\"><font size=\"2\" color=\"#5E6669\" face=\"Tahoma\">Den <%=RS(\"Dato\")%>
        klokken <%=RS(\"Tid\")%> skrev <%=RS(\"Navn\")%>:</font><br>
        <br>
        <font size=\"3\" face=\"Tahoma\"><%=Replace(RS(\"Besked\"), vbCrLf, \"<BR>\")%></font></td>
    </tr>
    <tr>
        <td width=\"500\" bgcolor=\"#C0C0C0\"><% %></td>
    </tr>
</table>

Mvh
Jack!!