<% if request.querystring("leng")<>"" then session("leng")=request.querystring("leng") if session("leng")<>"en" then session("leng")="es" end if %> <%if session("leng")="en" then response.write("The Port Authority of Cartagena") else response.write("Autoridad Portuaria de Cartagena") end if%> <%if session("leng")="es" then%>

NUEVO SERVICIO compartir vehículo en los trayectos a Escombreras

<% Set conexion = Server.CreateObject("ADODB.Connection") conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\data\datos.mdb")) Set rs = conexion.Execute("SELECT * FROM noticias where rtrim(actua) <> 'eliminado' and tipo = '1' or tipo = '3' ORDER BY fecha desc") inx = 0 Do While Not rs.EOF inx = inx+1 %> <% rs.MoveNext Loop rs.Close conexion.Close set conexion = nothing %>
<%=rs.fields("titular").value%>
<% fecha = rs.fields("fecha").value dia=right(trim(fecha),2) mes=mid(fecha,5,2) ano=left(fecha,4) visita = dia&"/"&mes&"/"&ano response.write visita %>

<% Set conexion = Server.CreateObject("ADODB.Connection") conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\data\datos.mdb")) Set rs = conexion.Execute("SELECT * FROM noticias where rtrim(actua) <> 'eliminado' and tipo = '1' or tipo = '3' ORDER BY fecha desc") inx = 0 Do While Not rs.EOF inx = inx+1 %> <% rs.MoveNext Loop rs.Close conexion.Close set conexion = nothing %>
 
<%=rs.fields("titular").value%> - <% fecha = rs.fields("fecha").value dia=right(trim(fecha),2) mes=mid(fecha,5,2) ano=left(fecha,4) visita = dia&"/"&mes&"/"&ano response.write visita %>
<%=rs.fields("subtitular").value%>
<%=rs.fields("texto").value%>
<%if rtrim(rs.fields("href").value) <> "" then %> " target="_blank"><%=rs.fields("textohref").value%> <% end if %>

<%else%>
<% Set conexion = Server.CreateObject("ADODB.Connection") conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\data\datos.mdb")) Set rs = conexion.Execute("SELECT * FROM noticias where rtrim(actua) <> 'eliminado' and tipo = '1' or tipo = '3' ORDER BY fecha desc") inx = 0 Do While Not rs.EOF inx = inx+1 %> <% rs.MoveNext Loop rs.Close conexion.Close set conexion = nothing %>
<%=rs.fields("titular").value%>
<% fecha = rs.fields("fecha").value dia=right(trim(fecha),2) mes=mid(fecha,5,2) ano=left(fecha,4) visita = dia&"/"&mes&"/"&ano response.write visita %>

<% Set conexion = Server.CreateObject("ADODB.Connection") conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\data\datos.mdb")) Set rs = conexion.Execute("SELECT * FROM noticias where rtrim(actua) <> 'eliminado' and tipo = '1' or tipo = '3' ORDER BY fecha desc") inx = 0 Do While Not rs.EOF inx = inx+1 %> <% rs.MoveNext Loop rs.Close conexion.Close set conexion = nothing %>
 
<%=rs.fields("titular").value%> - <% fecha = rs.fields("fecha").value dia=right(trim(fecha),2) mes=mid(fecha,5,2) ano=left(fecha,4) visita = dia&"/"&mes&"/"&ano response.write visita %>
<%=rs.fields("subtitular").value%>
<%=rs.fields("texto").value%>
<%if rtrim(rs.fields("href").value) <> "" then %> " target="_blank"><%=rs.fields("textohref").value%> <% end if %>

<%end if%>