Tomcat: Fehler im Code? SQL Anweisung hängt am "rs.Update"

Beitrag lesen

Hallo Forumer,

bitte schaut Euch einmal den u. a. Code an. Dieses DB Aktualisierung habe ich mir zusammengebaut. Mit weniger rs.Fields Anweisungen geht auch alles gut. Allerdings hängt er sich bei diesem Code beim letzten "rs.Update" (Teil 2) auf. Und zwar mit der Fehlermeldung:

Microsoft OLE DB Provider for ODBC Drivers-Fehler '80040e2f'

[Microsoft][ODBC Microsoft Access Driver]Fehler in Zeile

/infonet_working/Aendern/MA_change_update.asp, Zeile 109

Zeile 109 wäre dann "rs.Update"

Allerdings kann ich den Fehler nicht finden (mit meinen bescheidenen Kenntnissen ;-))

Wer kann mir helfen?

Gruß

Tomcat

Erster Teil
___________________________________________________________
<body>
  <%
  Set conn = Server.CreateObject("ADODB.Connection")
  conn.open "LundbeckMitarbeiter","",""
  Set rs = Server.CreateObject("ADODB.Recordset")
  SQL = "Select * FROM Lundbeck Where ID = " & Request.Form("ID")
  rs.open sql, conn, 3, 3
  rs.Fields("Vorname") = Request.Form("Vorname")
  rs.Fields("Nachname") = Request.Form("Nachname")
  rs.Fields("Titel") = Request.Form("Titel")
  rs.Fields("GebCode") = Request.Form("GebCode")
  rs.Fields("Abteilung") = Request.Form("Abteilung")
  rs.Fields("Abteilungkurz") = Request.Form("Abteilungkurz")
  rs.Fields("Status3") = Request.Form("Status3")
  rs.Fields("Vorwahl") = Request.Form("Vorwahl")
  rs.Fields("Telefon") = Request.Form("Telefon")
  rs.Fields("Durchwahl") = Request.Form("Durchwahl")
  rs.Fields("Strasse") = Request.Form("Strasse")
  rs.Fields("Plz") = Request.Form("Plz")
  rs.Fields("Ort") = Request.Form("Ort")
  rs.Fields("eMail") = Request.Form("eMail")
  rs.Fields("Kommunikation") = Request.Form("Kommunikation")
  rs.Fields("Status") = Request.Form("Status")
  rs.Fields("Status2") = Request.Form("Status2")
  rs.Fields("photo") = Request.Form("eMail")
  rs.Fields("Mobil") = Request.Form("Mobil")
  pers = Request.Form("PersNr")
  rs.update
  conn.close
  %>

