|
<%
Set con = Server.CreateObject("ADODB.Connection")
Con.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Server.MapPath("news/noticias.mdb"))
sql = "SELECT top 1 id, titulo, noticia,club FROM Noticias WHERE tipo = 3 ORDER BY id DESC"
set result = Con.Execute(sql)
%><%=lcase(result("titulo"))%>
<%=ucase(result("club"))%>
<%=result("noticia")%>
<%con.close()%>
|