«

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.

amatuer wrote:
> 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?

--
Mike Brind

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" <> wrote in message
news: oups.com...
> 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.
>

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

Aaron Bertrand [SQL Server MVP] wrote:
> 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" <> wrote in message
> news: oups.com...
> > 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.
> >

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

--
Mike Brind

amatuer wrote:
> <% 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.
>
> Aaron Bertrand [SQL Server MVP] wrote:
> > 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" <> wrote in message
> > news: oups.com...
> > > 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.
> > >

Thanx Mike.


Mike Brind wrote:
> <% 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
>
> --
> Mike Brind
>
> amatuer wrote:
> > <% 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.
> >
> > Aaron Bertrand [SQL Server MVP] wrote:
> > > 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" <> wrote in message
> > > news: oups.com...
> > > > 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.
> > > >

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" <> wrote in message
news: oups.com...
> <% 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 sortd the prob. Thanx Aaron

Aaron Bertrand [SQL Server MVP] wrote:
> 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" <> wrote in message
> news: oups.com...
> > <% 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.