dim Conn
dim rs
Set Conn = Server.CreateObject("ADODB.Connection")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("../data/website.asp")
Conn.Open StrCnn
set rs = Server.CreateObject("ADODB.recordset")
sqlstr="select * from LeaveWord order by id desc"
rs.open sqlstr,conn,1,1