strange error - ASP / Active Server Pages

Kevin

Hi,

With this, i get the error:
" Microsoft VBScript runtime error '800a01ca'
Variable uses an Automation type not supported in VBScript "
at line 79

<%
totintot=request.cookies("totintot")
....
sql = "select count(*) as totuur from studres where dag>= curdate() group by
logon having logon='" & lol & "';" Set rs = objdc.execute(sql)
if rs.eof then
totu=0
else
rsArray = rs.GetRows()
totu = rsArray(0,0)
end if

if int(totu)>=int(totintot) then flgmax=1 'this is line 79
rs.close
%>

With this : if totu>=int(totintot) then flgmax=1 => type mismatch

Any idea?
Thanks
Chris

Dec 5 '05 #1

Subscribe Reply

4510

Jevon

At a guess, you're trying to cast a NULL to int - what's the value of totu?

Jevon
"Kevin" <ks****@smart.ca> wrote in message
news:uE****************@TK2MSFTNGP15.phx.gbl...

Hi,

With this, i get the error:
" Microsoft VBScript runtime error '800a01ca'
Variable uses an Automation type not supported in VBScript "
at line 79

<%
totintot=request.cookies("totintot")
...
sql = "select count(*) as totuur from studres where dag>= curdate() group
by
logon having logon='" & lol & "';" Set rs = objdc.execute(sql)
if rs.eof then
totu=0
else
rsArray = rs.GetRows()
totu = rsArray(0,0)
end if

if int(totu)>=int(totintot) then flgmax=1 'this is line 79
rs.close
%>

With this : if totu>=int(totintot) then flgmax=1 => type mismatch

Any idea?
Thanks
Chris

Dec 5 '05 #2

Kevin

Thanks for replying...

Totintot = 10
totu = 1

The database is Mysql, but i suppose it' not relevant.
"Jevon" <pl****@ask.com> wrote in message
news:ej***************@TK2MSFTNGP11.phx.gbl...

At a guess, you're trying to cast a NULL to int - what's the value of totu?
Jevon
"Kevin" <ks****@smart.ca> wrote in message
news:uE****************@TK2MSFTNGP15.phx.gbl...
Hi,

With this, i get the error:
" Microsoft VBScript runtime error '800a01ca'
Variable uses an Automation type not supported in VBScript "
at line 79

<%
totintot=request.cookies("totintot")
...
sql = "select count(*) as totuur from studres where dag>= curdate() group by
logon having logon='" & lol & "';" Set rs = objdc.execute(sql)
if rs.eof then
totu=0
else
rsArray = rs.GetRows()
totu = rsArray(0,0)
end if

if int(totu)>=int(totintot) then flgmax=1 'this is line 79 rs.close
%>

With this : if totu>=int(totintot) then flgmax=1 => type mismatch

Any idea?
Thanks
Chris

Dec 5 '05 #3

Bob Barrows [MVP]

Kevin wrote:

Hi,

With this, i get the error:
" Microsoft VBScript runtime error '800a01ca'
Variable uses an Automation type not supported in VBScript "
at line 79

<%
totintot=request.cookies("totintot")
...
sql = "select count(*) as totuur from studres where dag>= curdate()
group by logon having logon='" & lol & "';"
This has nothing to do with your error but: this query is less efficient
than it could be. Change it to:

sql = "select count(*) as totuur from studres " & _
"where dag>= curdate() AND logon='" & lol & "';"

Since you're only interested in a specific logon, there is no need to force
the database to go to the extra time and expense to group by logon and then
filter by logon after the table has been grouped and aggregated.

Set rs = objdc.execute(sql)
if rs.eof then
totu=0
else
rsArray = rs.GetRows()
totu = rsArray(0,0)
Again, probably nothing to do with your error, but this is overkill. There
is no need to waste CPU and memory by moving this single record into an
array. Simply do this:
totu=rs(0).value

totu=rs(0).value & ""
end if
In fact, this query should never return an empty recordset: you should
always get back a record containing 0 or higher in the first field, so
testing for eof is not really necessary (it IS a good habit to get into, so
consider this paragraph to be informational only).

if int(totu) >=int(totintot) then flgmax=1 'this is line 79
rs.close
%>

With this : if totu>=int(totintot) then flgmax=1 => type mismatch

You need to figure out which variable it is talking about (I suspect totu is
the problem, but ...):

Response.Write totintot & ": " & typename(totitntot) & " "
Response.Write totu & ": " & typename(totu) & " "
Response.Write flgmax & ": " & typename(flgmax) & " "

on error resume next
Response.Write int(totu) & " "
if err<>0 then
response.write "totu could not be converted to int" & " "
end if
Response.Write int(totitntot) & " "
if err<>0 then
response.write "totitntot could not be converted to int" & " "
end if

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.

Dec 5 '05 #4

