|
<% loginnickname=Request.Form("loginnickname") %>
<% loginpassword=Request.Form("loginpassword") %>
<% Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open servicon
set RS =Conn.Execute("SELECT * FROM usersdetails WHERE nickname = '" & loginnickname & "' and userspass = '" & loginpassword & "' ")
if not RS.eof then
RS.movefirst
Do
loginsuccess = "1"
setnickname = RS("nickname")
RS.movenext
Loop until RS.eof
RS.movefirst
End if
Conn.Close
Set Conn = Nothing
if loginsuccess = "1" then
Response.Cookies("pass") = loginpass
Response.Cookies("thenick") = setnickname
response.cookies("pass").path="/"
response.cookies("thenick").path="/"
session("usuario_logado") = "sucesso"
response.redirect "manutencao.asp"
response.write fontstuff
response.write " "
response.write loggedin
else
response.write fontstuff
response.write " "
response.write notloggedin
end if
%>
|