%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Set objConn = Server.CreateObject( "ADODB.Connection" ) Set Con2 = Server.CreateObject( "ADODB.Connection" ) Set villaRS = Server.CreateObject( "ADODB.Recordset" ) Set dteRS = Server.CreateObject( "ADODB.Recordset" ) objConn.Open "MenorcaVillas" Con2.Open "MenorcaVillas4" villaRS.ActiveConnection = objConn dteRS.ActiveConnection = Con2 dteRS.CursorType = 3 dteRS.PageSize = 60 Villa= TRIM(Request ("Villa") ) aVilla = TRIM(Request ("aVilla") ) sqlString = "SELECT * FROM Villas " sqlString = sqlString & "Where villaID = " & Villa villaRS.Open sqlString sql2 = "Select * from Availability " sql2 = sql2 & "Where accomID = " & aVilla dteRS.Open sql2 %>
|
||||||||||
|
||||||||||