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
Would this post be served better at a different forum?|||
Hi admin,
this post is not in a good forum so please delete it for me.
thanks, mahsina
No comments:
Post a Comment