<% Set connect2 = Server.CreateObject("ADODB.Connection") connect2.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data/chat.mdb") set chats = Server.CreateObject("ADODB.RecordSet") SQL="select * from chat order by Tarih2 DESC" chats.open SQL,connect2,1,3 %> <% For l = 1 To chats.recordcount %> <% if chats("tarih")=date then %> <%=chats("rumuz")%>
<%=chats("mesaj")%>

---

<% end if %> <% chats.MoveNext NEXT chats.close set chats = Nothing %>