anos anteriores
<%
ano = DatePart("yyyy",Now())
Do
ano = ano - 1
%><%=ano%>
<%
Loop Until ano=2003
%> |
<%
Function ZeroData(dLab)
aa = DatePart("yyyy",t)
aL = Right(aa,2)
ml = DatePart("m",t)
ml = Right(("0" & ml),2)
dl = DatePart("d",t)
dl = Right(("0" & dl),2)
hl = DatePart("h",t)
hl = Right(("0" & hl),2)
nl = DatePart("n",t)
nl = Right(("0" & nl),2)
sl = DatePart("s",t)
sl = Right(("0" & sl),2)
dLab = dL & "/" & mL & "/" & aa
hLab = hL & ":" & nL
End Function
set conn = server.createobject("adodb.connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _
Server.MapPath ("../Dados/arquetipo.mdb")&";Persist Security Info=False"
SQL = "SELECT * FROM news WHERE NW_sel=2 ORDER BY NW_dat DESC"
Set rs = conn.execute(SQL)
While not rs.EOF
t = rs("NW_dat")
Call ZeroData(dLab)
ano1 = DatePart("yyyy",dLab)
If CLng(ano1) = CLng(ano2) Then
%> | <%=Left(dLab,5)%> |
|
<%=rs("NW_man")%>
<%=rs("NW_sub")%> |
&dt=<%=dLab%>" class="class5">saiba
mais |
<%
End If
rs.MoveNext
Wend
rs.close
conn.close
%> |
|
