<%
'
'
'
%>
<%
Dim WK_Zandaka_KanjyoCD()
Dim WK_Zandaka_KanjyoName()
Dim WK_Zandaka_KariKingaku()
Dim WK_Zandaka_KashiKingaku()
Dim WK_Zandaka_KanjyoKubun()
Dim WK_Zandaka_TaisyakuKubun()
Dim WK_Zandaka_SyukeiCD()
Dim ShowCount
Dim MaxCount
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Query, Content
Dim tmp
Dim Kaishibi
Dim Syuryobi
Dim TanaorosiFlg, HiNikubun, HiNikubunFlg
Dim TanaorosiKubun
Dim PageType
PageType = "‘¹‰vŒvŽZ‘"
Dim bExistSyuseiKinyu
bExistSyuseiKinyu = 0
Query = "exec SPK“`•[WŒvŽæ“¾ '" & GB_SystemCD & "','" & EnshuCD & "', '" & KaisyaCD & "', '', -1, -1, 9"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
bExistSyuseiKinyu = 1
End If
Kaishibi = Request("Kaishibi")
Syuryobi = Request("Syuryobi")
TanaorosiKubun = Request("TanaorosiKubun")
HiNikubun = Request("HiNikubun")
If Kaishibi = "" Then
Kaishibi = GB_KaikeiKaishibi
End If
IF Syuryobi = "" Then
Syuryobi = GB_KaikeiSyuryobi
End If
If HiNikubun = "1" Then 'ƒ`ƒFƒbƒN‚ ‚è
HiNikubunFlg = "checked"
Else
HiNikubunFlg = ""
End If
Dim RouteType
RouteType = Request("RouteType")
%>
<% = HtmlHeader("sj3tyoboblack") %>
<% = HtmlFooter %>
<%
End Sub
%>