ActiveX VBScript problem

[Pippen]

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.CreateOb ject("ADODB.con nection")

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 = DTSTaskExecResu lt_Success

' connection, command and recordset variables
Dim Cnxn, strCnxn

' create and open connection
Set Cnxn = Server.CreateOb ject("ADODB.con nection")
strCnxn = "data source=Pluto;in itial catalog=Stats;U ser Id=sa;password= ;"
Cnxn.Open strCnxn

End Function

[Dan Guzman]

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("A DODB.Connection ")

--
Hope this helps.

Dan Guzman
SQL Server MVP

"Pippen" <12*@hotmail.co m> wrote in message
news:ESCWc.2230 77$eM2.87297@at tbi_s51...

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.CreateOb ject("ADODB.con nection")

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 = DTSTaskExecResu lt_Success

' connection, command and recordset variables
Dim Cnxn, strCnxn

' create and open connection
Set Cnxn = Server.CreateOb ject("ADODB.con nection")
strCnxn = "data source=Pluto;in itial catalog=Stats;U ser Id=sa;password= ;"
Cnxn.Open strCnxn

End Function

[Pippen]

"Dan Guzman" <gu******@nospa m-online.sbcgloba l.net> wrote in message
news:NN******** *********@newss vr23.news.prodi gy.com...

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("A DODB.Connection ")

--
Hope this helps.

Dan Guzman
SQL Server MVP

"Pippen" <12*@hotmail.co m> wrote in message
news:ESCWc.2230 77$eM2.87297@at tbi_s51...

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.CreateOb ject("ADODB.con nection")

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 = DTSTaskExecResu lt_Success

' connection, command and recordset variables
Dim Cnxn, strCnxn

' create and open connection
Set Cnxn = Server.CreateOb ject("ADODB.con nection")
strCnxn = "data source=Pluto;in itial catalog=Stats;U ser Id=sa;password= ;" Cnxn.Open strCnxn

End Function

That fixed it! Thanks for your help.

-p