Cita:
eso me resulta de pelos pero el problema es que me muestra las tablas ordenadas alfabeticamente y al ser los meses del año los que muestra me muestra los meses comenzados en a de los primeros <select name="SBD" size="1">
<%
Const adSchemaTables = 20
Set registros = Server.CreateObject ("ADODB.RecordSet")
strFiltro = Array(Empty,Empty,Empty,"TABLE")
set rstSchema = conexion.OpenSchema(adSchemaTables,strFiltro)
Do Until rstSchema.EOF
x = split(rstSchema("TABLE_NAME"),"_")
if x(0) = "Ene" Or x(0) = "Feb" Or x(0) = "Mar" Or x(0) = "Abr" Or x(0) = "May" Or x(0) = "Jun" Or x(0) = "Jul" Or x(0) = "Ago" Or x(0) = "Sep" Or x(0) = "Oct" Or x(0) = "Nov" Or x(0) = "Dic" then
Response.write "<option value= " & rstSchema("TABLE_NAME") &">" & rstSchema("TABLE_NAME") &"</option>"
End If
rstSchema.MoveNext
Loop
%>
</select>
<%
Const adSchemaTables = 20
Set registros = Server.CreateObject ("ADODB.RecordSet")
strFiltro = Array(Empty,Empty,Empty,"TABLE")
set rstSchema = conexion.OpenSchema(adSchemaTables,strFiltro)
Do Until rstSchema.EOF
x = split(rstSchema("TABLE_NAME"),"_")
if x(0) = "Ene" Or x(0) = "Feb" Or x(0) = "Mar" Or x(0) = "Abr" Or x(0) = "May" Or x(0) = "Jun" Or x(0) = "Jul" Or x(0) = "Ago" Or x(0) = "Sep" Or x(0) = "Oct" Or x(0) = "Nov" Or x(0) = "Dic" then
Response.write "<option value= " & rstSchema("TABLE_NAME") &">" & rstSchema("TABLE_NAME") &"</option>"
End If
rstSchema.MoveNext
Loop
%>
</select>
yo lo que deceo es si algiuien sabe como puedo oredenarlos de tal forma que me keden aso Enero luego Febrero luego Marzo etc...
de antemanos muchas gracias