% If request.querystring("a") = "" Then ano = DatePart("yyyy",Now()) Else ano = request.querystring("a") End If If request.querystring("id") = "" Then vPag = "" Else vPag = "new-shw.asp?id=" & request.querystring("id") End If 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) vDat = dL & "/" & mL & "/" & aL dLab = dL & "/" & mL & "/" & aa hLab = hL & ":" & nL End Function %>
Arte & Música |
Editora Landmark<%=selo%> |
Landmark Digital<%=selo%> |
||
ANOS ANTERIORES: <% ano = DatePart("yyyy",Now()) y = 0 Do y = y + 1 ano = ano - 1 If y = 1 Then %><%=ano%><% Else %>, <%=ano%><% End If Loop Until ano=2003 %>