<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim PrintData
Dim Update
Update = Request("Update")
If Update = "2" Then
PrintData = Request("PrintData")
End If
%>
<% = HtmlHeader("") %>
<% If Update = "1" Then '印刷データをsubmitする処理(EdgeでinnerHTMLの印刷出力がおかしくなるのでASPで直接出力する) ※原因が判明し直ったのでこの処理は使われてません %>
<% Else %>
<% = ScriptXObject() %>
<% If "" & PrintData <> "" Then %>
<% = PrintData %>
<% Else %>