
<!-- #include file="../../../include.asp" -->

<%
'<!--
'################################################
'	名称	：仕入売上書類（HTML出力用）
'	作成日	：2012/02/03
'	作成者	：小野 美樹夫
'	概要	：ShiireUriageSyoruiは標準出力のみなので
'			：fd_syorui_output_sub.aspで出力したものを
'			：XMLHTTPオブジェクトで取得しファイルに保存する。
'################################################
'-->
'
'	何故か
'
%>

<%
main()

Sub main()

	'HTML標準出力をファイルに取得
	Dim objHttp
	On Error Resume Next
		Set objHttp = Server.CreateObject("MSXML2.XMLHTTP")
		If (Err.Number <> 0) Then
			Set objHttp = Server.CreateObject("MSXML.XMLHTTPRequest")
		End If
	On Error GoTo 0
	If objHttp Is Nothing Then
		Response.Write("XMLHTTP オブジェクトを作成できませんでした")
		Exit Sub
	End If
	Dim SrcURL
	'SrcURL = "http://" & Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("SERVER_PORT") & Replace(Request.ServerVariables("URL"), ".asp", "_sub.asp") & "?" & Request.ServerVariables("QUERY_STRING")
	SrcURL = "http://" & Request.ServerVariables("SERVER_NAME") & ":" & Request.ServerVariables("SERVER_PORT") & Replace(Request.ServerVariables("URL"), ".asp", "_sub.asp") & "?" & Request.ServerVariables("QUERY_STRING")
Response.Write(SrcURL)
Exit Sub
	objHttp.Open "GET", SrcURL, False
	objHttp.setRequestHeader "If-Modified-Since", "Thu, 01 Jun 1970 00:00:00 GMT" 'キャッシュ抑制
	objHttp.Send
	If objHttp.Status >= 200 And objHttp.Status < 300 Then
		Dim TmpHTML
		TmpHTML = objHttp.responseText
		'Response.Write(TmpHTML)
		Set objHttp = Nothing
		Exit Sub
	Else
		Response.Write("HTML文書データ取得に失敗しました" & vbCrLf & vbCrLf & objHttp.Status)
		Exit Sub
	End If

End Sub
%>