<% 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 vKey = request.querystring("id") 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 chave = " & vKey SET rs = conn.execute(SQL) vMan = rs( "NW_man" ) vSub = rs( "NW_sub" ) t = rs("NW_dat") Call ZeroData(dLab) vLnk = rs( "NW_lnk" ) vTxt = rs( "NW_txt" ) rs.close conn.close %>

<%=vMan%>

<%=dLab%>

 

<%=vLnk%>  

<%=vTxt%>