<%
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim MousikomiNum
MousikomiNum = Request("MousikomiNum")
Dim Url
Url = Request.ServerVariables("URL")
Dim Syubetsu
Syubetsu = Request("Syubetsu")
%>
<% = HtmlHeader("") %>
<%
End Sub
%>