![]() |
|
||||||||||||||
|
|||||||||||||||
|
<%
'Dim Conn
'Dim objRS
Dim strSQL
Dim id,h_doble_standard,h_doble_superior,suite,h_doble_s_doble_v,desayuno,cama_cuna
Set Conn = Server.CreateObject("ADODB.Connection")
Set objRS = Server.CreateObject("ADODB.RecordSet")
'Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("./datos/cardamomo.mdb")
Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\XVRT\cardamomosiguenza.com\Data\cardamomo.mdb"
strSQL = "SELECT * FROM Cardamomo_tarifa_habitacion"
objRS.Open strSQL, Conn
objRS.MoveFirst
id=objRS("id")
h_doble_standard=objRS("h_doble_standard")
h_doble_superior=objRS("h_doble_superior")
suite=objRS("suite")
h_doble_s_doble_v=objRS("h_doble_s_doble_v")
desayuno=objRS("desayuno")
cama_cuna=objRS("cama_cuna")
objRS.Close
Conn.Close
%>
|
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||