Hey and Hello,
ich habe einen sehr seltsames Problem.
Der folgende Code lief seit Jahren einwandfrei auf den unterschiedlichsten Servern
(Teil eines kleinen CMS)
Nun musste ich an einem neuen Projekt ein paar �nderungen druchf�hren, jedoch nicht an
diesem Funktionsteil und nun bekomme ich
nach dem Update-Befehl beim Zugriff auf die Felder des neu hinzugef�gten Datensatzes
folgenden Fehler:
Microsoft JET Database Engine- Fehler '80004005'
Unbekannter Fehler
/admin/mod_cms/asp/editInsertExec.asp, line 49
Code:
Set objRS_oT = Server.CreateObject("ADODB.Recordset")
objRS_oT.Open oT, objConn, 1, 2
intFieldCount = objRS_oT.Fields.Count - 1
objRS_oT.AddNew
For i = 0 To intFieldCount
strName = objRS_oT(i).Name
intType = objRS_oT(i).Type
strNewValue = Request.Form(strName)
Select Case intType
Case 7 ,135, 133 'date/time fields
If not IsDate(strNewValue) Then
strNewValue=Null
Else
strNewValue=CDate(strNewValue)
End If
Case 72 'GuidField
If Trim(strNewValue) & "" = "" Then strNewValue = Null
Case Else 'string fields
If Trim(strNewValue) = "" Then strNewValue = ""
End Select
Next
'und die zwei n�chsten Zeilen waren fr�her vertauscht und funktionierten und
funktionieren auf vielen Servern
'immer noch, nur seit zwei Tagen geht dies auf meinen Entwicklungserver und auf meinen
Homesystem nicht mehr....
'funktioniert....
thisEntry=objRS_oT.fields(gsPrimaryKey).value
objRS_oT.update
'so wurde der aufgef�hrte Fehler produziert...
objRS_oT.update
thisEntry=objRS_oT.fields(gsPrimaryKey).value
.... weiter Code....
Wer kann mir heir f�r eine Erkl�rung geben ... ich kapiers nicht...
Greetinx Hans
___________________________________
Hans Pickelmann
PULSAR interactive media GmbH
Online Development
Forsterstra�e 100 Durchwahl: +49 (0)911 / 416 000 73
90441 N�rnberg Fax: +49 (0)911 / 416 000 75
Germany Mobil: +49 (0)170 / 903 42 43
E-Mail: mailto:[EMAIL PROTECTED]
Internet: http://pim.de
_______________________________________________
Coffeehouse mailing list
[EMAIL PROTECTED]
http://www.glengamoi.com/mailman/listinfo/coffeehouse
