de string a integer

[strike20]

hola beuno tengo lo siguiente
'donde tamanio es el numero de preguntas de una encuesta, resultante de una consulta...
por ejemplo daria tamanio=24

<%dim tamanio%>
<%
dim vector(tamanio)
for i=0 to tamanio
vector(i)=i
next
%>
<%
for i=o to ubound(vector)
response.write (i)
next
%>

deberia salir, pero me dice que tamanio es string y deberia ser integer....como podria solucionarlo? si quiero que llene el vector de acuerdo al numero de registros que encontro...gracias

[u_goldman]

dim vector(cint(tamanio))

[strike20]

hola beuo mesale error man

Tipo de error:
Error de compilación de Microsoft VBScript (0x800A0402)
Se esperaba una constante entera
/probando/2.asp, línea 14, columna 11
dim vector(cint(tamanio))

[u_goldman]

Dim vector()
Redim vector(cint(tamano))

Saludos

[strike20]

hoal beuno me salio asi man y gracias::::

<%dim vector()
for i=0 to tamanio
redim vector(i)
vector(i)=i
next
%>

<%for i=1 to ubound(vector)
response.Write(i)
next
%>