<%
'
%>
<%
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim RouteType
RouteType = Request("RouteType")
%>
<% = AppTitle %>
<%
If InStr(RouteType, "ImgWnd") > 0 Then
Response.Write(HtmlDesign(6))
Else
Response.Write(HtmlDesign(1))
End If
Response.Write(HttpL1(3))
If InStr(RouteType, "ImgWnd") > 0 Then
Else
If InStr(RouteType, "1") > 0 Then
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "社長室・総務部", "tblbtn('/" & HomeAlias & "/user/bk/menu_s4.asp')", "画像加工", "", "", "", "", ""))
Else
Response.Write(HttpL2("会社選択" ,"tblbtn( '/" & HomeAlias & "/user/bk/')", GB_GyosyuMeisyo, "tblbtn( '/" & HomeAlias & "/user/bk/menu_" & GB_Gyosyu & ".asp')", "商品企画室", "tblbtn( '/" & HomeAlias & "/user/bk/menu_s5.asp')", "画像加工", "", "", "", "", ""))
End If
End If
Response.Write(HttpL3("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""))
If InStr(RouteType, "ImgWnd") > 0 Then
Response.Write(HttpL3_1("新規加工", "tblbtn('gazokako.asp?RouteType=" & RouteType & "')", "再加工", "tblbtn('gazokako.asp?FileName=" & Request("FileName") & "&RouteType=" & RouteType & "')", "ダウンロード" , "tblbtn('gazokako_download_bin.asp?FileName=" & Request("FileName") & "')", "", "", "", ""))
Else
Response.Write(HttpL3_1("ダウンロード" , "tblbtn('gazokako_download_bin.asp?FileName=" & Request("FileName") & "')", "更新", "tblbtn('gazokako_view.asp?FileName=" & Request("FileName") & "&RouteType=" & RouteType & "')", "", "", "", "", "", ""))
Response.Write(HttpL3_2("新規加工", "tblbtn('gazokako.asp?RouteType=" & RouteType & "')", "再加工", "tblbtn('gazokako.asp?FileName=" & Request("FileName") & "&RouteType=" & RouteType & "')", "", "", "", "", "", ""))
End If
Response.Write(HttpL4("画像加工", ""))
Response.Write(HttpL5("更新されない場合は、更新ボタンをクリックしてください"))
%>
<% = HtmlFooter %>
<%
End Sub
%>