<%
' **********************************************************
' ダウンロード
' **********************************************************
Function GetData( )

	Dim Http,Stream
	Dim Target,TargetFile

	' リモート Web 上のターゲットアドレス
	Target = MyData("In1Target")
	' ローカル Web 上のターゲットアドレス
	TargetFile = "file/" & Mid( Target, InstrRev(Target,"/")+1 )

	' ダウンロード用のオブジェクト
	Set Http = Server.CreateObject( "MSXML2.XMLHTTP" )
	on error resume next
	Call Http.Open("GET", Target, FALSE )
	if Err.Number <> 0 then
		Call OutCr( "<PRE>" )
		Call OutCr( "アドレス:" & Target )
		Call OutCr( Err.Description )
		Call OutCr( "</PRE>" )
		Set Fs = Stream
		Set Http = Nothing
		Exit Function
	end if
	on error goto 0
	Call Http.Send()

	' ファイル化用のオブジェクト
	Set Stream = Server.CreateObject("ADODB.Stream")
	Call Stream.Open()
	Stream.Type = adTypeBinary
	Call Stream.Write( Http.responseBody )
	Call Stream.SaveToFile( _
		Server.MapPath(TargetFile), _
		adSaveCreateOverWrite _
	)
	Call Stream.Close()

	Set Stream = Nothing
	Set Http = Nothing

	OutData = "<IMG src=""" & TargetFile & """>"

End Function

' **********************************************************
' VIEW の編集
' **********************************************************
Function EditDataHead( )


End Function

' **********************************************************
' VIEW2 の編集
' **********************************************************
Function EditDataBody( )


End Function

%>