problema con funcion y base de datos

[chs2]

Hola, tengo el siguiente problema, estoy tratando de hacer un ciclo q debe realizarse dependiendo del numero de semanas q se tenga en la base de datos. Lo hago con una funcion, pero me genera error en la instruccion for...me dice q hay un conflicto en el tipo de datos (string y me presenta en la explicacion del error [String:="Select MAX(Semana]...el campo semana es numerico....y no se que hacer....pueden ayudarme? gracias

<%


Function Max_semana()
Max_semana="Select MAX(Semana) From Produccion"
Set RS = Conn.Execute(Max_semana)
RS.Close
End Function


DIM I, J, K, dif, max_s, vector(51, 5, 4)
max_s=Max_semana()

FOR I=1 to max_s ****aqui genera el error
....

[3pies]

Prueba así la función:

Código:

Max_semana="SELECT MAX(Semana) AS maxima_semana FROM Produccion"
Set rs = Conn.Execute(Max_semana)
'ahora pasamos el campo "maxima_semana", a una variable
maxsemana = rs("maxima_semana")
'cerramos y limpiamos
rs.close
set rs = nothing

Y luego el bucle:

Código:

for i=1 to maxsemana

Salu2