Julho 2004
Agosto 2004
Setembro 2004
Outubro 2004
Janeiro 2005
Fevereiro 2005
Março 2005
Abril 2005
Maio 2005
Iqual desse blog no canto direito ( VEJA TAMBÉM )
Esse é o meu código
<select name="site" onChange="javascript:formHandler()" class="campo03"> <option value="" selected>Posts por data</option> <% '-------------------------------------------------- ' FUNÇÃO FORMATAÇÃO DATA FORMATO NACIONAL (BRASIL) '-------------------------------------------------- Function ForData(data, Forma) Dim Dia, Mes, Ano, Hora, Minuto If Not IsDate(data) Then Exit Function End If Dia = "" & Right("00" & Cstr(Day(data)), 2) Mes = "" & Right("00" & Cstr(Month(data)), 2) Ano = "" & Right("0000" & Cstr(Year(data)), 4) Hora = "" & Right("00" & Cstr(Hour(data)), 2) Minuto = "" & Right("00" & Cstr(Minute(data)), 2) Select Case Forma Case 1 ForData = CStr(Trim(Dia) & "/" & Trim(Mes) &"/"& Trim(Ano)) Case 2 ForData = CStr(Trim(mes) & "/" & Trim(dia) &"/"& Trim(ano)) End Select End Function dim data2 while not RS.EOF if data2 <> rs("datapost") then 'response.write rs("datapost") & " " response.write "<option value=""arquivo.asp?arquivo="&ForData(rs("Datapost"),2)&""">"& ForData(rs("Datapost"),1) &"</option>" data2 = rs("datapost") end if RS.movenext wend SQL2 = "Select titblog From login" Set RS = ConnDB.Execute(SQL2) %> </select>
Eu já andei procurando em alguns programas de blog, mas não achei nada da forma que estou querendo... se vc souber de um por favor me diga onde posso visualizar o seu código.
Obrigado