<%
'
%>
<%
main()
Sub main()
Dim RouteType, PageType, TorihikisakiCD, MailCD, Mode
RouteType = Request("RouteType")
PageType = Request("PageType")
TorihikisakiCD = Request("TorihikisakiCD")
MailCD = Request("MailCD")
Mode = Request("Mode")
%>
<% = HtmlHeader("") %>
<%
End Sub
%>