<%
const csSubDirectorioHtml= "Html"
const csTagHoraActualizacion= ""
const csTagDolarCompra= ""
const csTagDolarVenta= ""
const csTagTemperaturaMaxima= ""
const csTagTemperaturaMinima= ""
const ciCodigoClimaDolar= 34
sRetornoLinea= chr(13) & chr(10)
%>
<% 'Hora de actualización
function horaActualizacion()
horaActualizacion=TimeValue(now)
end function%>
<%'Dolar y temperatura
set oRs= server.CreateObject("adodb.REcordset")
oRS.open "SELECT num_prioridad, des_cabecera" & _
" FROM notas" & _
" WHERE cod_seccion=" & ciCodigoClimaDolar & _
" AND est_activo='1'" & _
" ORDER BY num_prioridad" , constr
do while not oRs.eof
select case oRs("num_prioridad")
case 1 ' Temperatura máxima
TEMPMAX= Trim(oRs("des_cabecera"))
case 2 ' Temperatura mínima
TEMPMIN= Trim(oRs("des_cabecera"))
case 3 ' Dólar compra
DolarCompra= Trim(oRs("des_cabecera"))
case 4 ' Dólar venta
DolarVenta= Trim(oRs("des_cabecera"))
end select
oRs.Movenext
loop
set oRs= nothing%>
TROME / GALERIA MALCRIADAS /<%=fFechaCompleta(now)%>
<%
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
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 ConstrMalcriada'Application("DBDiarios")
'ShowError()
'------------------------------------------------------------------
sub ObtenerValores()
notaCodigo = rtrim(request("notaCodigo"))
notaSeccion = rtrim(request("notaSeccion"))
end sub
'------------------------------------------------------------------
sub ShowFotosChicas()
cmdFotoGrande.ActiveConnection = DBconn
strFotoGrande = "sp_FotoChica_x_Nota_Select " & notaCodigo
cmdFotoGrande.CommandText = strFotoGrande
set rsFotoGrande=cmdFotoGrande.Execute
end sub
'------------------------------------------------------------------
sub ObtenerPortada()
set rsPortada=server.createobject("adodb.Recordset")
set cmdPortada=server.CreateObject("adodb.Command")
cmdPortada.ActiveConnection = DBconn
strPortada = "sp_Portada_Select " & notaCodigo
cmdPortada.CommandText = strPortada
set rsPortada=cmdPortada.Execute
if not rsPortada.eof then
Session("notaTituloNota")=rtrim(rsPortada("notaTituloNota"))
Session("notaCabecera")= rtrim(rsPortada("notaCabecera"))
'Session("fotoArchivo") = rtrim(rsPortada("fotoArchivo"))
fotoAlineacion = rtrim(rsPortada("fotoAlineacion"))
if fotoAlineacion="H" then
seccAnchoG = rtrim(rsPortada("seccAnchoG"))
seccAltoG = rtrim(rsPortada("seccAltoG"))
else
seccAltoG = rtrim(rsPortada("seccAnchoG"))
seccAnchoG = rtrim(rsPortada("seccAltoG"))
end if
end if
rsPortada.close
set rsPortada = nothing
set cmdPortada = nothing
end sub
'------------------------------------------------------------------
sub Show()
cmd.ActiveConnection = DBconn
strParam= "sp_FotoGrande_x_Nota_Select " & notaCodigo
cmd.CommandText = strParam
cmd.CommandType = 1 'adCmdText
rsRegistro.CursorLocation = 3
rsRegistro.CursorType = 1
rsRegistro.Open cmd.CommandText,DBconn
numRows=1
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%>
<%
'if rtrim(request("ItemSeleccionado"))<>"" and rtrim(request("ItemSeleccionado"))<>Session("fotoArchivo") then
'Session("fotoArchivo") = rtrim(request("ItemSeleccionado"))
'end if
'if Session("notaTituloNota")="" then
'ObtenerPortada
'end if
%>
