<%@ LANGUAGE = "VBSCRIPT" %>
<%
'Uncomment the code below if the Site is under repair or temporarily closed
'Response.Redirect("scs_maintenance.asp")
Dim szUserID, szUserName
Dim g_Db, l_bResult, l_vTestArray, i, I_SCSRecord
Dim szSQL, isAdmin
isAdmin = False
isSCSAdmin = False
szUserID = bfnGetUser()
'comment out for now
l_aDb = 1
'l_aDb = bfnDBStartup(szUserID)
if l_aDb(1)=1 then
isAdmin = True
end if
if l_aDb(1)=2 then
isSCSAdmin = True
end if
if l_aDb(1)=3 then
isSCSViewAll = True
end if
'comment out for now
'iEmp_id = l_aDb(2)
'comment out for now
'szDisplayName = l_aDb(3)
'comment out for now
'set g_Db = l_aDb(4)
'l_bResult = g_DB.bfnDBQuerySQL("use scs", l_logArray, False)
if l_bResult = False Then
bfnFatalErr("Unable to open SCS database.")
End if
szsql = "SELECT visited_date_time FROM A_log WHERE upper(page_visited) = '" & ucase(Request.ServerVariables("PATH_INFO")) & "' AND user_id = '" & szUserID & "' ORDER BY visited_date_time DESC"
'comment out for now
'l_bResult = g_DB.bfnDBQuerySQL(cstr(szSql), l_logArray, True)
'if l_bResult and isarray(l_logArray) then
' lastlogin = l_logArray(0,0)
'end if
szSql = "insert into A_log (user_id, user_name, page_visited) values ("
szSql = szSql & "'" & szUserID & "',"
szSql = szSql & "'" & szDisplayName & "',"
szSql = szSql & "'" & Request.ServerVariables("PATH_INFO") & "')"
'comment out for now
'l_bResult = g_DB.bfnDBQuerySQL(cstr(szSql), I_logRecord, False)
if l_bResult = True Then
end if
Set g_Db = Nothing
%>
NKKK Marine Survey/Inspection/Analysis
This page uses frames, but your browser doesn't support them.