<%
'
main()
Sub main()
If Not(SessionCheck()) Then
Exit Sub
End If
Dim Query
Dim Content
Dim EnshuCD
EnshuCD = Request("EnshuCD")
Dim KaisyaCD
KaisyaCD = Request("KaisyaCD")
Dim KaisyaName
Dim GazoFile
'GazoFile = "akubi_egg_7_32.gif"
Query = "exec SPM会社取得 '" & GB_SystemCD & "', '" & EnshuCD & "', '" & KaisyaCD & "'"
Set Content = OpenQuery(Query)
If Not(Content.BOF Or Content.EOF) Then
KaisyaName = "" & Content.Fields("会社名称")
If GB_Admin >= 1 Then
GazoFile = Content.Fields("トップ画像マスタ")
Else
GazoFile = Content.Fields("トップ画像")
End If
End If
Dim ErrMsg
ErrMsg = Request("ErrMsg")
If ErrMsg = "1" Then
ErrMsg = "登録されました"
ElseIf ErrMsg = "2" Then
ErrMsg = "削除されました"
Else
ErrMsg = ""
End If
Dim RouteType
RouteType = Request("RouteType")
'運用管理用フラグ
Dim HyojiFlg
HyojiFlg = Request("HyojiFlg")
Dim SortMode
SortMode = Request("SortMode")
Dim ShijoCD
ShijoCD = Request("ShijoCD")
%>
<% = HtmlHeader("") %>
"" Then %> onLoad="alert('<% = ErrMsg %> ');"<% End If %>>
<% = HtmlFooter %>
<%
End Sub
%>