<%
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim KaisyaCD
KaisyaCD = Request("KaisyaCD")
Dim ShijoCD
ShijoCD = Request("ShijoCD")
Dim HyojiFlg
HyojiFlg = Request("HyojiFlg")
Dim SortMode
SortMode = Request("SortMode")
%>
<% = HtmlHeader("") %>
<%
End Sub
%>