%@ Language=VBScript %>
<%
Response.Buffer="true"
%>
הגנת הטבע תל-אביב
<%
dim conn
set conn=Server.CreateObject("ADODB.connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & server.MapPath("DB\DB.mdb") & ";Jet OLEDB:Database Password=oded2723"
dim rs, sql
set rs=Server.CreateObject("ADODB.recordset")
sql="select * from news"
rs.Open sql,conn,3,3
rs.MoveFirst
%>
<% rs.Close
%>