I have a VB script that works in WinXP sp1 but not in WinXp sp2

mahsina

hello all,

I have the following script that does not work in windows XP SP2

//Script

sub UpLoad (UploadFileName)

dim b1

b1=&H4000000

set objStream =CreateObject("ADODB.Stream")

set objRecord =CreateObject("ADODB.Record")

set cnn =CreateObject("ADODB.Connection")

cnn.Open "provider=MSDAIPP.DSO;data source= http://192.168.0.100"

objRecord.Open UploadFileName,cnn, 3,b1

objStream.Type = 1 'adTypeBinary

objStream.Open objRecord,3,4 /////// Error line //////

objStream.LoadFromFile "c:\"+UploadFileName

objStream.Flush

objStream.Close

objRecord.Close

Set objStream = Nothing

Set objRecord = Nothing

cnn.close

set cnn = nothing

end sub

Error Message is "No such interface supported"

Any idea whoud be appreciated highly

Kent Waldrop 2007 Mar


Would this post be served better at a different forum

mahsina

Hi admin,

this post is not in a good forum so please delete it for me.

thanks, mahsina