SQLDMO.BulkCopy

Hi all I am trying to do a Bulk Copy from a "tab delmimited" text file to a
table in my database. I have it almost working except when the file has
too few columns for the table (table has 421 columns).

Some of my the files will have 419 columns some others files will have 421
columns.

When my bulk insert script encounters a file with 419 colums it will put
some of the data from the next line in the last 2 columns.


I tried creating a DTS package with a bulk insert and I get the same out
come.


Here is my test script can anyone help
'--------------------------------------------------------------

<%
Dim objServer: Set objServer = Server.CreateObject("SQLDMO.SQLServer")
Dim objBCP: Set objBCP = Server.CreateObject("SQLDMO.BulkCopy")
Dim objDB: Set objDB = Server.CreateObject("SQLDMO.Database")

dim BulkCopy
dim objTable
dim item
dim g_strUploadPath: g_strUploadPath =Server.MapPath("../DOC2/")&"upload"

dim strFileName: strFileName = g_strUploadPath & "ex_test.txt"

'if file doesn't exist and it's an import,
'don't waste time (too be add later)
'If Import = True And Dir(FileName) = "" Then Exit Function

'On Error GoTo ErrorHandler
objServer.Connect "XXX.XXX.XX.XX", "XXX", "XX"
objServer.EnableBcp = 1

Set objDB = objServer.Databases("Advia120v2_dev")
With objBCP
.DataFilePath = strFileName

.UseBulkCopyOption = True

'tab delmitted, carriage return line feed ends row
.DataFileType = 2
'.ColumnDelimiter = chr(9)
'.RowDelimiter = chr(13) & chr(10)
.IncludeIdentityValues = False
End With


objDB.Tables("Hemo_193_39552_39").ImportData objBCP


'BCP = True

'ErrorHandler:
'Set objBCP = Nothing
'Set objServer = Nothing
%>


'--------------------------------------------------------------


thanks