|
Fuente:
<%=registros("publicado")%>
Fecha: <%
response.write(datepart("d",registros("fecha")))
dim mes
mes=datepart("m",registros("fecha"))
select case mes
case 1 mes="enero"
case 2 mes="febrero"
case 3 mes="marzo"
case 4 mes="abril"
case 5 mes="mayo"
case 6 mes="junio"
case 7 mes="julio"
case 8 mes="agosto"
case 9 mes="septiembre"
case 10 mes="octubre"
case 11 mes="noviembre"
case 12 mes="diciembre"
end select
response.write(" de "+mes+" de ")
response.write(datepart("yyyy",registros("fecha")))%>
<%if registros("antetitulo")<>"" then%><%=registros("antetitulo")%>
<%end if%><%=registros("titulo")%>
<%if registros("imagen") <> "" then%>
|
 "> |
|
<%if registros("creditos")<>"" then%>
Foto cortesia de: <%=registros("creditos")%>
<%else%>
Cámara de Industriales del Estado Carabobo - Derechos reservados
<%end if%>
|
|
|
<%end if%>
<%if registros("intro")<>"" then%>
<%=registros("intro")%>
<%end if%>
<%dim texto_var2
dim i,largo
dim caracter
texto_var2=registros("contenido")
largo=len(texto_var2)
for i=1 to largo
caracter=mid(texto_var2,i,1)
Response.Write(caracter)
if asc(caracter)=13 then
Response.Write("
")
end if
next%>
<%registros.close
set registros = Nothing
conexion.close
set conexion = Nothing%>
|
