<%elseif (lado=2) then %>
body { background: url("../libro_2.jpg") left top fixed white no-repeat}
#contenedor{
display:block; /* set up as a block */
height:100%; /* set height to full page */
max-height:100%;
padding-left:0px; /* pad left to avoid navigation div if required */
position:relative; /* set up relative positioning so that z-index will work */
z-index:3; /* allocate a suitable z-index */
min-width: 442px;
width: 442px;
margin-left: 00px;
visibility: visible;
transparent;
}
#presentacio {
min-width: 442px;
width: 442px;
height:100%; /* set height to full page */
max-height:100%;
margin-left: 00px;
visibility: visible;
scrollbar-face-color:#875408;
scrollbar-shadow-color:#875408;
scrollbar-highlight-color:#632984;
scrollbar-3dlight-color:#875408;
scrollbar-darkshadow-color:#875408;
scrollbar-track-color:#F7E5CB;
scrollbar-arrow-color:#000000;
}
#scroll { float:left; width:440px; height:520px; overflow:auto; padding:00px; border:0px solid #ba8; margin:70px auto; z-index:15;}
#scroll p {font-size:16px; line-height:18px;}
#justizq {text-align:left; float:left; margin-left:10px; width:310px;}
<%else %>
body { background: url("../fondo.jpg")}
<%end if %>
<%
Dim objFSO
Dim ObjCarpeta
Dim ObjArchivo
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Redim ArrayImagenes(0)
rootPath = Server.MapPath("/")
imagenespath = rootpath & "\images\Portals\0\docs\Breviario\fuentes\imagenes\"
Set ObjCarpeta = objFSO.GetFolder(Replace(imagenespath, "\", "/"))
Indice=0
For Each ObjArchivo in ObjCarpeta.Files
Indice=Indice+1
ReDim Preserve ArrayImagenes(Indice)
arrayimagenes(Indice)=Replace(Right(ObjArchivo, Len(ObjArchivo) - Len(rootPath)), "\", "/")
Next
randomize
imagen=arrayimagenes(int(rnd()*Indice)+1)
Set objCarpeta = Nothing
Set objArchivo = Nothing
Set objFSO = Nothing
%>
<%
if (Request.querystring("ponerestampa")="si") then
if (lado=1) then %>
<%else %>
<%end if
else
set FSO = server.createObject("Scripting.FileSystemObject")
Filepath = Server.MapPath(destino)
Set TextStream = FSO.OpenTextFile(Filepath, ForReading, False, TristateUseDefault)
contenido= TextStream.ReadAll
TextStream.Close
Set TextStream = nothing
contenido=replace(contenido,"
.
","")
contenido=replace(contenido,"A HREF","a href")
contenido=replace(contenido,"a href=""z","a href=""breviarionlineff.asp?formato=" & lado & "&archivo=z" )
contenido=replace(contenido,""," ")
contenido=replace(contenido,"","&b_bgcolor=ff0000&b_fgcolor=000000&"" /> ")
Response.Write contenido
end if
if ((lado=1) or (lado =2) ) then
Response.Write "