<% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If Dim Query Dim Content Dim EnshuCD Dim EnshuName EnshuCD = Request("EnshuCD") Dim UserID UserID = Request("UserID") Dim CopyMoto CopyMoto = Request("CopyMoto") %> <% = AppTitle %>

  ただいま処理中です。しばらくお待ちください。
  この処理には数十秒〜数分程度の時間を要することがあります。 <% End Sub %>