<% Sub list(rs, url, pagesize, fields, fieldlabels, table, criteria, order, sortdir, section, eofmessage, sectionbg, fieldbg, rowbg, titcss, txtcss, pgcss, checkbox, primarykey, edit, edittxt, width) dim listhtml order1=Request.QueryString("sort") sortdir1=Request.QueryString("sortdir") if order1<>"" then sortstr=order1 & " " & sortdir1 sortpar= "&sort=" & order1 & "&sortdir=" & sortdir1 else if order<>"" then sortstr=order & " " & sortdir sortpar= "&sort=" & order & "&sortdir=" & sortdir end if end if dbselect fields, table, criteria, sortstr rs.Open sql, cn, 1, 3 if not rs.eof then pag=cint(Request.QueryString("pag")) if pag=0 then pag=1 rs.PageSize=pagesize rs.AbsolutePage=pag colspan=0 if edit<>"" then colspan=1 listhtml=listhtml & "" for i=0 to rs.fields.count-1 listhtml=listhtml & "" next if edit<>"" then listhtml=listhtml & "" listhtml=listhtml & "" i=1 do while not rs.EOF and i<=rs.PageSize listhtml=listhtml & "" n=0 if checkbox=1 then listhtml=listhtml & "" n=1 end if for j=n to rs.fields.count-1 if rs(j)="" then val=" " else val=rs(j) end if if rs.fields(j).name="xdate" or rs.fields(j).name="startdate" then val=cFecha(val) if rs.fields(j).name="xtime" or rs.fields(j).name="starttime" then val=cHora(val) listhtml=listhtml & "" next if edit<>"" then listhtml=listhtml & "" end if listhtml=listhtml & "" rs.MoveNext i=i+1 loop listhtml=listhtml & "" if checkbox=1 then listhtml=listhtml & "" end if listhtml=listhtml & "
  " & section & " (" & rs.recordcount & ")
 " & fieldlabels(i) & " " & lg_sortby & " " & rs.fields(i).name & " ASC" & lg_sortby & " " & rs.fields(i).name & " DESC" & edittxt & "
" & rs(primarykey) & " " if len(val)>50 then listhtml=listhtml & mid(val,1,50) & ".." else listhtml=listhtml & val end if listhtml=listhtml & "[" & lcase(edittxt) & "]

" listhtml=listhtml & (pag-1)*rs.pagesize+1 & " - " max=pag*rs.pagesize if max>rs.RecordCount then max=rs.RecordCount listhtml=listhtml & max listhtml=listhtml & " | " & rs.PageCount & " " & lg_pages & " " if rs.PageCount>1 then listhtml=listhtml & "« " if pag>1 then listhtml=listhtml & "< " if pag<5 then i=1 else i=pag-4 end if do while i<=rs.PageCount and i" & i & " " i=i+1 loop listhtml=listhtml & "" & pag & " " i=pag+1 do while i<=rs.PageCount and i" & i & " " i=i+1 loop if pag> " if pag1 then listhtml=listhtml & " »
      
" else listhtml=listhtml & "" & eofmessage & "" end if rs.Close set rs=nothing Response.Write listhtml End Sub %>