Connecting Tech Pros Worldwide Help | Site Map

ActiveX VBScript problem

Pippen
Guest
 
Posts: n/a
#1: Jul 20 '05
Below is a code snippet that is throwing the following error:

Error Source: Microsoft DTS Package

Error Description: Error Code: 0
Error Source= Microsoft VBScript runtime error
Error Description: Object required: 'Server'

Error on line 13

In my code line 13 is the following:
Set Cnxn = Server.CreateObject("ADODB.connection")

I did set up a Microsoft OLE DB connection in my DTS package for this
ActiveX Task. I'm new to VBScript and ActiveX. Any help would be
appreciated.

Thanks,

-p

'************************************************* *********************
' Visual Basic ActiveX Script
'************************************************* ***********************

Function Main()
Main = DTSTaskExecResult_Success

' connection, command and recordset variables
Dim Cnxn, strCnxn

' create and open connection
Set Cnxn = Server.CreateObject("ADODB.connection")
strCnxn = "data source=Pluto;initial catalog=Stats;User Id=sa;password=;"
Cnxn.Open strCnxn

End Function



Dan Guzman
Guest
 
Posts: n/a
#2: Jul 20 '05

re: ActiveX VBScript problem


The Server object is only available when running scripts under IIS. You
don't need it when running scripts via DTS or stand-alone. Try:

Set Cnxn = CreateObject("ADODB.Connection")

--
Hope this helps.

Dan Guzman
SQL Server MVP

"Pippen" <123@hotmail.com> wrote in message
news:ESCWc.223077$eM2.87297@attbi_s51...[color=blue]
> Below is a code snippet that is throwing the following error:
>
> Error Source: Microsoft DTS Package
>
> Error Description: Error Code: 0
> Error Source= Microsoft VBScript runtime error
> Error Description: Object required: 'Server'
>
> Error on line 13
>
> In my code line 13 is the following:
> Set Cnxn = Server.CreateObject("ADODB.connection")
>
> I did set up a Microsoft OLE DB connection in my DTS package for this
> ActiveX Task. I'm new to VBScript and ActiveX. Any help would be
> appreciated.
>
> Thanks,
>
> -p
>
> '************************************************* *********************
> ' Visual Basic ActiveX Script
> '************************************************* ***********************
>
> Function Main()
> Main = DTSTaskExecResult_Success
>
> ' connection, command and recordset variables
> Dim Cnxn, strCnxn
>
> ' create and open connection
> Set Cnxn = Server.CreateObject("ADODB.connection")
> strCnxn = "data source=Pluto;initial catalog=Stats;User Id=sa;password=;"
> Cnxn.Open strCnxn
>
> End Function
>
>
>[/color]


Pippen
Guest
 
Posts: n/a
#3: Jul 20 '05

re: ActiveX VBScript problem



"Dan Guzman" <guzmanda@nospam-online.sbcglobal.net> wrote in message
news:NNGWc.4935$N04.1043@newssvr23.news.prodigy.co m...[color=blue]
> The Server object is only available when running scripts under IIS. You
> don't need it when running scripts via DTS or stand-alone. Try:
>
> Set Cnxn = CreateObject("ADODB.Connection")
>
> --
> Hope this helps.
>
> Dan Guzman
> SQL Server MVP
>
> "Pippen" <123@hotmail.com> wrote in message
> news:ESCWc.223077$eM2.87297@attbi_s51...[color=green]
> > Below is a code snippet that is throwing the following error:
> >
> > Error Source: Microsoft DTS Package
> >
> > Error Description: Error Code: 0
> > Error Source= Microsoft VBScript runtime error
> > Error Description: Object required: 'Server'
> >
> > Error on line 13
> >
> > In my code line 13 is the following:
> > Set Cnxn = Server.CreateObject("ADODB.connection")
> >
> > I did set up a Microsoft OLE DB connection in my DTS package for this
> > ActiveX Task. I'm new to VBScript and ActiveX. Any help would be
> > appreciated.
> >
> > Thanks,
> >
> > -p
> >
> > '************************************************* *********************
> > ' Visual Basic ActiveX Script
> >[/color][/color]
'************************************************* ***********************[color=blue][color=green]
> >
> > Function Main()
> > Main = DTSTaskExecResult_Success
> >
> > ' connection, command and recordset variables
> > Dim Cnxn, strCnxn
> >
> > ' create and open connection
> > Set Cnxn = Server.CreateObject("ADODB.connection")
> > strCnxn = "data source=Pluto;initial catalog=Stats;User[/color][/color]
Id=sa;password=;"[color=blue][color=green]
> > Cnxn.Open strCnxn
> >
> > End Function
> >
> >
> >[/color]
>
>[/color]

That fixed it! Thanks for your help.

-p


Closed Thread