<% Set Cn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Cn.Open CadenaODBC() %>
<% sSql = "SELECT DISTINCT(l.liga_cUbigeo), l.liga_vAbrev, l.liga_vOrden, l.liga_vCarpeta " sSql = sSql & " FROM tbLiga l " sSql = sSql & " INNER JOIN usuario u ON l.liga_cUbigeo = u.id_ubigeo" sSql = sSql & " and l.liga_cEstado = 'A'" sSql = sSql & " and l.liga_vPeriodo <> '2000'" sSql = sSql & " ORDER BY l.liga_vOrden" Rs.Open sSql, Cn If Rs.EOF Then msg = "No Existen Ligas Cargadas. Verifique..." Else Do Until Rs.EOF i = i + 1%> <% Rs.MoveNext Loop Rs.Close End If%>
<% sSql = "SELECT DISTINCT(l.liga_cUbigeo), l.liga_vAbrev, l.liga_vOrden, l.liga_vCarpeta " sSql = sSql & " FROM tbLiga l " sSql = sSql & " INNER JOIN usuario u ON l.liga_cUbigeo = u.id_ubigeo" sSql = sSql & " where l.liga_cEstado = 'A'" sSql = sSql & " and liga_cUbigeo like 'OR%'" sSql = sSql & " ORDER BY l.liga_vOrden" Rs.Open sSql, Cn If Rs.EOF Then msg = "No Existen Ligas Cargadas. Verifique..." Else Do Until Rs.EOF i = i + 1%> <% Rs.MoveNext Loop Rs.Close End If%>
<% If Session("nombre") <> "" Then %> <% Else%> <% End If%>
Bienvenido:
<%= Session("nombre")%>
Directiva Equipos Fixture Tabla Posiciones
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 %>













 
<% Response.Expires = -1000000 Response.ExpiresAbsolute = #Jan 01, 1980 00:00:00# Response.AddHeader "pragma","no-cache" '************************************************************ Set Cn = Server.CreateObject("ADODB.Connection") Set Rs = Server.CreateObject("ADODB.Recordset") Cn.Open CadenaODBC Server.ScriptTimeout = 1800 CodLiga = Request("selLiga") nombre = Ucase(Request("txtNombre")) apellidoPat = Ucase(Request("txtapellidoPat")) apellidoMat = Ucase(Request("txtapellidoMat")) dni = Request("txtdni") fecnac = Request("txtfecnac") Emptel = Request("selTelefonia") telefono = Request("txtfono") direccion = Request("txtdireccion") email = Request("txtEmail") cod_pais = Request("selpais") cod_dep = Request("selDepa") cod_prov = Request("selProv") cod_dist = Request("seldist") ubigeo = cod_pais & cod_dep & cod_prov & cod_dist foco = Request("hdnFoco") usuario = Request("txtUsuario") clave = Request("txtClave1") Accion = Request("hdnAccion") codigo = Request("hdnCodigo") flag = Request("hdnFlag") 'Response.Write(Accion) & "---estaes la acicon
" 'Response.Write(flag) & "---estaes lflagn
" If Accion = "Insertar" And flag <> "" Then Select Case Emptel Case "1": empresaTel = "FIJO" Case "2": empresaTel = "TELEFONICA" Case "3": empresaTel = "CLARO" Case "4": empresaTel = "NEXTEL" End Select sSql = "SELECT * from ubigeo " sSql = sSql & " WHERE k_dep ='" & cod_dep & "'" sSql = sSql & " AND k_prov='00'" sSql = sSql & " AND k_dist='00'" Rs.Open sSql, Cn dpto = Rs("d_des") Rs.Close sSql = "SELECT * from ubigeo " sSql = sSql & " WHERE k_dep ='" & cod_dep & "'" sSql = sSql & " AND k_prov='" & cod_prov & "'" sSql = sSql & " AND k_dist='00'" Rs.Open sSql, Cn prov = Rs("d_des") Rs.Close sSql = "SELECT * from ubigeo " sSql = sSql & " WHERE k_dep ='" & cod_dep & "'" sSql = sSql & " AND k_prov='" & cod_prov & "'" sSql = sSql & " AND k_dist='" & cod_dist & "'" Rs.Open sSql, Cn dist = Rs("d_des") Rs.Close Session("nombre_completo") = nombre & " " & apellidoPat & " " & apellidoMat Session("dni") = dni Session("fecnac") = fecnac Session("emp_celular") = empresaTel Session("telefono") = telefono Session("email") = email Session("Pais") = "PERU" Session("Dpto") = dpto Session("Prov") = prov Session("Distrito") = dist Session("direccion") = direccion Session("usuario") = usuario Session("clave") = clave 'Response.Write(Session("nombre_completo")) & "--nombre
" 'Response.Write(Session("dni")) & "--dni
" 'Response.Write(Session("fecnac")) & "--fecha nacimiento
" 'Response.Write(Session("emp_celular")) & "--empresa telefono
" 'Response.Write(Session("telefono")) & "--telefono
" 'Response.Write(Session("email")) & "--email
" 'Response.Write(Session("Pais")) & "--pais
" 'Response.Write(Session("Dpto")) & "--departamento
" 'Response.Write(Session("Prov")) & "--provincia
" 'Response.Write(Session("Distrito")) & "--distrito
" 'Response.Write(Session("direccion")) & "--direccion
" 'Response.Write(Session("usuario")) & "--usuario
" 'Response.Write(Session("clave")) & "--clave
" sSql = "SELECT * FROM tbusuario_comun WHERE c_usuario = '" & usuario & "'" Rs.Open sSql, Cn If Not Rs.EOF Then Response.Redirect "usuario_existe.asp?txtNombre=" & nombre & "&txtapellidoPat=" & apellidoPat & "&txtapellidoMat=" & apellidoMat & "&txtdni=" & dni & "&txtfecnac=" & fecnac & "&selTelefonia=" & Emptel & "&txtfono=" & telefono & "&txtEmail=" & email & "&txtdireccion=" & direccion & "&selpais=" & cod_pais & "&selDepa=" & cod_dep & "&selProv=" & cod_prov & "&selDist=" & cod_dist Else sSql = "INSERT INTO tbusuario_comun (id_ubigeo, c_nombre, c_apepat, c_apemat, c_dni, d_nacimiento, id_telefono, c_telefono, c_email, c_direccion, c_usuario, c_clave)" sSql = sSql & " VALUES('" & ubigeo & "', '" & nombre & "', '" & apellidoPat & "', '" & apellidoMat & "', '" & dni & "', '" & FormatYYYYMMDD_Ingles(fecnac) & "', '" & EmpTel & "', '" & telefono & "', '" & email & "', '" & direccion & "', '" & usuario & "', '" & clave & "')" Cn.Execute(sSql) Response.Redirect "confirmacion.asp" End If 'Response.Write(sSql) 'Response.End End If 'If flag = "Si" Then ' Response.Redirect "confirmacion.asp" 'End If%>
PÁGINA EN CONSTRUCCIÓN
<% Cn.Close Set Rs = Nothing Set Cn = Nothing%>
"Powered by APB | Copyright APB 2011"