Iam not exactly sure if this belongs here but ... here goes please redirect me if Iam posting in the wrong spot.

    dim objRecord2
    objRecord2 = Server.CreateObject("ADODB.Recordset")
    objRecord2.ActiveConnection = cDBSTRING
    objRecord2.CursorType = 3
    objRecord2.LockType = 3
    objRecord2.Source = "Contacts"
    objRecord2.Open("SELECT * FROM Contacts WHERE FirstName ='" & FirstName & "' AND LastName ='" & LastName & "' AND AddressLine1 ='" & Address & "'")
    'objRecord2.Filter="FirstName ='" & FirstName & "' AND LastName ='" & LastName & "' AND AddressLine1 ='" & Address & "'"

dim null2 as system.dbnull

If objRecord2.RecordCount = 0 Then

response.write("New Record")

    'This is for COMPLETELY NEW REGISTRATIONS
    dim objNewContact
    objNewContact = Server.CreateObject("ADODB.Recordset")
    objNewContact.ActiveConnection = cDBSTRING
    objNewContact.CursorType = 3
    objNewContact.LockType = 3
    objNewContact.Source = "Contacts"
    objNewContact.Open
    objNewContact.AddNew

       objNewContact("EmailName") = objToken.User.UserName
    objNewContact("FirstName") = objToken.User.Addresses.DefaultItem.FirstName
    objNewContact("LastName") = objToken.User.Addresses.DefaultItem.LastName
    objNewContact("Suffix") = " "
    objNewContact("CompanyName") = " "
    objNewContact("AddressNote") = " "
    objNewContact("AddressLine1") = objToken.User.Addresses.DefaultItem.Address1
    if objToken.User.Addresses.DefaultItem.Address2 = "" then
        objNewContact("AddressLine2") = " "
    else
        objNewContact("AddressLine2") = objToken.User.Addresses.DefaultItem.Address2
    end if
    objNewContact("State") = objToken.User.Addresses.DefaultItem.Province
    objNewContact("City") = objToken.User.Addresses.DefaultItem.City
    objNewContact("ZipCode") = objToken.User.Addresses.DefaultItem.PostalCode
    objNewContact("Zip4") = " "
    objNewContact("Foreign ZipCode") = " "
    objNewContact("Country") = objCustomer.BillAddr.CountryCode
    objNewContact("PrimaryPhoneType") = " "
    objNewContact("PrimaryPhoneExt") = " "
    objNewContact("Fax") = " "
    objNewContact("ReferredBy") = 1
    objNewContact("Gift") = False
    objNewContact("GiftFromID") = 0
    objNewContact("Notes") = ""
    objNewContact("MembershipStatus") = " "
    objNewContact("Issues_Remain") = "0"
    objNewContact("Clergy") = " "
    objNewContact("MemberCode") = "Member"
    objNewContact("MemberCodeDate") = NewExpireDate2
    objNewContact("Joined?") = False
    objNewContact("DateJoined") = NewExpireDate2
    objNewContact("DateUpdated") = NewExpireDate2
    objNewContact("Renewed/Rejoined") = " "
    objNewContact("DateRenewed") = NewExpireDate2
    objNewContact("FOCUS") = " "
    objNewContact("Multiple") = null2
    objNewContact("MultipleExp") = null2
    objNewContact("DoNotSellName") = False
    objNewContact("TrackingCode") = " "
    objNewContact("External ID") = null2
    objNewContact("SLID Number") = null2
    objNewContact("SourceList") = " "
    objNewContact("FOCUSEmployeeID") = "0"
    objNewContact("MonthlyDonor") = False
    objNewContact("TempID") = "0"
    objNewContact("NameOrigination") = " "
    objNewContact("DateLastServedIS") = NewExpireDate2

    objNewContact.Update <----- ERROR
        objNewContact.Close
    objNewContact = Nothing

