<%
Dim SQL
Dim user
Dim pwd
Dim cmd
Dim objRs
Dim PrID
user = Trim(Request.Form("txtUserID"))
pwd = Trim(Request.Form("txtPassword"))
cmd = Trim(Request.Form("cmdLogin"))
PrID = "127661"
'Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'Response.Buffer = True
'Response.ExpiresAbsolute = Now
'Response.Expires = 0
' Response.CacheControl = "no-cache"
' Response.Write(Session("loginokay"))
'If Session("loginokay") = "" Then
' Response.Redirect("login.asp")
' End If
'End Sub
If Len(cmd) <> 0 Then
if user <> "" AND pwd <> "" AND PrID <> "" Then
if (UCASE(user) = "CUSTSERV" OR UCASE(user) = "HRM") AND (UCASE(pwd) = "HRM") then
Message=""
Session("UserID") = UCASE(user)
session("BMC_Prt_ID") = PrID
Session("loginokay") = True
Response.Redirect("http://www.blueplanetsolutions.com/current_link.asp?id=" & user)
Else
Message = "Wrong user name and password."
End If
Else
Message = "Please enter user name and password."
End if
End If
%>
