<% 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 objTemplate = new template_cls chek="" dim objTemplate const TMPLDIR = "templates/" const IMGDIR = "templates/" TABLA_LIMITE=10 if (isNumeric(Request.QueryString("inicio"))) then inicio=CInt(Request.QueryString("inicio"))+0 else inicio=0 end if with objTemplate .TemplateFile = TMPLDIR & "taller.html" '''########################################### ''SELECION DENOTICIA SQL="select * from taller 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 n_total_reg=UBound(miTabla,2)+1 .AddToken "N_TOTAL_REG",1,n_total_reg if inicio>0 then ini=inicio - TABLA_LIMITE .AddToken "ATRAS",1,"[Atras]" end if if inicio + TABLA_LIMITE [Siguiente]" end if .AddToken "INICIO",1,inicio + 1 limite=inicio + TABLA_LIMITE if limite" tabla=tabla&"

" tabla=tabla&"

“"&t&"”
" tabla=tabla&""&FormatDateTime(f1, 1)&"

" tabla=tabla&"Expositores:"&e&"
" tabla=tabla&"Tema:"&te&"
" if m*1>0 then tabla=tabla&" >> Ver Más " end if 'Response.Write(ClassFormatoFecha(f1)) if ClassFormatoFecha(now())>>Inscribase Aquí" end if tabla=tabla&"

" tabla=tabla&"" tabla=tabla&"" rs.movenext i=1+i if i>10 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",1, tabla .parseTemplateFile end with set objTemplate = nothing %>