<%
If Session("Loggedinas") <> "" Then
Session("Loggedinas") = ""
End If
%>
<%
Dim mode,enter,module
mode = Request("mode")
module = Request("module")
If mode = "Check" Then
%>
<%
strQuery = "Select * from Userslist where Username = '" & Request("user") & "' and Password = '" & Request("pass") & "'"
rst.Open strQuery,conn
If rst.EOF Then
Response.Redirect("?mode=Invalid")
Else
Session("Loggedinas") = rst.Fields("DisplayName")
Session("FolderName") = rst.Fields("NameofFolder")
Session("Status") = rst.Fields("Status")
Session.Timeout = 10
If rst.Fields("Status") = 2 Then
Response.Redirect("test.asp")
Else
If module = "search" Then
Response.Redirect("search.asp")
Else
Response.Redirect("mupload.asp")
End If
End If
End If
set rst = nothing
set conn = nothing
Else If mode = "Invalid" Then
enter = "Invalid Username OR Password"
Else If mode = "Logout" Then
Session.Abandon
Response.Redirect("index.asp")
Else
enter = ""
End If
End If
End If
%>
