Welcome to LeanCor On-line
Delivering Supply Chain Excellence through Pipeline Visibility
<%
Dim bytErr ' Error number as read from query string "err"
Dim strMessage ' Message that should be displayed to user explaining the problem
strErr = request.queryString("err")
' Check if there's any error message to display (using the "err" query string).
If strErr <> Empty Then
Select Case strErr
Case "1"
strMessage = "Login failed: Check your
User ID and/or password"
Case "2"
strMessage = "This user is not
authorized to log in"
Case "3"
strMessage = "Your session has expired.
Please log in again."
Case "4"
strMessage = "No companies to work
with were found"
Case Else
strMessage = "Error [" & strErr & "] not found"
End Select
Response.Write "
| "
Response.Write strMessage
Response.Write " |
"
End If
%>
LeanCor Home
<%
Response.Write("
")
if blnCenter then
Response.Write(" |
