i have been working on it.... but something is missing.....

Code:

Function PutFile($lFile,$sfile,optional $user,optional $pass)

	DIM $xmlhttp

	DIM $objStream



	$xmlhttp   = CreateObject("Microsoft.XMLHTTP")

	$objStream = CreateObject("ADODB.Stream")

	$objStream.Type = 1 ; adTypeBinary

	$objStream.Open

	$objStream.LoadFromFile($lFile)

	? $sfile

	If $User

		$xmlhttp.Open("PUT",$sfile, not 1, $user, $Pass)

	Else

		$xmlhttp.Open("PUT",$sfile, not 1)

	EndIf



	$xmlhttp.Send($objStream.Read)

	? @ERROR "	" @SERROR

EndFunction

the $xmlhttp.Send($objStream.Read) pauses like it is sending data.... but then it returns a error....

Quote:


-2147352567 COM exception error "Send" ((null) - (null)) [-2147352567/80020009]
[/qoute]

Edited by Bryce (2004-08-13 10:28 PM)