<% 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 %>
<% = PrintData %>
<% End If %> <% End If %> <% End Sub %>