objRS + Requery

[thomas]

hallo forum
habe diesen code -->

dim my_sql2
my_sql2 = "SELECT * FROM CAddressDL WHERE 1 < 0"

dim objRS
Set objRS = Server.CreateObject(ADODB_RS)
objRS.Open my_sql2, objConn,adOpenDynamic,adLockOptimistic

objRS.AddNew

objRS.Fields("Name")= BA_Name
objRS.Fields("FirstName")=BA_FirstName
objRS.Fields("Street")= BA_Street
objRS.Fields("HouseNumber") =BA_HouseNumber
objRS.Fields("PostalCode") = BA_PostalCode
objRS.Fields("City")= BA_City
objRS.Fields("PhoneNumber")= BA_Telefon
objRS.Fields("BoxType")=BA_BoxType
objRS.Fields("Volume")= BA_Volume

objRS.Update
objRS.Requery

dim my_billingaddressid
my_billingaddressid = objRS.Fields("AddressID")
response.write my_billingaddressid

objRS.Close
Set objRS = Nothing

und diese Fehlermeldung -->

ADODB.Field-Fehler '800a0bcd'

Entweder BOF oder EOF ist True, oder der aktuelle Datensatz wurde gelöscht; die von der Anwendung angeforderte Operation benötigt einen aktuellen Datensatz.

wenn ich das objRS-Requery rausnehme kommt auch nic zurück ??
thanx im voraus für jede Hilfe...
Thomas

[John Barden]

Schau mal da, vielleicht hilft das:
http://www.asphowto.de.vu