THE PORT OF SEVILLE
 
You are in: Home | The Port of Seville |Seville, a Port with History | Creation of the Port Authority of Seville
<% categoria = request.form("categoria") if categoria = "ac" then response.write "" response.write "" 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 "" end if Do while not rc.EOF response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" 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 %>

Creation of The Port Authority of Seville

The Port Authority of Seville came to light on January 1, 1993 as heir to the Port Works Board, as established in the new Port Law, although with greater autonomy and management capacity than its predecessor.

The State, aware of the importance of maritime transport for Spain, set up a public entity, with global responsability on the whole port system, with functions of holding over the Port authorities.

A Board of Directors was set up, integrated by different of different public and private agencies an bodies linked to the Port activity.

The Board of Directors is compounded of: President of the PAS, Vice-president of the PAS, Director of the PAS and 21 members among which the vice-president is elected.

The Navigation and Harbour Council was set up in November 14th 1994, previous consent on its working rules from the PAS Board of Directors. It is compounded of different institutions, bodies, firms and particulars interested in the good work of the Port of Seville.

 

Resultados de la Búsqueda.
No hay Actividades con la selección efectuada.
" & rc.fields.item("TITULAR") & "

Desde: " & rc.fields.item("FECHA_INICIAL") & "
Hasta: " & rc.fields.item("FECHA_FINAL") & "

" & rc.fields.item("ENTRADILLA") & "