<%@ LANGUAGE = "VBScript" codepage="1255"%>
<%
Dim Conn, RS
Set Conn = Server.CreateObject("ADODB.connection")
dns = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.Mappath("bulletin.mdb")
Conn.Open dns
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.ActiveConnection = Conn
Set RS =Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM hodaot order by id DESC"
RS.open sql, Conn , 1, 1
%>
washington shalom - bulletin board - וושינגטון שלום-לוח מודעות
<% do while not(rs.eof) %>
<%=rs("koteret")%>
<% response.write " "
Response.Write rs("myDate")%>
מאת
<% if rs("Email") <> "" Then
Response.Write ""
end if
Response.Write rs("Name")
if rs("Email") <> "" Then
Response.Write ""
end if
response.write " "
Response.Write rs("tochen")
response.write " "
response.write ""
rs.movenext
loop %>
<%=rs("koteret")%>
<% response.write " "
Response.Write rs("myDate")%>
