<% kSel = CLng(request.querystring("sl")) Select Case kSel Case 1 selo = "Arte & Música" logo = "img1.jpg" coluna = "coluna1.asp" Case 2 selo = "Editora Landmark" logo = "img2.jpg" coluna = "coluna2.asp" Case 3 selo = "Landmark Digital" logo = "img3.jpg" coluna = "coluna3.asp" End Select If request.querystring("a") = "" Then ano = DatePart("yyyy",Now()) Else ano = request.querystring("a") 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