Fejl med update

Jge har nedenstående script, hvor jeg opdaterer nogle værdier i min database..

MEN når den har opdateret, er alle værdierne i min database #FEJL#

Nogen der måske kan se om der er en lille brist et sted..?


strpbsstat = request.form("pbsstat")
strQPstat = request.form("qpstat")
strQPstatmsg = request.form("qpstatmsg")
strCardType = request.form("cardtype")
strTransaction = request.form("transaction")
strOrdrenummer = request.form("ordernum")



Set rs= Server.CreateObject("ADODB.Recordset")
    strSQL = "select * from order where id = " & strOrdrenummer & ""
    rs.Open strSQL, conn, 1, 3
    rs.update
    rs("betalingtype") = 1
    rs("betalingModtaget") = 1
    rs("betalingmodtagetdato") = now()
    rs("pbskode") = strPBSstat
    rs("qpkode") = strQPstat
    rs("qpbesked") = strQPstatmsg
    rs("korttype") = strCardType
    rs("Transaktionid") = strtransaction
    rs("status") = 1
    rs.update
    rs.close
    set rs= nothing