Else


    'This is for existing contacts that are being updated.

    'Connection to the database -FK
    dim objEditContact = Server.CreateObject("ADODB.Recordset")
    objEditContact.ActiveConnection = cDBSTRING
    objEditContact.CursorType = 3
    objEditContact.LockType = 3
    objEditContact.Source = "Contacts"
       objEditContact.Open

       objEditContact("EmailName") = objToken.User.UserName
    objEditContact("FirstName") = objToken.User.Addresses.DefaultItem.FirstName
    objEditContact("LastName") = objToken.User.Addresses.DefaultItem.LastName
    objEditContact("Suffix") = " "
    objEditContact("CompanyName") = " "
    objEditContact("AddressNote") = " "
    objEditContact("AddressLine1") = objToken.User.Addresses.DefaultItem.Address1
    if objToken.User.Addresses.DefaultItem.Address2 = "" then
        objEditContact("AddressLine2") = " "
    else
        objEditContact("AddressLine2") = objToken.User.Addresses.DefaultItem.Address2
    end if
    objEditContact("State") = objToken.User.Addresses.DefaultItem.Province
    objEditContact("City") = objToken.User.Addresses.DefaultItem.City
    objEditContact("ZipCode") = objToken.User.Addresses.DefaultItem.PostalCode
    objEditContact("Zip4") = " "
    objEditContact("Foreign ZipCode") = " "
    objEditContact("Country") = objCustomer.BillAddr.CountryCode
    objEditContact("PrimaryPhoneType") = " "
    objEditContact("PrimaryPhoneExt") = " "
    objEditContact("Fax") = " "
    objEditContact("ReferredBy") = 1
    objEditContact("Gift") = False
    objEditContact("GiftFromID") = 0
    objEditContact("Notes") = ""
    objEditContact("MembershipStatus") = " "
    objEditContact("Issues_Remain") = "0"
    objEditContact("Clergy") = " "
    objEditContact("MemberCode") = "Member"
    objEditContact("MemberCodeDate") = NewExpireDate2
    objEditContact("Joined?") = False
    objEditContact("DateJoined") = NewExpireDate2
    objEditContact("DateUpdated") = NewExpireDate2
    objEditContact("Renewed/Rejoined") = " "
    objEditContact("DateRenewed") = NewExpireDate2
    objEditContact("FOCUS") = " "
    objEditContact("Multiple") = null2
    objEditContact("MultipleExp") = null2
    objEditContact("DoNotSellName") = False
    objEditContact("TrackingCode") = " "
    objEditContact("External ID") = null2
    objEditContact("SLID Number") = null2
    objEditContact("SourceList") = " "
    objEditContact("FOCUSEmployeeID") = "0"
    objEditContact("MonthlyDonor") = False
    objEditContact("TempID") = "0"
    objEditContact("NameOrigination") = " "
    objEditContact("DateLastServedIS") = NewExpireDate2

       objEditContact.Update
    objEditContact = Nothing

End If

    objRecord2.Close
    objRecord2 = Nothing


That right there is my whole if statement and Iam getting an "Error in Row" message ... Iam using an Access database and ADO to connect to it. If you can help by all means do so! Thanks for any responses!

hi there.. this looks like vb 6 code.. it should be in a vb forum, not in .net...

anyway.. this is a valid name for a field?? (Joined?)

if you try to do it field by field it will be easier to see the offending field...

HTH

Gonzalo

================================================== =========
Read this if you want to know how to get a correct reply for your question:
http://www.catb.org/~esr/faqs/smart-questions.html
^^Took that from dparsons signature and he Took that from planoie's profile
================================================== =========
My programs achieved a new certification (can you say the same?):
WORKS ON MY MACHINE
http://www.codinghorror.com/blog/archives/000818.html
================================================== =========
I know that CVS was evil, and now i got the proof:
http://worsethanfailure.com/Articles...-Hate-You.aspx
================================================== =========

You know whats kind of funny ... I just figured this out, and it has nothing to do with my code ... the error occurs because of a field that is generated with in Access... so we gotta go whoop up on our db guy haha, yes to answer your question "Joined?" is the proper field name. Thanks alot for looking at this =) always helps to have an extra set of eyes.