<% 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 %> EDITORA LANDMARK