error

[amatuer]

Microsoft VBScript runtime error '800a01ca'
Variable uses an Automation type not supported in VBScript

/verslag/Present_Rpt_Gen.asp, line 66


any1 knw wat this means?

Urgent!Please.

 

[Mike Brind]

Microsoft VBScript runtime error '800a01ca'
Variable uses an Automation type not supported in VBScript

/verslag/Present_Rpt_Gen.asp, line 66


any1 knw wat this means?
http://www.aspfaq.com/show.asp?id=2374


Urgent!Please.

Really?

 

[Aaron Bertrand [SQL Server MVP]]

Yes, you are using an automation type not supported by VBScript. Sorry,
can't get more specific than that, because you didn't show us the code on or
around line 66.

What are you trying to do, launch Excel on the client from ASP?

 

[amatuer]

<% If isnull(rstMain("Gehooraantal")) then%>
<%tot = tot%>
<% Else %>
<% tot = tot + (int(rstMain("Gehooraantal"))) %>
<%End If%>
<% rstMain.movenext
wend%>

there's the code. line66 is under the else statement.

 

[Mike Brind]

<% tot = tot + clng(rstMain("Gehooraantal")) %>

Get rid of the <% %> around EVERY line. Put <% at the beginning, and
%> at the end of the block. Also, While... Wend has been deprecated.
Use Do... Loop:

Do Whiile Not rstMain.EOF
....
....
rstMain.Movenext
Loop

 

[amatuer]

Thanx Mike.

<% tot = tot + clng(rstMain("Gehooraantal")) %>

Get rid of the <% %> around EVERY line. Put <% at the beginning, and
%> at the end of the block. Also, While... Wend has been deprecated.
Use Do... Loop:

Do Whiile Not rstMain.EOF
...
...
rstMain.Movenext
Loop

 

[Aaron Bertrand [SQL Server MVP]]

Well, I see nothing in this code that would cause the error you mentioned.
So, line 66 must be elsewhere. Can you show all the individual lines with
CreateObject in them?

 

[amatuer]

Mike sortd the prob. Thanx Aaron

Well, I see nothing in this code that would cause the error you mentioned.
So, line 66 must be elsewhere. Can you show all the individual lines with
CreateObject in them?