Problem med apostroffer

Inspireret af http://www.eksperten.dk/spm/521218 har jeg testet følgende script:

*************SCRIPT START********************
<!--#include file="include/connection.asp"-->
<%if request.querystring("action") = "skriv" Then
    teksten = request.form("tekst")
    teksten1 = Replace(teksten, "'", "''")
    teksten2 = Replace(teksten1, chr(34), "&quot;")
   
    strSQL = "INSERT INTO test (tekst) VALUES ('"& teksten2 & "')"
    response.write teksten & ": teksten<br>"
    response.write teksten1 & ": teksten1<br>"
    response.write teksten2 & ": teksten2<br>"
    response.write strSQL & ": strSQL<br>"
    response.write chr(34) & ": chr(34)<br>"
    response.write ": &quot;<br>"
   
    set rs = conn.execute(strSQL)
   
Else
    strSQL = "SELECT * FROM test"
    set rs = conn.execute(strSQL)
   
    While not rs.EOF
        response.write rs("tekst") & "<br><br>"
        rs.MoveNext
    Wend
    %>
    <br><br>
    <form action="test1.asp?action=skriv" method=post>
        <input type=text name=tekst><input type=submit value="Skriv">
    </form>
<%End If%>
*************SCRIPT SLUT********************


Men det giver følgende:

*************FEJL START********************
cd'en: teksten
cd''en: teksten1
cd''en: teksten2
INSERT INTO test (tekst) VALUES ('cd''en'): strSQL
": chr(34)
: "

Microsoft OLE DB Provider for SQL Server error '80040e57'

String or binary data would be truncated.
*************FEJL SLUT********************

Hvad kan problemet være?

/p/pp/ppu/test/sandkassen/test1.asp, line 15