Estoy montando una paginación muy simple, y el problema que tengo es que parece que no se lee una variable en un momento determinado.
Código:
<%
'=========================================================
Function RoundTo(intNum, intRn)
RoundTo= Int((intNum / intRn)+.9) * intRn
End Function
'=========================================================
Function entero(numero)
Dim decimal
select case numero
case "00"
decimal="0"
case ""
decimal="0"
case else
decimal="1"
end select
entero=decimal
End Function 'entero
'=========================================================
dividir_resp = 84 / 20
valor = Mid(dividir_resp,3,2)
total = dividir_resp + entero(valor)
entero_total = Mid(total,1,1)
redondea = RoundTo(dividir_resp,1)
For I = 1 to entero_total
%>
<b><%= I %></b>
<%if I < entero_total then%>,
<%
end if
Next
%>
<br>
entero_total <%=entero_total%>
<br>
redondea <%=redondea%>
La variable "entero_total" funciona correctamente en el bucle, pero en la condición no funciona.
Según el ejemplo de código que os muestro, el resultante tendría que imprimir:1,2,3,4,5 pero imprime: 1,2,3,4,5, (la última coma es el problema). Si en lugar de usar la variable "entero_total" uso "redondea", todo lo hace correcto. Pero para usar la variable "redondea" tengo que usar la función "RoundTo" que en este caso no me útil. Si compruban el código, tanto la variable "entero_total" como "redondea" es 5 (que son el número de páginas). Así que mi pregunta es ¿Cómo puede funcionar con una variable pero con la otra no?
Gracias