problema con while y for

[maralbust]

tengo el sgte script

Código:

<!--#include file="secure/abrir_coneccion.asp"-->
<%
%>
<%
	if IsEmpty(Request("num")) then
		num = "0"
	else
		num = Request("num")
	end if
fin = Cint(num)*3
		for i = 1 to fin
			sSQL = "select * from meses order by cod_mes ASC"
			set Rs = db.execute(sSQL)

			Response.Write("i=" & i)
			Response.Write("<select name='mes"&i&"' class='bordes><option selected value="&i&">Mes</option>")
				Do While Not Rs.Eof 
					Response.Write("<option value="&Rs("cod_mes")&">"&Rs("mes")&"</option>")
					Rs.MoveNext
				Loop
				Set Rs = Nothing
			Response.Write("</select>")
		next
%>

pero no me arroja el resultado deseado se supone que debe desplegar tres select con datos cargados desde la BD pero no lo hace solo me arroja uno

por que sera eso