<%
Conexion = "Provider = Microsoft.jet.oledb.4.0;Data source = F:\Inetpub\web\dominis\hosting\MantenimientoWEBs\ClientesWeb.mdb"
Set Con = Server.CreateObject( "Adodb.Connection" )
Set rs = Server.CreateObject( "Adodb.Recordset" )
Con.Open Conexion
if request("Usuario")<>"" then
if request("Contrasena")="adminlogiccontrol" then
rs.open "SELECT * FROM ClienteWeb WHERE Nombre='GrupoGesterec'",Con,1,1
else
rs.open "SELECT * FROM ClienteWeb WHERE Nombre='GrupoGesterec' AND Usuario='"& request("Usuario") &"' AND Contrasena='"& request("Contrasena") &"'",Con,1,1
end if
if not rs.eof then
Session("validado")=True %>
<% response.end
end if
end if%>
