<%server.ScriptTimeOUt = 360%> COQUETEL ::: PASSATEMPO ::: IDENTIFICAÇÃO ::: <% if request.servervariables("request_method")="POST" then %><% sql = "select apelido, idusuario, login, senha, email, nome, sobrenome, endereco, texto_pascoa_envio, Nascimento " sql = sql & " from Jogo_Usuarios" sql = sql & " where (Login = '" & Trim(Request("txtLogin") & "") & "' or email = '" & Trim(Request("txtLogin") & "") & "') and " sql = sql & " Senha = '" & Trim(Request("txtSenha") & "") & "' " Set RsValida = conn.execute(sql) if not rsValida.eof then Session("Login_User") = Trim(Request("txtLogin") & "") Session("Senha_User") = Trim(Request("txtSenha") & "") Session("Autenticado") = "Sim" Session("Id_User") = Trim(RsValida("IdUsuario") & "") Session("Nome_Usuario") = Trim(RsValida("Nome") & "") Session("Email_Usuario") = Trim(RsValida("Email") & "") Session("Apelido_Usuario") = Trim(RsValida("Apelido") & "") Session("Texto_Pascoa") = Trim(RsValida("Texto_Pascoa_Envio") & "") Session("Endereco_Usuario") = Trim(RsValida("Endereco") & "") response.Cookies ("Login") = Trim(Request("txtLogin") & "") response.Redirect ("validar.asp") response.end else %> <% end if else Session("Login_User") = "" Session("Senha_User") = "" Session("Autenticado") = "" Session("Id_User") = "" Session("Nome_Usuario") = "" Session("Email_Usuario") = "" Session("Apelido_Usuario") = "" end if %>

Acesso Ao Passatempo

Identificação:   
E-mail ou Login:
" class="form" size="20"> 
Senha: