<% If Session("nombre") <> "" Then %> <% Else%> <% End If%>
Bienvenido:
<%= Session("nombre")%>
Directiva Equipos Campeonato Fixture Tabla Posiciones Salir
Nombre Usuario:
Password:
¿Olvidaste la Contraseña?


<%= msg %>
Regístrate y recibe boletines semanales directamente a tu correo electrónico.

A través de tu registro podrás también explotar al máximo tu página Perubasket.com.
Acceso Corresponsales
 
<% Set Cn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Cn.Open CadenaODBC() Server.ScriptTimeout = 1800 strAccion = Request("hdnAccion") If strAccion = "login" Then usr = Request("txtUsuario") pwd = Request("txtClave") sSql = "SELECT * FROM tbusuario_comun WHERE c_usuario = '" & usr & "' AND c_clave = '" & pwd & "'" Rs.Open sSql, Cn If Rs.EOF Then msg = "Usuario o clave no son correctas. Verifique..." Else Session("cod_usuario") = Rs("id_usuario") Session("login") = Rs("c_usuario") Session("nombre") = Rs("c_nombre") & " " & Rs("c_apePat") Session("des_usuario") = Rs("c_nombre") & " " & Rs("c_apePat") & " " & Rs("c_apeMat") Session("codigoDep") = Rs("liga_iCodigo") Session("c_clave") = Rs("c_clave") Session("Tipo") = Rs("c_Tipo") Response.Redirect "default.asp" End If End If codigoDepa = Request("hdnCodDep") If codigoDepa <> "" And Session("codigoDep")<>"" Then Session("codigoDep") = codigoDepa End If If codigoDepa="" And Session("codigoDep")="" Then codigoDepa = 0 Session("codigoDep") = codigoDepa End If %>













 
"Powered by APB | Copyright APB 2011"