%
'
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim PageType, RouteType, UserID
PageType = Request("PageType")
RouteType = Request("RouteType")
UserID = Request("UserID")
if UserID <> "" then
Session("UserID") = UserID
end if
Dim ShowDel
ShowDel = Request("ShowDel")
'Response.Write("UserID:" & UserID & "
")
'Response.Write("EnshuCD:" & EnshuCD & "
")
'Response.Write("GB_GakuseiNo:" & GB_GakuseiNo & "
")
'Response.Write("UserID:" & Session("UserID") & "
")
'Response.Write("PageType:" & PageType & "
")
'Response.Write("RouteType:" & RouteType & "
")
%>