 |
|
Modification of the Ports Act - 1998
--> MODIFICATION OF THE PORTS ACT
Act 62/1997 of
December 26 modifies Act 27/1992 of November 24 of State Ports and the Merchant
Navy. The new ruling broadens the range of functions and responsibilities of Port
Authorities.
The aforementioned 62/97 Act strengthens the autonomy of
Port Authorities by regulating the participation of Autonomous Communities (regional
governments) in their management. The Autonomous Communities appoint the Presidents
of their Port Authorities and decide on the composition of their Board of Directors
guaranteeing the presence on the Board of representatives from central and local
government, Chambers of Commerce and the most relevant business and trade union
organisations.
- 1999
--> SPECIAL PORT PLAN
Approval is given to the Special Port
Plan, an important legal instrument which appropriately defines and specifies
the actions of the City Hall and Port Authority. | |
 
|
<%
categoria = request.form("categoria")
if categoria = "ac" then
response.write " | "
response.write "Resultados de la Búsqueda.
| "
titular = trim(request.form("titular"))
if titular <> "" then
aTitular = Split(titular, " ")
end if
entradilla = trim(request.form("entradilla"))
if entradilla <> "" then
aEntradilla = Split(entradilla, " ")
end if
texto = trim(request.form("texto"))
if texto <> "" then
aTexto = Split(texto, " ")
end if
dia1 = request.form("dia1")
dia2 = request.form("dia2")
mes1 = request.form("mes1")
mes2 = request.form("mes2")
ano1 = request.form("ano1")
ano2 = request.form("ano2")
if dia1 <> "" then
fechaini = dia1 & "/" & mes1 & "/" & ano1
fechafin = dia2 & "/" & mes2 & "/" & ano2
else
fechaini = ""
fechafin = ""
end if
'se abre conexion con la BD
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=ActividadesAPSevilla;"
'se abre recorset de la tabla de consulta
Set rc = Server.CreateObject("ADODB.Recordset")
Set rc.ActiveConnection = conn
rc.Source = "SELECT * FROM ACTIVIDADES WHERE ELIMINADO = False"
rc.CursorLocation = 2 'adUseServer
rc.CursorType = 0 'adOpenForwardOnly
rc.LockType = 1 'adLockReadOnly
rc.Open
lista="("
do while not rc.EOF
incluir = 1
if isarray(aTitular) then
for i=0 to ubound(aTitular)
if instr(ucase(rc.fields.item("TITULAR")), ucase(aTitular(i))) = 0 then
incluir = 0
exit for
end if
next
end if
if incluir = 1 then
if isarray(aEntradilla) then
for i=0 to ubound(aEntradilla)
if instr(ucase(rc.fields.item("ENTRADILLA")), ucase(aEntradilla(i))) = 0 then
incluir = 0
exit for
end if
next
end if
end if
if incluir = 1 then
if isarray(aTexto) then
for i=0 to ubound(aTexto)
if instr(ucase(rc.fields.item("TEXTO")), ucase(aTexto(i))) = 0 then
incluir = 0
exit for
end if
next
end if
end if
if fechaini <> "" and fechafin <> "" then
if rc.fields.item("FECHA_INICIAL") < cDate(fechaini) OR rc.fields.item("FECHA_INICIAL") > cDate(fechafin) then
incluir = 0
end if
end if
if incluir = 1 then
lista=lista & rc.fields.item("NUMERO") & ","
end if
rc.movenext
loop
if lista="(" then
busqueda = " AND NUMERO = 0"
else
busqueda = " AND NUMERO IN " & left(lista,len(lista)-1) & ")"
end if
rc.Close
set rc = Nothing
conn.Close
set conn = Nothing
end if
'se abre conexion con la BD
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DSN=ActividadesAPSevilla;"
'se abre recorset de la tabla de consulta
Set rc = Server.CreateObject("ADODB.Recordset")
Set rc.ActiveConnection = conn
rc.Source = "SELECT * FROM ACTIVIDADES WHERE ELIMINADO = False " & busqueda & " ORDER BY FECHA_INICIAL DESC, NUMERO"
rc.CursorLocation = 2 'adUseServer
rc.CursorType = 0 'adOpenForwardOnly
rc.LockType = 1 'adLockReadOnly
rc.Open
if rc.bof and rc.eof then
response.write " | "
response.write "No hay Actividades con la selección efectuada.
| "
end if
Do while not rc.EOF
response.write " | "
response.write ""
response.write "| " & rc.fields.item("TITULAR") & " | "
response.write "Desde: " & rc.fields.item("FECHA_INICIAL") & "
Hasta: " & rc.fields.item("FECHA_FINAL") & " | "
response.write " "
response.write ""
response.write "" & rc.fields.item("ENTRADILLA") & " | "
if Session("UsuarioActividades") = "" then
response.write " | "
else
'para poder borrar actividades
response.write " | "
end if
response.write " "
rc.movenext
Loop
rc.Close
set rc = Nothing
conn.Close
set conn = Nothing
%> | |
