% ' ' %> <% main() Sub main() Dim Kaishibi Dim Syuryobi Kaishibi = Request("Kaishibi") Syuryobi = Request("Syuryobi") If Kaishibi = "" Then Kaishibi = GB_KaikeiKaishibi End If IF Syuryobi = "" Then Syuryobi = GB_KaikeiSyuryobi End If Dim RouteType RouteType = Request("RouteType") Dim Url Url = Request.ServerVariables("URL") Dim KurikoshiKubun KurikoshiKubun = Request("KurikoshiKubun") Dim Query Dim Content If Request("Default") = "1" Then Query = "exec SPK伝票集計取得 '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', -1, -1, 10" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then KurikoshiKubun = "1" End If End If %> <% = HtmlHeader("") %>
<% End Sub %>