<% if request.querystring("leng")<>"" then session("leng")=request.querystring("leng") if session("leng")<>"en" then session("leng")="es" end if %> <% Set conexion = Server.CreateObject("ADODB.Connection") conexion.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\data\datos.mdb")) if request.QueryString("fechabol") <> "" then qfechabol = request.QueryString("fechabol") session("fechabol") = qfechabol end if fsession = session("fechabol") if fsession = "" then set rs = conexion.execute("select * from numerobol where rtrim(actua) = 'alta' order by fechabol desc") if rs.eof then response.write "ALAAAAA" else fsession = rs.fields("fechabol").value end if rs.close set rs = nothing session("fechabol") = fsession 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%>
<%if session("modo")="ht" then%> inicio <%else%> inicio <%end if%> correomapa web
  english version
 
 
<% fecha = session("fechabol") mes = right(fecha,2) ano = left(fecha,4) 'response.Write(ano) Select case mes case "01" mes = "Enero" case "02" mes = "Febrero" case "03" mes = "Marzo" case "04" mes = "Abril" case "05" mes = "Mayo" case "06" mes = "Junio" case "07" mes = "Julio" case "08" mes = "Agosto" case "09" mes = "Septiembre" case "10" mes = "Octubre" case "11" mes = "Noviembre" case "12" mes = "Diciembre" end select response.Write(mes) %> de <%=ano%>

<% idnot = request.QueryString("idnot") '***********identificamos la noticia de portada********** if idnot = "" then Set rs = conexion.Execute("SELECT * FROM numerobol where fechabol = '" + fsession + "'") idnot = rtrim(rs.fields("notportada").value) if isnull(idnot) then idnot = "xx" else session("notportada") = idnot end if session("numbol") = rtrim(rs.fields("numbol").value) rs.close set rs = nothing end if 'response.write "idnot es:" + idnot 'response.write fsession Set rs = conexion.Execute("SELECT * FROM noticias where idnot = '" + idnot + "' and actua <> 'eliminado' ORDER BY fecha") if rs.eof then%>

NO SE HA ESPECIFICADO NINGUNA NOTICIA DE PORTADA EN ESTE BOLETÍN
Por favor, introduzca o modifique el artículo que será asignado como artículo de portada.

<% end if Do While Not rs.EOF%>

<% 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 %> <% if session("notportada") = idnot then %> NOTICIA DE PORTADA <% end if %>

<%=rs.fields("titular").value%> <% subt = trim(rs.fields("subtitular").value) if subt <> "" then response.write "

" + subt + "
" end if %> <% img = rtrim(rs.fields("img").value) if img <> "" then %> <%'longtotal = len(img) npos = InStr(img,",") 'if npos <> 0 then 'imgprim = trim(left(img,npos-1)) 'else 'imgprim = img 'end if 'response.write "


" 'response.write conta 'npos = npos+3 if npos <> 0 then%> <% do while npos > 0 pict = trim(left(img,npos-1)) img = trim(mid(img,npos+1)) 'response.write img npos = instr(img,",")%> <%loop%>
<%response.write "


" if npos = 0 then response.write "


" end if%>
<%else response.write "" end if 'img = left(img,conta) %> <% end if %>

<%=rs.fields("texto").value%>

<%imggrande = rs.fields("imggrande").value if rtrim(imggrande) <> "" then%>

<%end if%>

<% if rtrim(rs.fields("href").value) <> "" then %>

" target="_blank"><%=rs.fields("textohref").value%> <% end if %>

<% rs.MoveNext Loop rs.Close %>
EN PORTADA <% Set rs = conexion.Execute("SELECT * FROM noticias where fechabol = '" + fsession + "' and idnot = '" + session("notportada") + "' and actua <> 'eliminado'") %>

<% if rs.eof then response.write "NO HAY ARTÍCULO DE PORTADA" else response.write rs.fields("titular").value end if rs.close set rs = nothing %>