Kevin

ok, thanks

"Bob Barrows [MVP]" <re******@NOyahoo.SPAMcom> wrote in message
news:OG****************@tk2msftngp13.phx.gbl...

Kevin wrote:
Hi,

With this, i get the error:
" Microsoft VBScript runtime error '800a01ca'
Variable uses an Automation type not supported in VBScript "
at line 79

<%
totintot=request.cookies("totintot")
...
sql = "select count(*) as totuur from studres where dag>= curdate()
group by logon having logon='" & lol & "';"
This has nothing to do with your error but: this query is less efficient
than it could be. Change it to:

sql = "select count(*) as totuur from studres " & _
"where dag>= curdate() AND logon='" & lol & "';"

Since you're only interested in a specific logon, there is no need to

force the database to go to the extra time and expense to group by logon and then filter by logon after the table has been grouped and aggregated.

Set rs = objdc.execute(sql)
if rs.eof then
totu=0
else
rsArray = rs.GetRows()
totu = rsArray(0,0)
Again, probably nothing to do with your error, but this is overkill. There
is no need to waste CPU and memory by moving this single record into an
array. Simply do this:
totu=rs(0).value

totu=rs(0).value & ""
end if

In fact, this query should never return an empty recordset: you should
always get back a record containing 0 or higher in the first field, so
testing for eof is not really necessary (it IS a good habit to get into,

so consider this paragraph to be informational only).

if int(totu) >=int(totintot) then flgmax=1 'this is line 79
rs.close
%>

With this : if totu>=int(totintot) then flgmax=1 => type mismatch
You need to figure out which variable it is talking about (I suspect totu

is the problem, but ...):

Response.Write totintot & ": " & typename(totitntot) & " "
Response.Write totu & ": " & typename(totu) & " "
Response.Write flgmax & ": " & typename(flgmax) & " "

on error resume next
Response.Write int(totu) & " "
if err<>0 then
response.write "totu could not be converted to int" & " "
end if
Response.Write int(totitntot) & " "
if err<>0 then
response.write "totitntot could not be converted to int" & " "
end if

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.

Dec 5 '05 #5

Kevin

One more question, please...

The sql commands are of course dependant of the database (sql with MS access
will have a different syntax than with Mysql), but the vbscript written in
ASP, is it independant of the db, no? I noticed with the same application,
but one with ms access, the other with mysql and adapted sql syntax,
differences in the return of variables and in methods e.g. rs.RecordCount)
Thanks
"Bob Barrows [MVP]" <re******@NOyahoo.SPAMcom> wrote in message
news:OG****************@tk2msftngp13.phx.gbl...

Kevin wrote:
Hi,

With this, i get the error:
" Microsoft VBScript runtime error '800a01ca'
Variable uses an Automation type not supported in VBScript "
at line 79

<%
totintot=request.cookies("totintot")
...
sql = "select count(*) as totuur from studres where dag>= curdate()
group by logon having logon='" & lol & "';"
This has nothing to do with your error but: this query is less efficient
than it could be. Change it to:

sql = "select count(*) as totuur from studres " & _
"where dag>= curdate() AND logon='" & lol & "';"

Since you're only interested in a specific logon, there is no need to

force the database to go to the extra time and expense to group by logon and then filter by logon after the table has been grouped and aggregated.

Set rs = objdc.execute(sql)
if rs.eof then
totu=0
else
rsArray = rs.GetRows()
totu = rsArray(0,0)
Again, probably nothing to do with your error, but this is overkill. There
is no need to waste CPU and memory by moving this single record into an
array. Simply do this:
totu=rs(0).value

totu=rs(0).value & ""
end if

In fact, this query should never return an empty recordset: you should
always get back a record containing 0 or higher in the first field, so
testing for eof is not really necessary (it IS a good habit to get into,

so consider this paragraph to be informational only).

if int(totu) >=int(totintot) then flgmax=1 'this is line 79
rs.close
%>

With this : if totu>=int(totintot) then flgmax=1 => type mismatch
You need to figure out which variable it is talking about (I suspect totu

is the problem, but ...):

Response.Write totintot & ": " & typename(totitntot) & " "
Response.Write totu & ": " & typename(totu) & " "
Response.Write flgmax & ": " & typename(flgmax) & " "

on error resume next
Response.Write int(totu) & " "
if err<>0 then
response.write "totu could not be converted to int" & " "
end if
Response.Write int(totitntot) & " "
if err<>0 then
response.write "totitntot could not be converted to int" & " "
end if

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.

Dec 5 '05 #6

Bob Barrows [MVP]

It is possible. Different database providers may provide varying levels of
support for some methods/properties.
RecorCount will only work if the cursor you are using supports Bookmarks.
This will be true of all client-side cursors (adUseClient) and some
server-side cursors depending on provider support.
Kevin wrote:

