<% Dim conR, rsR, sqlR, hayDatosR Dim idSitioR, nombreR, urlR, descripcionR, imagenR Dim activoC, textoC, mostrarCursos if Request("checkLogin")="Ok" then Dim usuarioLogin, claveLogin usuarioLogin = Request("txtUsuarioLogin") claveLogin = Request("txtClaveLogin") ' response.redirect "" end if Set conR = ObtenerConexion() Set rsR = ObtenerRecordSet() Set rsC = ObtenerRecordSet() sqlR = "SELECT * FROM SitiosInteres ORDER BY nombre" rsR.open sqlR, conR if NOT rsR.EOF then hayDatosR=true end if sqlR = "SELECT * FROM SeccionCursos WHERE IDCurso=1" rsC.open sqlR, conR mostrarCursos = false if NOT rsC.EOF then if cint(rsC("activo"))=1 then mostrarCursos = true textoC = trim(rsC("texto")) TituloC = trim(rsC("titulo")) end if end if Set conR = nothing %>

<% if NOT Session("admin") then %> <% else %> <% end if %> <% if NOT Session("admin") then %> <% else %> <% end if %>

Acceso Restringido

Nombre :

Clave :

Red :

Bienvenido

<%=Session("NombreUsuario")%>

Ver descargas privadas

<% if mostrarCursos then %>

<%=TituloC%>

<%=textoC%>

Nombre :

Teléfono :

E-mail :

Empresa :

Curso :

<% end if %> <% if hayDatosR then %>

<% Do while NOT rsR.EOF url = replace(trim(rsR("url")), "http://", "") urlR = trim(rsR("url")) descripcionR = trim(rsR("descripcion")) %> <% rsR.Movenext Loop %>

Sitios de Interés

<%=url%>

<%=descripcionR%>

<% end if %>