% Set Con = Server.CreateObject( "ADODB.Connection" ) Con.Open "MenorcaVillas" pg = TRIM( Request( "pg" ) ) IF pg = "" THEN pg = 1 END IF sql = "Select ResId, VillaName from Villas " sql = sql & " Order by VillaName" Set villaRS = Server.CreateObject( "ADODB.Recordset" ) villaRS.ActiveConnection = Con villaRS.CursorType = 3 villaRS.PageSize = 10 villaRS.Open sql villaRS.AbsolutePage = pg %>
|
|
||||||||||||||||||||||||||||||||||||||||||||||||||||