p2p.wrox.com Forums

Need to download code?

View our list of code downloads.


  Return to Index  

asp_ecommerce thread: still can't resolve the problem


Message #1 by "Kemal Emin" <kemal@t...> on Sat, 10 Mar 2001 03:55:04 +0200
Hello everyone.. i've sent the message below couple of days ago. some of you

made suggestions and i've tried them all. still can't get it right. I've

checked evereything i could think of but not doing any good.



Has anyone got a working copy of related objects and the checkout.asp to

send to me?

for your information, the error is generated after i select a billing

address during checkout and click "Continue". i can create a new address,

but i can't get it show me the menu to select shipping address.



if any of you would not hesitate to send me, my email is

kemal@t...



thank you in advance



kem...



ERROR:

=========

Error Type:

ADODB.Fields (0x800A0CC1)

Item cannot be found in the collection corresponding to the requested name

or ordinal.

/hepDVD_local/checkout.asp, line 35



ASP CODE ON LINE 35

====================

32        if lcase(request("type")) = "billing" then

33

34          ' set the billing address

35          visit.order.billingaddressid = request("address")

36

37          ' then bounce to get the shipping address

38          Response.Buffer = true



VISUAL BASIC CODE

=================

' BillingAddressID - set the billing address...

Public Property Let BillingAddressID(ByVal newval As Long)



   ' Open the record and update the values...

   Dim Query As New Recordset

   Query.Open "select * from Orders where OrderID=" & m_ID, _

              m_utility.DB.DB, adOpenKeyset, adLockOptimistic

   Query("billingaddressid") = newval

   Query.Update

   Query.Close

   Set Query = Nothing



End Property















OK,, CAN ANYONE HELP ME PLEASE??? OR I WILL GO AND JUMP DOWN FROM THE

HIGHEST PLACE I CAN FIND ON EARTH.. THIS IS DRIVING ME CRAZY... I'VE CHECKED

THE DATABASE.. EVERY SINGLE COLUMN THAT HAS BILLINGADDRESSID DOES EXISTS..

#

PLEASE

PLEASE PLEASE

PLEASE...

:o(



Message #2 by "vespo" <vespo@n...> on Sat, 10 Mar 2001 06:39:57 -0500
Can you please include your code for the visit.order.billingaddressid

object?  Also, make sure your columns are correctly named in your SQL

address table.



-----Original Message-----

From: Kemal Emin [mailto:kemal@t...]

Sent: Friday, March 09, 2001 8:55 PM

To: ASP ECommerce

Subject: [asp_ecommerce] still can't resolve the problem





Hello everyone.. i've sent the message below couple of days ago. some of you

made suggestions and i've tried them all. still can't get it right. I've

checked evereything i could think of but not doing any good.



Has anyone got a working copy of related objects and the checkout.asp to

send to me?

for your information, the error is generated after i select a billing

address during checkout and click "Continue". i can create a new address,

but i can't get it show me the menu to select shipping address.



if any of you would not hesitate to send me, my email is

kemal@t...



thank you in advance



kem...



ERROR:

=========

Error Type:

ADODB.Fields (0x800A0CC1)

Item cannot be found in the collection corresponding to the requested name

or ordinal.

/hepDVD_local/checkout.asp, line 35



ASP CODE ON LINE 35

====================

32        if lcase(request("type")) = "billing" then

33

34          ' set the billing address

35          visit.order.billingaddressid = request("address")

36

37          ' then bounce to get the shipping address

38          Response.Buffer = true



VISUAL BASIC CODE

=================

' BillingAddressID - set the billing address...

Public Property Let BillingAddressID(ByVal newval As Long)



   ' Open the record and update the values...

   Dim Query As New Recordset

   Query.Open "select * from Orders where OrderID=" & m_ID, _

              m_utility.DB.DB, adOpenKeyset, adLockOptimistic

   Query("billingaddressid") = newval

   Query.Update

   Query.Close

   Set Query = Nothing



End Property















OK,, CAN ANYONE HELP ME PLEASE??? OR I WILL GO AND JUMP DOWN FROM THE

HIGHEST PLACE I CAN FIND ON EARTH.. THIS IS DRIVING ME CRAZY... I'VE CHECKED

THE DATABASE.. EVERY SINGLE COLUMN THAT HAS BILLINGADDRESSID DOES EXISTS..

#

PLEASE

PLEASE PLEASE

PLEASE...

:o(



Message #3 by "Ho Tzin Mein" <tzinmein@p...> on Tue, 13 Mar 2001 22:05:58
Anybody with the solution to this really old problem? This problem does 

not seem to be limited to the BillingAddressID property, but rather, all 

or most properties in Order.cls.



Thanks in advance.



tzin mein



> Hello everyone.. i've sent the message below couple of days ago. some of 

you

> made suggestions and i've tried them all. still can't get it right. I've

> checked evereything i could think of but not doing any good.

> 

> Has anyone got a working copy of related objects and the checkout.asp to

> send to me?

> for your information, the error is generated after i select a billing

> address during checkout and click "Continue". i can create a new address,

> but i can't get it show me the menu to select shipping address.

> 

> if any of you would not hesitate to send me, my email is

> kemal@t...

> 

> thank you in advance

> 

> kem...

> 

> ERROR:

> =========

> Error Type:

> ADODB.Fields (0x800A0CC1)

> Item cannot be found in the collection corresponding to the requested 

name

> or ordinal.

> /hepDVD_local/checkout.asp, line 35

> 

> ASP CODE ON LINE 35

> ====================

> 32        if lcase(request("type")) = "billing" then

> 33

> 34          ' set the billing address

> 35          visit.order.billingaddressid = request("address")

> 36

> 37          ' then bounce to get the shipping address

> 38          Response.Buffer = true

> 

> VISUAL BASIC CODE

> =================

> ' BillingAddressID - set the billing address...

> Public Property Let BillingAddressID(ByVal newval As Long)

> 

>    ' Open the record and update the values...

>    Dim Query As New Recordset

>    Query.Open "select * from Orders where OrderID=" & m_ID, _

>               m_utility.DB.DB, adOpenKeyset, adLockOptimistic

>    Query("billingaddressid") = newval

>    Query.Update

>    Query.Close

>    Set Query = Nothing

> 

> End Property

> 

> 

> 

> 

> 

> 

> 

> OK,, CAN ANYONE HELP ME PLEASE??? OR I WILL GO AND JUMP DOWN FROM THE

> HIGHEST PLACE I CAN FIND ON EARTH.. THIS IS DRIVING ME CRAZY... I'VE 

CHECKED

> THE DATABASE.. EVERY SINGLE COLUMN THAT HAS BILLINGADDRESSID DOES 

EXISTS..

> #

> PLEASE

> PLEASE PLEASE

> PLEASE...

> :o(

> 


  Return to Index