Problemer med login

Jeg får denne fejlmeddelelse, når jeg opretter mig som ny bruger med email, password
og navn:


Microsoft OLE DB Provider for ODBC Drivers error '80004005'

Query-based update failed because the row to update could not be found.


usermanager.asp, line 678


Oplysningerne kommer korrekt i databasen (mySQL), jeg viderestilles ikke til ../indkoebsvogn/bestilling.asp, men får istedet fejlen.
Hvis jeg herefter går tilbage og logger mig ind som den bruger, jeg lige oprettede - (den der gav mig fejl) - fungerer det fint.


Koden ser sådan her ud:



<%
dim strEmail, strPassword, strAction, strPage

strPage = request("page")
if strPage = "" then strPage = "../indkoebsvogn/bestilling.asp"


strEmail = Request.Form("email")
strPassword = Request.Form("password")
strAction = Request.Form("action")

Select Case strAction
  case "login"
    if CheckUser(strEmail, strPassword) then
      Session("userok") = "yes"
      response.redirect strPage
    else
      Session("userok") = ""
      ShowLoginForm strEmail
      ShowCreateForm strEmail
    end if
  case "create"
    ShowCreateForm ""
  case "write"
    WriteNewUser
    if CheckUser(strEmail, strPassword) then
      Session("userok") = "yes"
      response.redirect strPage
    else
      Session("userok") = ""
      Response.write "<h1>Brugeroprettelse fejlede!</h1>"
      ShowCreateForm ""           
    end if
  case else
    ShowLoginForm ""
    ShowCreateForm ""
end Select

' ------------------------------------------
' Funktioner og Procedurer
' ------------------------------------------

function CheckUser(strEmail, strPassword)
  dim objRS, strSQL
  dim boolRes

  strSQL = "SELECT id, lastlogin FROM webusers " & _
          "WHERE email = '" & strEmail & "' AND password = '" & strPassword & "'"
  set objRS = server.createobject("ADODB.Recordset")
  with objRS
    .open strSQL, strConnect, adOpenStatic, adLockOptimistic, adCmdText
    if not .EOF then
      Session("activeuser") = .Fields("id")
      .Fields("lastlogin") = now()
      .Update -------------------------------------DETTE ER LINIE 678 ------------
      boolRes = TRUE
    else
      Session("activeuser") = -1
      boolRes = FALSE
    end if
    .close
  end with
  set objRS = Nothing
  CheckUser = boolRes
end function


sub ShowCreateForm (strEmail)
  response.write _
    "<form action='usermanager.asp?page=" & _
  server.urlencode(strPage) & "' method=post>" & _
  " <table width='200' border='0' cellspacing='0' cellpadding='0'>" & _
    " <tr>" & _
        "<td colspan='2' align='left'><span class='style3'>HVIS DU ER NY BRUGER:</span> <BR><BR></td>" & _
      "</tr>" & _
      "<tr>" & _
        "<td width='87' align='left'>Email</td>" & _
        "<td width='84' align='left'><input type='text' class='text' size='19' name='email' value='" & strEmail & "'></td>" & _
      "</tr>" & _
      "<tr>" & _
        "<td align='left'>Password</td>" & _
        "<td align='left'><input type='password' size='19' name='password' class='text'></td>" & _
      "</tr>" & _
      "<tr>" & _
        "<td align='left'>Navn</td>" & _
        "<td align='left'><input type='text' size='19' name='fullname' class='text'></td>" & _
      "</tr>" & _
      "<tr>" & _
        "<td>&nbsp;</td>" & _
        "<td align='left'> <input type='hidden' value='write' name='action'>" & _
       
        "<button type='submit'  class='login'>  &nbsp;  &nbsp;  &nbsp;    OPRET  &nbsp;  &nbsp;  &nbsp;    </button>" & _
       
       
       
  " </td>" & _
      "</tr>" & _
      "<tr>" & _
        "<td>&nbsp;</td>" & _
        "<td>&nbsp;</td>" & _
      "</tr>" & _
    "</table>" & _
    "</form>"
end sub


sub ShowLoginForm (strEmail)
  response.write _
    "<form action='usermanager.asp?page=" & _
  server.urlencode(strPage) & "' method=post>" & _
  " <table width='200' border='0' cellspacing='0' cellpadding='0'>" & _
    " <tr>" & _
        "<td colspan='2' align='left'><span class='style3'>LOGIN:</span> <BR><BR></td>" & _
      "</tr>" & _
      "<tr>" & _
        "<td width='87' align='left'>Email</td>" & _
        "<td width='84' align='left'><input type='text' class='text' size='19' name='email' value='" & strEmail & "'></td>" & _
      "</tr>" & _
      "<tr>" & _
        "<td align='left'>Password</td>" & _
        "<td align='left'><input type='password' size='19' name='password' class='text'></td>" & _
   
      "<tr>" & _
        "<td>&nbsp;</td>" & _
       
       
       
        "<td align='left'> <input type='hidden' value='login' name='action'>" & _
       
        "<button type='submit'  class='login'>  &nbsp;  &nbsp;  &nbsp;    LOGIN  &nbsp;  &nbsp;  &nbsp;    </button>" & _
       
       
       
  " </td>" & _
      "</tr>" & _
      "<tr>" & _
        "<td>&nbsp;</td>" & _
        "<td>&nbsp;</td>" & _
      "</tr>" & _
    "</table>" & _
    "</form>"



Kan nogle hjælpe?


vh

Frida