<% If cant_paginas > 1 Then If Request.QueryString("c") <> "" Then catg = "c="&Request.QueryString("c")&"&" End If Function getFileName() lsPath = Request.ServerVariables("SCRIPT_NAME") arPath = Split(lsPath, "/") GetFileName =arPath(UBound(arPath,1)) End Function Response.Write "
" If pagina_actual > 1 Then Response.Write "Anterior " End If For I = 1 To cant_paginas If I = pagina_actual Then Response.Write ""&I&"" Else Response.Write " "& I &" " End If Next If pagina_actual < cant_paginas Then Response.Write " Siguiente" End If Response.Write "
" End If %>