<!-- Inicio do codigo fonte !-->
<%
Response.Buffer = True
Set DB = Server.CreateObject("ADODB.Connection")
cnpath="DBQ=D:\webpoint\rev\balmer-link\linksdovale.com\dados\usuarios.mdb"
DB.Open "DRIVER={Driver do Microsoft Access (*.mdb)}; " & cnpath
Executar = "SELECT * FROM tabela_de_usuarios"
Set RecSet = DB.Execute(Executar)
do while not recset.eof
vnome = RecSet("nome")
vsenha = RecSet("senha")
vpaginainicial = RecSet("paginainicial")
If Request.form("nome") = (vnome) then
If Request.form("senha") = (vsenha) then
response.cookies("autenticacao")("anome") = request.form("nome")
response.cookies("autenticacao")("asenha") = request.form("senha")
response.clear
response.redirect(vpaginainicial)
end if
end if
recset.movenext
loop
Public Function DoLog(arquivo,nome,senha)
Dim ObjFSO, ObjFile, ObjStream, Dia, Mes, Ano, Hora, IpNum
Const forReading = 1, forWriting = 2, forAppending = 8
Const TriDef = -2, TriTrue = -1, TriFalse = 0
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
If ObjFSO.FileExists(arquivo) = False then
objFSO.CreateTextFile(arquivo)
End If
Set ObjFile = objFSO.GetFile(arquivo)
Set objStream = ObjFile.OpenAsTextStream(forAppending,TriDef)
Dia = Day(Date())
Mes = Month(Date())
Ano = Year(Date())
Hora = Time()
IpNum = Request.ServerVariables("REMOTE_ADDR")
ObjStream.WriteLine Dia & "-" & Mes & "-" & Ano & " | " & Hora & " | " & IpNum & " --> " & " Nome: " & nome & " / Senha: " & senha
ObjStream.close
End Function
path = Server.MapPath("log.txt")
nome = Request.form("nome")
senha = Request.form("senha")
DoLog (path),(nome),(senha)
%>
<head>
<META HTTP-EQUIV="Refresh" CONTENT="1;URL=logon.asp">
</head>
<b>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p align="center"><font face="Verdana" size="1" color="#FF0000">
LOGIN OU SENHA INVÁLIDOS TENTE NOVAMENTE
</font>
</b>
</p>
<!-- Fim do codigo donte !-->
Ela não está aceitando mais a brinker aceita
