<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set ObjConn = Server.CreateObject ("ADODB.Connection") 'ObjConn.Open "loopserv" dbConnect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("dados\loopserv.mdb") & ";" objConn.Open dbConnect %> <% SQL = "SELECT * FROM novidades ORDER BY no_id DESC" Set ObjRS = ObjConn.Execute(SQL) If ObjRS.EOF Then Response.write "N/A" Else While Not ObjRS.EOF %>

<%=ObjRS("no_data")%> - <%=ObjRS("no_titulo")%>

<%=ObjRS("no_texto")%>

---

<% ObjRS.MoveNext Wend End If %> <% ObjConn.Close Set ObjConn = Nothing Set ObjRS = Nothing %>