<%
public acceso1
dim acceso2
If Request.Form("txtUsuario") <> "" Then
set acceso1 = Request.Form("txtUsuario")
else
set acceso1 = Request.QueryString("txtUsuario")
End If
%>
<%Set dbMads = Server.CreateObject("ADODB.Connection")
dbMads.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("database/base de datos acciones FIS.mdb")
%>
<%
Clave = "SELECT * "
Clave = Clave & "FROM acciones fis "
Clave = Clave & " WHERE area3 = -1"
If Request.Form("txtUsuario") <> "" Then
Clave = Clave & " and apellidos = '" & _
Request.Form("txtUsuario") & "'"
End If
Set rsClave = Server.CreateObject("ADODB.Recordset")
rsClave.Open Clave, dbMADS, 3
%>
<%
If rsClave.BOF and rsClave.EOF or acceso1 = "" or acceso2 = "" Then%>
Acceso acciones
Acceso restringido a los participantes en las acciones del FIS. Introduzca los datos y pulse botón derecho para CONTINUAR.
Usuario:
<%else%>
<%End If%>
<%
rsClave.Close
dbMADS.Close
Set rsClave = Nothing
Set dbMADS = Nothing
%>
