<%@ Language=VBScript %>
<%Option Explicit%>
<%
'*******************************************************************
' Module : Index
'
' Description : to validate user login
'
' Copyright : Easypack Softwares (India) Pvt Ltd
'
' Date : 23/12/2002
'
' Revision :
'
'*******************************************************************
%>
<%
Dim objUserInfo
Dim FullName, rsUserDetails, LoginName, LoginPWD,LoginFlag
'Response.Buffer = True
LoginFlag=True
If Request("UserName") <> "" Then
'On error resume next
LoginName = trim(Request("UserName"))
LoginPWD = trim(Request("Password"))
Set objUserInfo = server.CreateObject("SandAnalysis.User")
Set rsUserDetails = objUserInfo.VerifyUser(LoginName,LoginPWD)
Set objUserInfo = Nothing
If rsUserDetails.EOF Or rsUserdetails.BOF Then
LoginFlag= False
Else
'Login was successful. Pass back the FullName to display in the title bar
'************************ Modification sushma ############################
Session("UserID") = rsUserDetails("UserId")
Session("UserName") = rsUserDetails("UserName")
Session("UserType") = rsUserDetails("UserType")
Session("UserPrevileges") = rsUserDetails("UserPrevileges")
'************************ Modification sushma ############################
Response.Redirect "Overview.asp"
End If
End if
%>
Mineral Pulverising