<%
if request.QueryString("logout")="true" then
Session.Abandon
response.Redirect("index.asp")
end if
%>
<%
'response.Redirect("http://amatos.thisolution.pt/portal")
Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Provider="Microsoft.Jet.OLEDB.4.0"
Conn.Provider="Microsoft.ACE.OleDb.12.0"
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open Server.MapPath("\DATABASE\PURUSCARE.mdb")
Function login()
Dim sSql
Dim Conn
Dim rs
'Set Conn = Server.CreateObject("ADODB.Connection")
'Set rs = Server.CreateObject("ADODB.Recordset")
'Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("\DATABASE\PURUSCARE.mdb")&"; Jet OLEDB:System Database=system.mdw;"
Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.Provider="Microsoft.Jet.OLEDB.4.0"
Conn.Provider="Microsoft.ACE.OleDb.12.0"
Set rs = Server.CreateObject("ADODB.Recordset")
Conn.Open Server.MapPath("\DATABASE\PURUSCARE.mdb")
'Set reg = Conn.Execute("SELECT * FROM DADOS ORDER BY matricula ASC, datainicio DESC")
sSql = "SELECT * FROM USERS WHERE USERNAME = '"&Request.Form("user")&"' AND PASSWORD = '"&Request.Form("pass")&"' AND ACT='1'"
Set rs = Conn.Execute(sSql)
If rs.EOF Then
Response.Write("username ou password incorretos
")
Else
Session("SESSION") = "gasessionok"
Session.Timeout = 180
Session("USER") = rs("USERNAME")
Session("NAME") = rs("NAME")
Session("EMAIL") = rs("EMAIL")
Session("DEPARTMENT") = rs("DEPARTAMENTO")
Session("FUNCTION") = rs("FUNCAO")
Session("CHEFE") = rs("CHEFE")
Session("BOSS") = rs("CHEFIA")
Session("CONCESSAO") = rs("CONCESSAO")
Session("CIDADE") = rs("CIDADE")
Session("ECONOMATO") = rs("ECONOMATO")
GO=TRUE
End If
rs.close
Conn.close
Set rs = Nothing
Set Conn = Nothing
if GO=TRUE then
Response.Redirect("main.asp")
end if
End Function
%>