I am running the activeX script below in a SQL 2000 DTS package to delete some files in a db called opms through a stored procedure.
Although the connectiontimeout is set it gets me a timeout after ca. 60secs
and stating the line oConn.Execute sSQL
timed out. Is there something I missed out?

Thanks for your help

mipo


Function Main()

Dim oFS ' filesystem object
Dim oFile ' File object
Dim strNextLine ' text line from file
Dim TableToBeCleaned
Dim KeepMonthsInDatabase
Dim BackUpPath
Dim sSQL ' SQL string
Dim GetPara
Dim sConn ' ADO Connection string
Dim oConn ' connection object
Set oConn = CreateObject("ADODB.Connection")
Set oFS = CreateObject("Scripting.FileSystemObject")
Const ForReading = 1
sConn = "Provider=SQLOLEDB.1;Persist Security Info=True;"
sConn = sConn & "Password=smpo;"
sConn = sConn & "User ID=opms;"
sConn = sConn & "Initial Catalog=opms;"
sConn = sConn & "Data Source=Win2000"
oConn.ConnectionTimeout =180
oConn.Open sConn
set oFile = oFS.OpenTextFile("C:\winnt\opms.ini", ForReading)
strNextLine = ""
Do until oFile.AtEndOfStream
strNextLine = ofile.Readline
If Left(strNextLine, 16) ="TableToBeCleaned" THEN
Temp=split(strNextLine,"=")
GetPara = split(Temp (1),",")
DBCleanerBackUpPath = "D:\MSSQL2000\BackUpFlatFiles"

sSQL = "EXEC p_DBCleanerDeleteRecords "
sSQL = sSQL & GetPara (0) & ", "
sSQL = sSQL & GetPara (1) & ", "
sSQL = sSQL & "'" & DBCleanerBackUpPath & "'"
oConn.Execute sSQL
End If
Loop
' Clean up objects
Set oConn = Nothing
Set oFile = Nothing
Set oFS = Nothing
Main = DTSTaskExecResult_Success
End Function