ASP - funcion con base de datos

escribi este codigo que intenta traer un conteo de registros de una tabla a una variable para hacer un ciclo. pero me genera error ...alguien puede ayudarme para resolver ese problema? (La variable semana es numerica)

<%
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 ******genera error de tipo de datos....muestra "Select- MAX..."
%>

principalmente creo q no estas retornando la variable nada en la funcion Max_semana, por lo q no le asignas nada a max_s,