<%
'
'
%>
<%
main()
Sub main()
Dim Torihikibi
Torihikibi = Request("Torihikibi")
Dim Torihikibi2
Torihikibi2 = Request("Torihikibi2")
Dim Mode
Mode = Request("Mode")
Dim RouteType
RouteType = Request("RouteType")
Dim Url
Url = Request.ServerVariables("URL")
%>
<% = HtmlHeader("") %>
<%
End Sub
%>