% ' %> <% main() Sub main() If Not(SessionCheck()) Then Exit Sub End If '会社セッション初期化(演習状況記帳チェック後の対処) KaisyaCD = "" GB_KaisyaCD = "" KaisyaMeisyo = "" GB_KaisyaMeisyo = "" KaisyaRyakuMeisyo = "" GB_KaisyaRyakuMeisyo = "" Session(HomeAlias & "KaisyaCD") = "" Session(HomeAlias & "Gyosyu") = "" Session(HomeAlias & "GyosyuMeisyo") = "" Session(HomeAlias & "KaisyaMeisyo") = "" Session(HomeAlias & "KaisyaRyakuMeisyo") = "" Session(HomeAlias & "JisyaFlag") = "" Session(HomeAlias & "ShijyoCD") = "" Dim ErrMSG ErrMSG = Request("ErrMSG") Dim RouteType RouteType = Request("RouteType") Dim Target Target = Request("Target") Dim SelectTarget SelectTarget = Request("SelectTarget") If SelectTarget = "all" Then SelectTarget = "" End If Dim bExistBackUpPath bExistBackUpPath = 1 Set fso = CreateObject("Scripting.FileSystemObject") BackUpPath = GetBackupPath() EnshuFolder = Target FilePath = BackUpPath If Not(fso.FolderExists(FilePath)) Then bExistBackUpPath = 0 End If Dim DataCnt 'チャックボックスが単一か配列かで処理を変えるため DataCnt = 0 %>