Code tin moi

Tin mới; Tinmoi.asp

<%       Dim conn, strconn, rs, sql

            Set conn = Server.CreateObject("ADODB.Connection")

            strconn = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Baitap1.mdb")

                                    conn.Open strconn

                                    Set rs = Server.CreateObject("ADODB.Recordset")

                                    sql="Select Top 3 * From Tintuc order by Ngaydang Desc"

                                    rs.Open sql,conn,3,2

                                    response.Write("<marquee direction = 'up' height ='150'>")

                                    while not rs.eof

                                    response.Write(rs("Tieude") & "<br>")

                                    rs.movenext

                                    wend

                                    rs.close

                                    conn.close

                                    %>&nbsp;</th>