Problema con una variable

[Adler]

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

[u_goldman]

Bueno, no me detuve a analizar tu código, pero así rápido veo que estás haciendo operaciones con cadenas 1 + "20" puede darte un resultado inesperado, a pesar de que dicen que todos los tipos son variant, esto no aplica muchas veces.

Mi sugerencia es revisar cada operación y hacer los casts correspondientes o en su defecto utilizar el tipo de dato correcto, desgraciadamente VB nos permite estas prácticas que no son necesariamente buenas, sobre todo cuando quieras irte a otras plataformas.

Saludos

[Adler]

Gracias por responder

En cuanto a las operaciones están correctas. El problema que tengo es en la codicional

<%if I < entero_total then%>,

En teoría debería imprimir: 1,2,3,4,5 por imprime 1,2,3,4,5,

Si en la condicional uso la variable "redondea"

<%if I < redondea then%>, (pero esta variable no quiero usarla)

Imprime: 1,2,3,4,5

Así que, ¿por qué con la variable "entero_total" se produce ese error?

Gracias

[saavedralar]

entero_total es un string.
( Lo sabes con TypeName(entero_total) )

Para evitar la ultima coma en el ciclo For coloca:

<% If I < CInt(entero_total) then %>,

[Adler]

Gracias saavedraalar, no se me había ocurrido

[u_goldman]

A mi tampoco

[Adler]

Claro que a tí tambien te doy las gracias.
Lo siento, fueron las prisas