One more question, please...

The sql commands are of course dependant of the database (sql with MS
access will have a different syntax than with Mysql), but the
vbscript written in ASP, is it independant of the db, no? I noticed
with the same application, but one with ms access, the other with
mysql and adapted sql syntax, differences in the return of variables
and in methods e.g. rs.RecordCount) Thanks
"Bob Barrows [MVP]" <re******@NOyahoo.SPAMcom> wrote in message
news:OG****************@tk2msftngp13.phx.gbl...
Kevin wrote:
Hi,

With this, i get the error:
" Microsoft VBScript runtime error '800a01ca'
Variable uses an Automation type not supported in VBScript "
at line 79

<%
totintot=request.cookies("totintot")
...
sql = "select count(*) as totuur from studres where dag>= curdate()
group by logon having logon='" & lol & "';"

This has nothing to do with your error but: this query is less
efficient than it could be. Change it to:

sql = "select count(*) as totuur from studres " & _
"where dag>= curdate() AND logon='" & lol & "';"

Since you're only interested in a specific logon, there is no need
to force the database to go to the extra time and expense to group
by logon and then filter by logon after the table has been grouped
and aggregated.

Set rs = objdc.execute(sql)
if rs.eof then
totu=0
else
rsArray = rs.GetRows()
totu = rsArray(0,0)

Again, probably nothing to do with your error, but this is overkill.
There is no need to waste CPU and memory by moving this single
record into an array. Simply do this:
totu=rs(0).value

totu=rs(0).value & ""
end if

In fact, this query should never return an empty recordset: you
should always get back a record containing 0 or higher in the first
field, so testing for eof is not really necessary (it IS a good
habit to get into, so consider this paragraph to be informational
only).

if int(totu) >=int(totintot) then flgmax=1 'this is line 79
rs.close
%>

With this : if totu>=int(totintot) then flgmax=1 => type mismatch

You need to figure out which variable it is talking about (I suspect
totu is the problem, but ...):

Response.Write totintot & ": " & typename(totitntot) & " "
Response.Write totu & ": " & typename(totu) & " "
Response.Write flgmax & ": " & typename(flgmax) & " "

on error resume next
Response.Write int(totu) & " "
if err<>0 then
response.write "totu could not be converted to int" & " "
end if
Response.Write int(totitntot) & " "
if err<>0 then
response.write "totitntot could not be converted to int" & " "
end if

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.

--
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.

Dec 5 '05 #7

Kevin

Thanks

"Bob Barrows [MVP]" <re******@NOyahoo.SPAMcom> wrote in message
news:%2********************@TK2MSFTNGP10.phx.gbl.. .

It is possible. Different database providers may provide varying levels of
support for some methods/properties.
RecorCount will only work if the cursor you are using supports Bookmarks.
This will be true of all client-side cursors (adUseClient) and some
server-side cursors depending on provider support.
Kevin wrote:
One more question, please...

The sql commands are of course dependant of the database (sql with MS
access will have a different syntax than with Mysql), but the
vbscript written in ASP, is it independant of the db, no? I noticed
with the same application, but one with ms access, the other with
mysql and adapted sql syntax, differences in the return of variables
and in methods e.g. rs.RecordCount) Thanks
"Bob Barrows [MVP]" <re******@NOyahoo.SPAMcom> wrote in message
news:OG****************@tk2msftngp13.phx.gbl...
Kevin wrote:
Hi,

With this, i get the error:
" Microsoft VBScript runtime error '800a01ca'
Variable uses an Automation type not supported in VBScript "
at line 79

<%
totintot=request.cookies("totintot")
...
sql = "select count(*) as totuur from studres where dag>= curdate()
group by logon having logon='" & lol & "';"

This has nothing to do with your error but: this query is less
efficient than it could be. Change it to:

sql = "select count(*) as totuur from studres " & _
"where dag>= curdate() AND logon='" & lol & "';"

Since you're only interested in a specific logon, there is no need
to force the database to go to the extra time and expense to group
by logon and then filter by logon after the table has been grouped
and aggregated.
Set rs = objdc.execute(sql)
if rs.eof then
totu=0
else
rsArray = rs.GetRows()
totu = rsArray(0,0)

Again, probably nothing to do with your error, but this is overkill.
There is no need to waste CPU and memory by moving this single
record into an array. Simply do this:
totu=rs(0).value

totu=rs(0).value & ""

end if

In fact, this query should never return an empty recordset: you
should always get back a record containing 0 or higher in the first
field, so testing for eof is not really necessary (it IS a good
habit to get into, so consider this paragraph to be informational
only).
if int(totu) >=int(totintot) then flgmax=1 'this is line 79
rs.close
%>

With this : if totu>=int(totintot) then flgmax=1 => type mismatch

