<%@LANGUAGE="VBSCRIPT"%>
<%
if request.QueryString("acao")="logoff" then
session.Abandon()
Response.Redirect("login.asp?erro=Usuario Desconectado")
end if
%>
<% if request.Form("usuario")<> "" then %>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.Form("usuario") <> "") Then
Recordset1__MMColParam = Request.Form("usuario")
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_Curriculo_STRING
Recordset1_cmd.CommandText = "SELECT * FROM usuarios WHERE usuario = ?"
Recordset1_cmd.Prepared = true
Recordset1_cmd.Parameters.Append Recordset1_cmd.CreateParameter("param1", 200, 1, 50, Recordset1__MMColParam) ' adVarChar
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
if not recordset1.eof and not recordset1.bof then
if (Recordset1.Fields.Item("Senha").Value) <> request.Form("senha") then
response.Redirect("login.asp?erro=Usuario ou senha inválida")
else
session("usuarioRH")= (Recordset1.Fields.Item("usuario").Value)
session("usuarioID") = (Recordset1.Fields.Item("usuarioID").Value)
if request.QueryString("pagina") <> "" then
response.Redirect(request.QueryString("pagina"))
else
response.Redirect("index.asp")
End if
end if
Else
response.Redirect("login.asp?erro=Usuario ou senha inválida")
end if
Recordset1.Close()
Set Recordset1 = Nothing
end if
%>
Easy Publish © 2008 MáquinaWEB