SUMARIO <% 'idnot = request.QueryString("idnot") 'Response.Write("CORRECTO!!!

Conexión con la base de datos conseguida.
") Set rs = conexion.Execute("SELECT * FROM clasif ORDER BY id") if rs.eof then response.write "
NO HAY" else %>
<% Do While Not rs.EOF clasif = cstr(rs.fields("id").value) apartado=rs.fields("apartado").value Set rs2 = conexion.Execute("SELECT * FROM noticias where clasif = '" + clasif + "' AND fechabol = '" + fsession + "' and nivel <> '2' and rtrim(actua) <> 'eliminado' and rtrim(tipo) <> '1' order by fecha desc") if rs2.eof then 'response.write "NO HAY ARTÍCULOS EN EL BOLETÍN" else %> <% Do While Not rs2.EOF%> <% rs2.MoveNext Loop %>
<%=apartado%>
> " class="enlaces"><%=rs2.fields("titular").value%>

<% end if rs2.Close %> <% rs.MoveNext Loop end if rs.Close %>
<% conexion.Close set conexion = nothing %>
Hemeroteca <%else%>
<%if session("modo")="ht" then%> home <%else%> home <%end if%> e-mailweb map
  versión española
 
 
<% fecha = session("fechabol") mes = right(fecha,2) ano = left(fecha,4) 'response.Write(ano) Select case mes case "01" mes = "Enero" case "02" mes = "Febrero" case "03" mes = "Marzo" case "04" mes = "Abril" case "05" mes = "Mayo" case "06" mes = "Junio" case "07" mes = "Julio" case "08" mes = "Agosto" case "09" mes = "Septiembre" case "10" mes = "Octubre" case "11" mes = "Noviembre" case "12" mes = "Diciembre" end select response.Write(mes) %> de <%=ano%>

<% idnot = request.QueryString("idnot") '***********identificamos la noticia de portada********** if idnot = "" then Set rs = conexion.Execute("SELECT * FROM numerobol where fechabol = '" + fsession + "'") idnot = rtrim(rs.fields("notportada").value) if isnull(idnot) then idnot = "xx" else session("notportada") = idnot end if session("numbol") = rtrim(rs.fields("numbol").value) rs.close set rs = nothing end if 'response.write "idnot es:" + idnot 'response.write fsession Set rs = conexion.Execute("SELECT * FROM noticias where idnot = '" + idnot + "' and actua <> 'eliminado' ORDER BY fecha") if rs.eof then%>

NO SE HA ESPECIFICADO NINGUNA NOTICIA DE PORTADA EN ESTE BOLETÍN
Por favor, introduzca o modifique el artículo que será asignado como artículo de portada.

<% end if Do While Not rs.EOF%>

<% 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 %> <% if session("notportada") = idnot then %> NOTICIA DE PORTADA <% end if %>

<%=rs.fields("titular").value%> <% subt = trim(rs.fields("subtitular").value) if subt <> "" then response.write "

" + subt + "
" end if %> <% img = rtrim(rs.fields("img").value) if img <> "" then %> <%'longtotal = len(img) npos = InStr(img,",") 'if npos <> 0 then 'imgprim = trim(left(img,npos-1)) 'else 'imgprim = img 'end if 'response.write "


" 'response.write conta 'npos = npos+3 if npos <> 0 then%> <% do while npos > 0 pict = trim(left(img,npos-1)) img = trim(mid(img,npos+1)) 'response.write img npos = instr(img,",")%> <%loop%>
<%response.write "


" if npos = 0 then response.write "


" end if%>
<%else response.write "" end if 'img = left(img,conta) %> <% end if %>

<%=rs.fields("texto").value%>

<%imggrande = rs.fields("imggrande").value if rtrim(imggrande) <> "" then%>

<%end if%>

<% if rtrim(rs.fields("href").value) <> "" then %>

" target="_blank"><%=rs.fields("textohref").value%> <% end if %>

<% rs.MoveNext Loop rs.Close %>
EN PORTADA <% Set rs = conexion.Execute("SELECT * FROM noticias where fechabol = '" + fsession + "' and idnot = '" + session("notportada") + "' and actua <> 'eliminado'") %>

<% if rs.eof then response.write "NO HAY ARTÍCULO DE PORTADA" else response.write rs.fields("titular").value end if rs.close set rs = nothing %>


SUMARIO <% 'idnot = request.QueryString("idnot") 'Response.Write("CORRECTO!!!

Conexión con la base de datos conseguida.
") Set rs = conexion.Execute("SELECT * FROM clasif ORDER BY id") if rs.eof then response.write "
NO HAY" else %>
<% Do While Not rs.EOF clasif = cstr(rs.fields("id").value) apartado=rs.fields("apartado").value Set rs2 = conexion.Execute("SELECT * FROM noticias where clasif = '" + clasif + "' AND fechabol = '" + fsession + "' and nivel <> '2' and rtrim(actua) <> 'eliminado' and rtrim(tipo) <> '1' order by fecha desc") if rs2.eof then 'response.write "NO HAY ARTÍCULOS EN EL BOLETÍN" else %> <% Do While Not rs2.EOF%> <% rs2.MoveNext Loop %>
<%=apartado%>
> " class="enlaces"><%=rs2.fields("titular").value%>

<% end if rs2.Close %> <% rs.MoveNext Loop end if rs.Close %>
<% conexion.Close set conexion = nothing %>
Hemeroteca <%end if%>