<%@LANGUAGE=VBScript%> <% MY_CONN_STRING = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("rhc_database.mdb") & ";" & _ "Persist Security Info=True" ' You may need to customize the database connection string Set Conn = server.createobject("ADODB.Connection") Conn.open MY_CONN_STRING set RS = Server.CreateObject("ADODB.Recordset") sql= "SELECT * FROM my order by t desc" RS.Open SQL, Conn, 3, 1, &H0001 ' Open recordset with appropriate parameters. rs.PageSize=5 ' 20 records per page rscount=rs.RecordCount rspage=rs.PageCount if request.querystring("page")="" then page=1 else page=cint((request.querystring("page"))) end if %> Rent a Villa - Premier Properties
<% rs.Close()%>