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










