update

    set rs = myConn.Execute("Select * FROM emails where ersendt='JA'")
   
    if not rs.EOF then
    Do until rs.EOF
   
    SQL = "Update emails set ersendt='OK' WHERE ersendt= 'JA'"
    Connect.Execute(SQL)
        'response.write(SQL)
        rs.MoveNext
    Loop
    end if
   
myConn.close
set rs = nothing


kan man ikke det ? jeg får fejlen
Microsoft VBScript runtime error '800a01a8'

Object required: ''

finish-sending-mail.asp, line 87

Linie 87 er der hvor sql'en køreres