RecordSet error? Object Required

[Oli]

Hi

Hope someone can help:

<%
set rsProdInfo = Server.CreateObject("ADODB.Recordset")
rsProdInfo.Open "TBL_Products", Conn

intTotal = 0

rsProd.MoveFirst
'while not rsProd.EOF
rsProdInfo.MoveFirst
' rsProdInfo.Find "ProdID = " & rsProd("ProdID")
intProdID = rsProd("ProdID")
strProdName = rsProdInfo("Product")
intPrice = formatNumber(rsProdInfo("Price"), 2)
'intQuant = rsProd("quantity")
'intExtPrice = formatNumber((intPrice * intQuant), 2)
intTotal = intTotal + intPrice
%>

ERROR:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/shop/checkout.asp, line 103

-----------------
Line 103: rsProd.MoveFirst

------------
This is driving me insane now - all help is much appreciated!

Oli

[Bob Barrows]

Oli wrote:

Hi

Hope someone can help:
ERROR:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/shop/checkout.asp, line 103

-----------------
Line 103: rsProd.MoveFirst

------------
This is driving me insane now - all help is much appreciated!

Oli

If you put "Option Explicit" at the beginning of your script block, you will
avoid these errors.

You have :

rsProdInfo.Open "TBL_Products", Conn

followed by:

rsProd.MoveFirst

See the problem?

Incidently, you are using an expensive, inefficient method to do this task.
Follow up in a new thread, providing a few more details about what you are
doing, if you are interested in hearing about a better way.

Bob Barrows

--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"

[Oli]

Hi Bob

Thanks for the reply. Such basic stuff - im stupid. Anyway now I have an
issue with...

intPrice = formatNumber(rsProd("Price"), 2)

ERROR:
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'formatNumber'
/shop/checkout.asp, line 109

Any ideas?
THanks
Oli

"Bob Barrows" <re******@NOyahoo.SPAMcom> wrote in message
news:OF**************@TK2MSFTNGP09.phx.gbl...

Oli wrote:

Hi

Hope someone can help:

ERROR:
Microsoft VBScript runtime (0x800A01A8)
Object required: ''
/shop/checkout.asp, line 103

-----------------
Line 103: rsProd.MoveFirst

------------
This is driving me insane now - all help is much appreciated!

Oli

If you put "Option Explicit" at the beginning of your script block, you

will avoid these errors.

You have :

rsProdInfo.Open "TBL_Products", Conn

followed by:

rsProd.MoveFirst

See the problem?

Incidently, you are using an expensive, inefficient method to do this task. Follow up in a new thread, providing a few more details about what you are
doing, if you are interested in hearing about a better way.

Bob Barrows

--
Microsoft MVP - ASP/ASP.NET
Please reply to the newsgroup. This email account is my spam trap so I
don't check it very often. If you must reply off-line, then remove the
"NO SPAM"

[Bob Barrows [MVP]]

Oli wrote:

Hi Bob

Thanks for the reply. Such basic stuff - im stupid. Anyway now I
have an issue with...

intPrice = formatNumber(rsProd("Price"), 2)

ERROR:
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'formatNumber'
/shop/checkout.asp, line 109

Well, it still says "rsProd" .... Did you change "rsProdInfo" to "rsProd"?

If you are using the correc recordset variable, then the Price field could
contain a Null, which cannot be handled by formtNumber. I suggest modifying
your query to guarantee that the value in Price will never be a Null. If you
can't do that, I wrote a little function for my script library:

function NullToZero(pData)
if len(pData) = 0 then
NullToZero = cdbl(0)
else
on error resume next
pData = cdbl(pData)
if not IsNumeric(pData) then pData = 0
NullToZero = cdbl(pData)
end if
end function
Use it like this:

intPrice = formatNumber(NullToZero(rsProd("Price")), 2)

HTH,
Bob Barrows
--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

[Aaron Bertrand [MVP]]

Does Price allow NULLs? If so, stop doing that.

--
Aaron Bertrand
SQL Server MVP
http://www.aspfaq.com/

intPrice = formatNumber(rsProd("Price"), 2)

ERROR:
Error Type:
Microsoft VBScript runtime (0x800A000D)
Type mismatch: 'formatNumber'