<% Dim DBconn, cmd, accion, rsRegistro, strParam Dim numRows, maxRec, maxPgs, Pg Dim rsFotoGrande, cmdFotoGrande, strFotoGrande Dim rsPortada, cmdPortada, strPortada Dim ConVisualizados, ConCeldas, AddCelda Dim strError, cont Dim notaCodigo, notaSeccion, notaTituloNota Dim notaCabecera,fotoGrande Dim notaTexto Dim fotoArchivo Dim Divisor, UltimaPagina, i Dim pl_notaCodigo , pl_notaSeccion Dim pl_notaTituloNota, pl_notaCabecera Dim pl_notaTexto, pl_fotoArchivo Dim vJavascript, FotoLogo, FotosArreglo Dim contadorArreglo, TextoArreglo Dim contGlobal Dim fotoAlineacion, fotoAncho, fotoAlto Dim seccAnchoC, seccAltoC, seccAnchoG, seccAltoG Dim AnchoHtmlC, AltoHtmlC, AnchoHtmlG, AltoHtmlG set DBconn=server.createobject("adodb.Connection") set rsRegistro=server.createobject("adodb.Recordset") set cmd=server.CreateObject("adodb.Command") set rsFotoGrande=server.createobject("adodb.Recordset") set cmdFotoGrande=server.CreateObject("adodb.Command") DBconn.open cadenaConn 'Application("DBDiarios") 'ShowError() '------------------------------------------------------------------ sub ObtenerValores() notaCodigo = rtrim(request("notaCodigo")) notaSeccion = rtrim(request("notaSeccion")) end sub '------------------------------------------------------------------ sub ShowFotosGrandes() cmdFotoGrande.ActiveConnection = DBconn strFotoGrande = "sp_FotoGrande_x_Nota_Select " & notaCodigo cmdFotoGrande.CommandText = strFotoGrande set rsFotoGrande=cmdFotoGrande.Execute end sub '------------------------------------------------------------------ sub ObtenerPortada(notaCodigo,prioridad) set rsPortada=server.createobject("adodb.Recordset") set cmdPortada=server.CreateObject("adodb.Command") cmdPortada.ActiveConnection = DBconn strPortada = "sp_Portada " & notaCodigo & "," & prioridad cmdPortada.CommandText = strPortada set rsPortada=cmdPortada.Execute if not rsPortada.eof then 'response.write("prioridad="&prioridad&"
") 'response.write("notaCodigo="¬aCodigo&"
") notaTituloNota=trim(rsPortada("fototitulo")) notaCabecera= trim(rsPortada("fotocabecera")) 'Session("fotoArchivo") = trim(rsPortada("fotoArchivo")) fotoGrande= trim(rsPortada("fotoArchivo")) Session("fotoAlineacion") = trim(rsPortada("fotoAlineacion")) Session("seccAnchoG") = trim(rsPortada("seccAnchoG")) Session("seccAltoG") = trim(rsPortada("seccAltoG")) end if rsPortada.close set rsPortada = nothing set cmdPortada = nothing end sub '------------------------------------------------------------------ sub Show() cmd.ActiveConnection = DBconn strParam= "sp_FotoChica_x_Nota_Select " & notaCodigo cmd.CommandText = strParam cmd.CommandType = 1 'adCmdText rsRegistro.CursorLocation = 3 rsRegistro.CursorType = 1 rsRegistro.Open cmd.CommandText,DBconn numRows=4 maxRec = rsRegistro.RecordCount maxPgs = ((maxRec-1)\numRows)+1 rsRegistro.PageSize = numRows Pg = cint(request("Pg")) if (maxPgs>1 and Pg=0) or maxPgs=1 then rsRegistro.AbsolutePage = Pg 'sacar si es la ultima pagina if Pg=0 then Divisor=1 else Divisor=Pg end if if maxRec/Divisor <%if not rsRegistro.EOF then vJavascript="SI" %> <%end if%>

Galería de Fotos

<% 'For Each name In Request.ServerVariables 'response.write(Request.ServerVariables("URL")) 'next 'if rtrim(request("ItemSeleccionado"))<>"" and rtrim(request("ItemSeleccionado"))<>Session("fotoArchivo") then ' Dim arrItemSeleccionado ' arrItemSeleccionado = split(rtrim(request("ItemSeleccionado")),"/") ' Session("fotoArchivo") = arrItemSeleccionado(3) ' end if 'if Session("notaTituloNota")="" then 'ObtenerPortada 'end if %> MÁS FOTOS <% 'ConVisualizados ="1" 'response.write "ConVisualizados" & ConVisualizados cont=0 Dim ContPg do until rsRegistro.EOF or cont>=numRows if session("mostrar")="" then ObtenerPortada notaCodigo,rsRegistro("fotoprioridad") session("mostrar")="si"%> <%end if cont=cont +1 fotoArchivo = rtrim(rsRegistro("fotoArchivo")) fotoAlineacion = rtrim(rsRegistro("fotoAlineacion")) seccAnchoC = rtrim(rsRegistro("seccAnchoC")) seccAltoC = rtrim(rsRegistro("seccAltoC")) 'seccAnchoG 'seccAltoG 'HtmlAnchoC 'HtmlAltoC 'HtmlAnchoG 'HtmlAltoG if fotoAlineacion="H" then AnchoHtmlC = seccAnchoC AltoHtmlC = seccAltoC else AnchoHtmlC = seccAltoC AltoHtmlC = seccAnchoC end if if Pg=0 then ContPg=1 else ContPg =Pg end if contGlobal = cont+((ContPg-1)*4) %> <% rsRegistro.movenext loop if UltimaPagina="si" and ConVisualizados=cont then AddCelda= "" 'if ConVisualizados<=3 then 'ConCeldas=3 'else ' if ConVisualizados>3 and ConVisualizados<=6 then ' ConCeldas=6 ' else ' if ConVisualizados>6 and ConVisualizados<=9 then ' ConCeldas=9 ' end if ' end if 'end if for i=1 to (4-ConVisualizados) response.write AddCelda next end if %> );"> <%if maxPgs>1 then%> Página <%=Pg%> de <%=maxPgs%> <%if Pg>1 then%> |  9 Inicio  |   3 Anterior  |   <%end if%> <%if Pg 4 Siguiente  |   : Final  |   <%end if%> <%end if%> ARCHIVO DE FOTOS

Copyright Prensa Popular SAC © PROHIBIDA SU REPRODUCCIÓN TOTAL O PARCIAL SIN LA AUTORIZACIÓN DE LOS EDITORES. Contáctese con Trome Envíe sus cartas o fotos a: trome@trome.com Desarrollado por Orbis Ventures SAC