<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim PrintData
Dim Update
Update = Request("Update")
If Update = "2" Then
' Query = " DELETE FROM YTMP_TTM名刺印刷テンポラリ WHERE システムCD = '" & GB_SystemCD & "' AND 演習CD = '" & EnshuCD & "' AND 会社CD = '" & KaisyaCD & "' AND 学生番号 = '" & GakuseiNo & "'"
' Set Content = OpenQuery(Query)
PrintData = Request("PrintData")
End If
%>
<% = HtmlHeader("") %>
<% If Update = "1" Then '印刷データをテンポラリに保存する処理(EdgeでinnerHTMLの印刷出力がおかしくなるので一時保存する) %>
<% Else %>
<% = ScriptXObject() %>
<% If "" & PrintData <> "" Then %>
<% = PrintData %>
<% Else %>