Fejl kode..

Hej..

JEg får følgende fejl på min side:

Microsoft VBScript runtime error '800a0007'

Out of memory: 'Conn.Execute'


Det er kun på den side og ikke de andre..

Det er det her der laver problemet:

function spam(ord)
        SQLfilter = "SELECT * FROM nn_spamreplace"
        Set rsfilter = Conn.Execute(SQLfilter)
       
        Do While Not rsfilter.EOF
       
            ord1 = rsfilter("ord1")
            ord2 = rsfilter("ord2")
       
            strord = Replace(ord, ord1, ord2)
       
        rsfilter.MoveNext
        Loop
        rsfilter.Close
        set rsfilter=nothing
       
        spam(strord)
end function