<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% Set Conn= server.createobject("adodb.connection") DSNtest = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath("dados/database.mdb") Conn.Open DSNtest Set RS= Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM Galeria order by id" RS.Open SQL, conn, 3 %>
<% rs.Close Set rs = Nothing Set Conex = Nothing %>