You need to figure out which variable it is talking about (I suspect
totu is the problem, but ...):

Response.Write totintot & ": " & typename(totitntot) & " "
Response.Write totu & ": " & typename(totu) & " "
Response.Write flgmax & ": " & typename(flgmax) & " "

on error resume next
Response.Write int(totu) & " "
if err<>0 then
response.write "totu could not be converted to int" & " "
end if
Response.Write int(totitntot) & " "
if err<>0 then
response.write "totitntot could not be converted to int" & " "
end if

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.

--
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.

Dec 5 '05 #8

Similar topics

1772

strange error

by: WindAndWaves | last post by:

Hi Gurus The page below has a strange error. It seems to be working very well, just when you enter 8 or 9 for day, month or year then you get an error. I really have no idea where that is...

Javascript

2339

Microsoft Office 2003 Pro - Strange Error at runtime

by: sofakingfree | last post by:

This error is driving me nuts. The code below will run perfectly when it has a breakpoint. But as soon as I remove the breakpoint and run it normally outside of debug mode I get a strange error...

Microsoft Access / VBA

6946

strange error message : unable to find a register to spill in class `AREG'

by: Evangelista Sami | last post by:

hello i have this strange error message that i dont understand : _search.c: In function `_depth_search': _search.c:218: unable to find a register to spill in class `AREG' _search.c:218: this...

C / C++

2632

strange error/can ne one repoduce it?

by: Piedro | last post by:

Can someone reproduce the following error? I'm using the module at the bottom of my post to owner draw a menu items, I call the module from a form like this: Private Sub mnuOpen_DrawItem(ByVal...

Visual Basic .NET

2384

Strange error when trying to delete a row from MySQL via ODBC

by: Richard Marsden | last post by:

Here's another strange error I'm getting when using ODBC to access MySQL. This time ODBC is being more informative, although all the documentation I've looked at, claims that the function in...

MySQL Database

2568

perhaps a stack problem? Long calculations - strange error?

by: Martin Joergensen | last post by:

Hi, I've encountered a really, *really*, REALLY strange error :-) I have a for-loop and after 8 runs I get strange results...... I mean: A really strange result.... I'm calculating...

C / C++

2462

Strange Error

by: Mike C# | last post by:

Hi all, I keep getting a strange error and can't pin it down. The message is: This application has requested the Runtime to terminate it in an unusual way. Please contact the application's...

.NET Framework

375

Strange error

by: nonamehkg | last post by:

Hi, my web service has recently got some strange error, and even the most simplest(empty) web method would crash with the error below: System.IndexOutOfRangeException: Index was outside the...

.NET Framework

1888

strange error -- COM DLL is not installed correctly?

by: =?Utf-8?B?R2Vvcmdl?= | last post by:

Hello everyone, I am migrating my C++ COM server to managed code (C# COM server). I am using the same client to use the same COM class in COM server. The C++ version COM server works properly,...

C# / C Sharp

1681

Very strange error (About DATE)

by: muddasirmunir | last post by:

I am using vb6. Now , I am facing a very strange error. I think it might be due to some other problem rather coding not sure. Actually , i have put a datepicker in the form and at the load even...

Visual Basic 4 / 5 / 6

7144

Changing the language in Windows 10

by: Hystou | last post by:

Most computers default to English, but sometimes we require a different language, especially when relocating. Forgot to request a specific language before your computer shipped? No problem! You can...

Windows Server

7427

Maximizing Business Potential: The Nexus of Website Design and Digital Marketing

by: jinu1996 | last post by:

In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...

Online Marketing

7085

The easy way to turn off automatic updates for Windows 10/11

by: Hystou | last post by:

Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...

Windows Server

7512

Discussion: How does Zigbee compare with other wireless protocols in smart home applications?

by: tracyyun | last post by:

Dear forum friends, With the development of smart home technology, a variety of wireless communication protocols have appeared on the market, such as Zigbee, Z-Wave, Wi-Fi, Bluetooth, etc. Each...

General

5671

AI Job Threat for Devs

by: agi2029 | last post by:

Let's talk about the concept of autonomous AI software engineers and no-code agents. These AIs are designed to manage the entire lifecycle of a software development project—planning, coding, testing,...

Career Advice

3227

Trying to create a lan-to-lan vpn between two differents networks

by: TSSRALBI | last post by:

Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The...

Networking - Hardware / Configuration

3214

Windows Forms - .Net 8.0

by: adsilva | last post by:

A Windows Forms form does not have the event Unload, like VB6. What one acts like?

Visual Basic .NET

1577

transfer the data from one system to another through ip address

by: 6302768590 | last post by:

Hai team i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated ...

C# / C Sharp

785

How to add payments to a PHP MySQL app.

by: muto222 | last post by:

How can i add a mobile payment intergratation into php mysql website.

PHP