<% Set oConn = New NTI 'clase NTI manejo del sistema oConn.Conecta set rs=Server.CreateObject("Adodb.Recordset") set rs2=Server.CreateObject("Adodb.Recordset") set rs3=Server.CreateObject("Adodb.Recordset") set rs4=Server.CreateObject("Adodb.Recordset") set rs5=Server.CreateObject("Adodb.Recordset") '''''''''''''' set objTemplate = new template_cls chek="" dim objTemplate const TMPLDIR = "templates/" const IMGDIR = "templates/" with objTemplate .TemplateFile = TMPLDIR & "index.html" '''########################################### ''SELECION DENOTICIA SQL="select * from noticia where fecha_end>'"&ClassFormatoFecha(now())&"' and publicar=1 order by fecha_publicacion desc" tabla="" rs2.Open SQL, oConn.Conn Dim miTabla If Not rs2.EOF Then miTabla = rs2.GetRows rs2.close n_total_reg=UBound(miTabla,2)+1 end if rs.Open SQL, oConn.Conn If Not rs.BOF Then rs.move inicio end if i=1 If Not rs.BOF or not rs.EOF Then Do While Not rs.Eof id=rs("id_noticia") f1=rs("fecha_publicacion") f2=rs("fecha_end") t=rs("titulo") d=rs("descripcion") s=rs("seccion") img="" if (rs("nueva")=1) then img="" end if if ClassFormatoFecha(now())" tabla=tabla&"" tabla=tabla&""&s &", "&FormatDateTime(f1, 1)&"
" tabla=tabla&""&t&" "&img&"
" tabla=tabla&""&d&"" tabla=tabla&"" tabla=tabla&"

" tabla=tabla&"" end if rs.movenext i=1+i if i>2 then If Not rs.EOF Then rs.move n_total_reg-1 'Response.Write("
--->s"& rs.EOF) end if end if Loop end if ''fin rs.close .AddToken "TABLA_NOTICIA",1, tabla ''SELECION DENOTICIA SQL="select * from evento where fecha_evento>'"&ClassFormatoFecha(now())&"' and publicar=1 order by fecha_publicacion desc" tabla="" rs4.Open SQL, oConn.Conn Dim miTabla2 If Not rs4.EOF Then miTabla2 = rs4.GetRows n_total_reg=UBound(miTabla2,2)+1 end if rs4.close rs.Open SQL, oConn.Conn If Not rs.BOF Then rs.move inicio end if i=1 If Not rs.BOF or not rs.EOF Then Do While Not rs.Eof id=rs("id_evento") f1=rs("fecha_evento") t=rs("titulo") o=rs("organiza") s=rs("lugar") img="" if (rs("nueva")=1) then img="" end if f2=rs("fecha2") if ClassFormatoFecha(now())" tabla=tabla&"" tabla=tabla&"Evento: "&t&" "&img&"
" if (f2="") then tabla=tabla&"Organiza: "&o&"
Lugar: "&s &"
Fecha: "&FormatDateTime(f1, 1)&"
" else tabla=tabla&"Organiza: "&o&"
Lugar: "&s &"
Fecha: "&f2&"
" end if ''abla=tabla&""&t&"
" 'tabla=tabla&""&d&"" tabla=tabla&"" tabla=tabla&"

" tabla=tabla&"" end if rs.movenext i=1+i if i>1 then If Not rs.EOF Then rs.move n_total_reg-1 'Response.Write("
--->s"& rs.EOF) end if end if Loop end if ''fin rs.close .AddToken "TABLA_EVENTO",1, tabla '''########################################### ''SELECION DE EMPRESAS tabla="" SQL="select * from nempresa where publicar=1 order by fecha_publicacion desc" rs3.Open SQL, oConn.Conn Dim miTabla3 If Not rs3.EOF Then miTabla3 = rs3.GetRows rs3.close n_total_reg=UBound(miTabla3,2)+1 end if rs.Open SQL, oConn.Conn If Not rs.BOF Then rs.move inicio end if i=1 If Not rs.BOF or not rs.EOF Then Do While Not rs.Eof id=rs("id_empresa") f1=rs("fecha_publicacion") t=rs("titulo") d=rs("descripcion") s=rs("seccion") tabla=tabla&"" tabla=tabla&"" tabla=tabla&""&s &", "&FormatDateTime(f1, 1)&"
" tabla=tabla&""&t&"
" tabla=tabla&""&d&"" tabla=tabla&"" tabla=tabla&"

" tabla=tabla&"" rs.movenext i=1+i if i>2 then If Not rs.EOF Then rs.move n_total_reg-1 'Response.Write("
--->s"& rs.EOF) end if end if Loop end if ''fin rs.close .AddToken "TABLA_EMPRESA",1, tabla '################################################################################ '####################################################################################### SQL="select * from actividad WHERE 1=1 order by fecha_publicacion desc" rs.Open SQL, oConn.Conn If Not rs.BOF or not rs.EOF Then id=rs(0) t=rs(2) f1=rs("fecha_publicacion") tabla="" tabla=tabla&"Charla de Actualidad y RSE
"&FormatDateTime(f1, 1)&"
"""&t&"""
" 'tabla=tabla&"Inscríbase Aquí" if ClassFormatoFecha(now())Taller de Aprendizaje RSE
"&FormatDateTime(f1, 1)&"
"""&t&"""
" tabla=tabla&"Inscríbase Aquí" if ClassFormatoFecha(now())" 'tabla=tabla&"" tabla2=tabla2&""&t&" "&img&"
" if (f2="") then tabla2=tabla2&""&FormatDateTime(f1, 1)&"
"&t2&"
" else tabla2=tabla2&""&f2&"
"&t2&"
" end if ''abla=tabla&""&t&"
" 'tabla=tabla&""&d&"" tabla2=tabla2&"" end if rs5.movenext i=1+i if i>1 then If Not rs5.EOF Then rs5.move n_total_reg-1 'Response.Write("
--->s"& rs.EOF) end if end if rs5.close end if ''fin .AddToken "NUEVA",1, tabla2 .parseTemplateFile end with set objTemplate = nothing %>