Meses Dinamicamente

[feasso 0]

Preciso de um código que me traga mês/ano dinamicamente.

 

Será o mês atual e mais 6 meses para frente.

 

Ela deverá ficar assim:

 

<tr>
  <td width="220">Cursos Abertos</td>
  <td width="40">Carga Horária</td>
  <td>dez/2009</td>
  <td>jan/2010</td>
  <td>fev/2010</td>
  <td>mar/2010</td>
  <td>abr/2010</td>
  <td>mai/2010</td>
  <td>jun/2010</td>
</tr>

Como faço isso ?

[xanburzum 169]

pega tipo um controle calendario, com a opcao de escolher as datas

ou apenas um while nos dados

<%
Option Explicit

dim objConn, objRS, objRS2, strSQL
  
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.Recordset")
Set objRS2 = Server.CreateObject("ADODB.Recordset")
  

objConn.ConnectionString = Server.MapPath("dropdowns.mdb")
objConn.Provider = "Microsoft.Jet.OLEDB.4.0"
objConn.Open
  

Sub showDropDownList(c, r, table)


strSQL = "SELECT * FROM " & table & "

Set r = c.Execute(strSQL)


if not r.eof = false then
Response.Write "<form name=""form1"">"
Response.Write "<select name=""dropdownlist"">" & vbCrLf
Response.Write "<option selected=""selected"" value="""">Choose....</option>"


While r.EOF = false
Response.Write "<option value=""dynamic_dropdown_lists.asp"">" 
_ & r.Fields("Title").Value & "</option>" & vbCrLf


r.movenext
Wend
end if

Response.Write "</select></form>" & vbCrLf

End Sub
  
%>

[Mário Monteiro 179]

Só usar um simples for para listar

 

<tr>
  <td width="220">Cursos Abertos</td>
  <td width="40">Carga Horária</td>
<%
For Aux = 0 To 6
Response.Write(MonthName(Month(DateAdd("m", Aux, Now))) & "/" & Year(DateAdd("m", Aux, Now)))
Next
%>
</tr>