% 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 villa = Trim( Request( "villa") ) sql2 = "Select * from Villas " sql2 = sql2 & "Where ResID = " & villa Set vRS = Server.CreateObject( "ADODB.Recordset" ) vRS.ActiveConnection = Con vRS.Open sql2 %>
|
|
||||||||||||||||||||||||||||||||||||||||||