الرئيسية الرئيسية الرئيسية الرئيسية الرئيسية الرئيسية الرئيسية sepBu8


<% Session.CodePage = 65001 set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open(Server.Mappath("aziz.mdb")) sql="select * from t_in order by id" set rs = Server.CreateObject("ADODB.recordset") rs.Open sql,conn,adOpenKeyset %>

<%do while not rs.eof%> <%rs.movenext%> <%if not rs.eof then%> <%rs.movenext()%> <%end if%> <%loop%>
" width=100 height=100>
<%=rs("title")%>
<%=rs("message")%>
<%=rs("link")%>
" width=100 height=100>
<%=rs("title")%>
<%=rs("message")%>
<%=rs("link")%>