<%
Set Conn = Server.CreateObject("ADODB.Connection")
DBPath = "P:\w\w\w\www.renal.org.ar\data\renal2.mdb"
sConnString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath
Conn.Open (sConnString)
if not session("UsuarioID") ="" then
Set valida = conn.Execute ("Select * from Usuarios where UsuarioID='"&session("UsuarioID")&"'")
if valida.eof then Response.Redirect("../validacion2/login2.asp?ant="&Request.ServerVariables("script_name")) end if
Set valida = nothing
Set conn=nothing
else
Response.Redirect("../validacion2/login2.asp?ant="&Request.ServerVariables("script_name"))
end if
%>
Asociación Regional de Diálisis - Grupo de Discusion