<%
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim PageType
PageType = Request("PageType")
Dim SyohinCD
SyohinCD = Request("SyohinCD")
Dim SyohinKubun
SyohinKubun = Request("SyohinKubun")
Dim Mode
Mode = Request("Mode")
Dim Kubun
Kubun = Request("Kubun")
Dim ShijoCD
ShijoCD = Request("ShijoCD")
%>
<% = HtmlHeader("") %>
<%
End Sub
%>