<%
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("db/downloadDoc.mdb")
sql = "SELECT * FROM TableDoc order by docID DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1,3
if not rs.eof then
rowCount = 0
Do While Not rs.EOF And rowCount < 5
%>
<%
rowCount = rowCount + 1
rs.MoveNext
Loop
end if
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%>
<%
tableSelect = "PageTimeTable"
Set conn=Server.CreateObject("ADODB.Connection")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("backoffice/db/contentHTML.mdb")
Sql="Select * from "& tableSelect &""
Set rs =Server.CreateObject("ADODB.Recordset")
rs.open Sql,Conn,1,3
If Not rs.EOF Then
Response.write rs("contentDetail")
Else
Response.write "ไม่พบข้อมูลในฐานข้อมูล"
end if
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>