<% 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 TOP 3 * FROM news WHERE NW_sel=2 ORDER BY NW_dat DESC, NW_man ASC" Set rs = conn.execute(SQL) x = 0 While not rs.EOF x = x + 1 t = rs("NW_dat") Call ZeroData(dLab) %> <%if x=1 OR x=2 THEN%><%End If%> <% rs.MoveNext Wend rs.close conn.close %>

<%=dLab%>	<%=rs("NW_man")%> <%=rs("NW_sub")%>	" class="class5" target="_top">saiba mais