<%@ Language=VBScript %>
<% Option Explicit %>
<%
Dim IMCA_HIDARI
Dim IMCA_MIGI
Const PATH = "\\imca-srv03/WEB_DATA/IMCA_COM/Status.ini"
Const edit_sts = "EDIT=ON"
Dim fs
Dim ts
Dim read_data
Dim pos_rtn
Dim fl
Dim lb_edit_flg
lb_edit_flg = False
Set fs = CreateObject("Scripting.FilesystemObject")
if fs.FileExists(PATH) = False then
lb_edit_flg = False
else
Set fl = fs.GetFile(PATH)
if fl.Size > 0 then
Set ts = fs.OpenTextFile(PATH,1,False)
read_data = ts.ReadAll()
ts.Close
pos_rtn = InStr(read_data,edit_sts)
if pos_rtn > 0 then
lb_edit_flg = True
else
lb_edit_flg = False
end if
else
lb_edit_flg = False
end if
end if
if lb_edit_flg = False then
IMCA_HIDARI=Request.QueryString("IMCA_HIDARI")
If IsNull(IMCA_HIDARI)=True Or Len(IMCA_HIDARI)= 0 Then
IMCA_HIDARI="side_top.asp"
End if
IMCA_MIGI=replace(Request.QueryString("IMCA_MIGI"), "|", "&")
If IsNull(IMCA_MIGI)=True Or Len(IMCA_MIGI)= 0 Then
'2006/04/26大堀修正・プロトタイプのトップページへリダイレクト
'IMCA_MIGI="./index.asp"
End If
If Request.QueryString("IMCA_MIGI") = "kw" Then
IMCA_MIGI="k_search2/c_syousai.asp?prmKigyoNo=004365"
End If
Session("usid")=Request.Cookies("USID")
Session("pass")=Request.Cookies("PASS")
Session("ssid")=Request.Cookies("SSID")
Response.Cookies("USID")=""
Response.Cookies("PASS")=""
Session("ssid")=""
%>
イムカ株式会社 転職マイページ
<%
else
%>
求人情報 / 転職相談 / エンジニア転職 | CareerCafe'
ただいまメンテナンス中です。
ご迷惑おかけいたします、しばらくお待ちください。
<%
End if
%>