<%
'
'
'
%>
<%
main()
Sub main()
Dim NextUrl
NextUrl = "default_bin.asp?" & Request.ServerVariables("QUERY_STRING")
If GB_IEmode <> "1" Or "" & Session("ct21_to_ca21") = "1" Then
' Session("ct21_to_ca21") = ""
Response.Redirect(NextUrl)
Exit Sub
Else
Session("ct21_to_ca21") = "1"
End If
Dim Query
Dim Content
Dim xStart
xStart = 344 'ドアスライドのスタート座標
%>
<% = HtmlHeader("") %>
<%
End Sub
%>
