Dim OBJdbConnection
Set OBJdbConnection = CreateObject("ADODB.Connection")
Set RS = CreateObject ("ADODB.Recordset")
Set SQLStmt = CreateObject("ADODB.Command")
OBJdbConnection.ConnectionString = "dsn=ScheduleDSN;uid=sa;pwd=;DATABASE=Schedule;APP=ASP Script"
OBJdbConnection.Open
set rs=createobject("adodb.recordset")
RS.open "cds_Cat",OBJdbConnection,3,3
Set fs = CreateObject("Scripting.FileSystemObject")
filename="\My Documents\project.txt"
Set readfile=fs.OpenTextFile(filename,1,False)
Do while not readfile.atendofstream
on error resume next
Text=readfile.readline
CAT = split(Text, " ", 2)
rs.addnew
rs("CatID")=CAT(0)
rs("AtrID")=CAT(1)
rs.update
count=count+1
loop
readfile.close
set readfile=nothing
set fs=nothing
rs.close
set rs=nothing
conn.close
set conn=nothing
Load balance : Server 00
