ændre grundet notatfelt

Hvordan skal denne ændres hvis tekst er et notatfelt..
<%
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../1Q/data.mdb")
        If IsEmpty(Session("id")) Then
            strSQL = "SELECT * FROM sker"
        Else
            strSQL = "SELECT * FROM sker WHERE id =" & Session("id")
        End If
        Set Rs = Conn.Execute(strSQL)

    While Not Rs.EOF
   
        If DateDiff("d", Rs("dato"), Date()) = 0 Then
            Session("id") = Rs("id")
%>
<script language="JavaScript">
            <% If Session("id") <> "" Then %>
alert('<%= Rs("dato") %>\nSkrevet af: <%= Rs("navn") %>\n<%= Left(Rs("tekst"), 30)%>\nLæs i Det Sker');
            <% End If %>
        </script>
<%
        End If
    Rs.MoveNext()
    Wend
%>

for det ser ikke ud til at virke ellers