___________________________________________________________________
Zweiter Teil (selbe Page)
___________________________________________________________________
  <%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "LundbeckMitarbeiter","",""
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "Select * FROM Hardware Where PersNr ='" & pers & "'"
rs.open sql, conn, 3, 3
  if rs.BOF AND rs.EOF Then
   rs.AddNew
   rs.Fields("Vorname") = Request.Form("Vorname")
   rs.Fields("Nachname") = Request.Form("Nachname")
   rs.Fields("PersNR") = Request.Form("PersNr")
   rs.Fields("PC") = Request.Form("PC")
   rs.Fields("PC_SN") = Request.Form("PC_SN")
   rs.Fields("PCAnlagenNr") = Request.Form("PCAnlagenNr")
   rs.Fields("CareNr") = Request.Form("CareNr")
   rs.Fields("Bildschirm") = Request.Form("Bildschirm")
   rs.Fields("Bildschirm_SN") = Request.Form("Bildschirm_SN")
   rs.Fields("BildschirmAnlagenNr") = Request.Form("BildschirmAnlagenNr")
   rs.Fields("Drucker") = Request.Form("Drucker")
   rs.Fields("Drucker_SN") = Request.Form("Drucker_SN")
   rs.Fields("DruckerAnlagenNr") = Request.Form("DruckerAnlagenNr")
   rs.Fields("Modem") = Request.Form("Modem")
   rs.Fields("Modem_SN") = Request.Form("Modem_SN")
   rs.Fields("Maus") = Request.Form("Maus")
   rs.Fields("Handy") = Request.Form("Handy")
   rs.Fields("HandyModell") = Request.Form("HandyModell")
   rs.Fields("Handy_SN") = Request.Form("Handy_SN")
   rs.Fields("ISDNAnschluss") = Request.Form("ISDNAnschluss")
   rs.Fields("ISDNAnlageJaNein") = Request.Form("ISDNAnlageJaNein")
   rs.Fields("ISDNAnlagenTyp") = Request.Form("ISDNAnlagenTyp")
   rs.Fields("ISDNAnlagen_SN") = Request.Form("ISDNAnlagen_SN")
   rs.Fields("TelefonJaNein") = Request.Form("TelefonJaNein")
   rs.Fields("TelefonTyp") = Request.Form("TelefonTyp")
   rs.Fields("Dialinaccess") = Request.Form("Dialinaccess")
   rs.Fields("ElvisKennung") = Request.Form("ElvisKennung")
   rs.Fields("ElvisPasswort") = Request.Form("ElvisPasswort")
   rs.Fields("NTKennung") = Request.Form("eMail")
   rs.Fields("NTPasswort") = Request.Form("NTPasswort")
   rs.Fields("Photo") = Request.Form("Photo")
  Else
   rs.Fields("Vorname") = Request.Form("Vorname")
   rs.Fields("Nachname") = Request.Form("Nachname")
   rs.Fields("PC") = Request.Form("PC")
   rs.Fields("PC_SN") = Request.Form("PC_SN")
   rs.Fields("PCAnlagenNr") = Request.Form("PCAnlagenNr")
   rs.Fields("CareNr") = Request.Form("CareNr")
   rs.Fields("Bildschirm") = Request.Form("Bildschirm")
   rs.Fields("Bildschirm_SN") = Request.Form("Bildschirm_SN")
   rs.Fields("BildschirmAnlagenNr") = Request.Form("BildschirmAnlagenNr")
   rs.Fields("Drucker") = Request.Form("Drucker")
   rs.Fields("Drucker_SN") = Request.Form("Drucker_SN")
   rs.Fields("DruckerAnlagenNr") = Request.Form("DruckerAnlagenNr")
   rs.Fields("Modem") = Request.Form("Modem")
   rs.Fields("Modem_SN") = Request.Form("Modem_SN")
   rs.Fields("Maus") = Request.Form("Maus")
   rs.Fields("Handy") = Request.Form("Handy")
   rs.Fields("HandyModell") = Request.Form("HandyModell")
   rs.Fields("Handy_SN") = Request.Form("Handy_SN")
   rs.Fields("ISDNAnschluss") = Request.Form("ISDNAnschluss")
   rs.Fields("ISDNAnlageJaNein") = Request.Form("ISDNAnlageJaNein")
   rs.Fields("ISDNAnlagenTyp") = Request.Form("ISDNAnlagenTyp")
   rs.Fields("ISDNAnlagen_SN") = Request.Form("ISDNAnlagen_SN")
   rs.Fields("TelefonJaNein") = Request.Form("TelefonJaNein")
   rs.Fields("TelefonTyp") = Request.Form("TelefonTyp")
   rs.Fields("Dialinaccess") = Request.Form("Dialinaccess")
   rs.Fields("ElvisKennung") = Request.Form("ElvisKennung")
   rs.Fields("ElvisPasswort") = Request.Form("ElvisPasswort")
   rs.Fields("NTKennung") = Request.Form("eMail")
   rs.Fields("NTPasswort") = Request.Form("NTPasswort")
   rs.Fields("Photo") = Request.Form("Photo")
  End if
rs.Update
conn.close
  %>
  <table border="1" width="100%">
    <tr>
      <td width="100%">Die Daten wurden geändert.</td>
    </tr>
  </table>
</body>