%
'
%>
<%
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
%>