Choose your language: español english
EL HOTEL EMPRESAS QUÉ HACER RESTAURANTE RESERVAS Y TARIFAS CONTACTAR
<% Set Conn = Server.CreateObject("ADODB.Connection") 'Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\var\www\vhosts\cardamomosiguenza.com\httpdocs\datos\cardamomo.mdb" Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=/var/www/vhosts/cardamomosiguenza.com/httpdocs/Data/cardamomo.mdb" Set rs = Server.CreateObject("ADODB.RecordSet") SQL="SELECT * FROM Cardamomo_restaurante WHERE tipo_plato=1 AND estado='activo' ORDER BY id ASC;" 'response.write SQL set rs=Conn.Execute(SQL) if rs.BOF and rs.EOF then 'response.write "No hay datos
" Response.End end if ''rs.movefirst a=0 b=0 Do While NOT rs.EOF if b=a then clase="tdblack" ancho=16 a=a+1 else clase="" ancho=30 b=a end if if rs("estado")="activo" then sEstado="on" else sEstado="off" end if response.write "" rs.movenext loop %> <% 'Set Conn1 = Server.CreateObject("ADODB.Connection") 'Conn1.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\cardamomo\datos\cardamomo.mdb" 'Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\XVRT\cardamomosiguenza.com\Data\cardamomo.mdb" Set rs1 = Server.CreateObject("ADODB.RecordSet") SQL1="SELECT * FROM Cardamomo_restaurante WHERE tipo_plato=2 AND estado='activo' ORDER BY id ASC;" 'response.write SQL set rs1=Conn.Execute(SQL1) if rs1.BOF and rs1.EOF then 'response.write "No hay datos
" Response.End end if ''rs.movefirst a=0 b=0 Do While NOT rs1.EOF if b=a then clase="tdblack" ancho=16 a=a+1 else clase="" ancho=30 b=a end if if rs1("estado")="activo" then sEstado="on" else sEstado="off" end if response.write "" rs1.movenext loop %> <% 'Set Conn2 = Server.CreateObject("ADODB.Connection") 'Conn2.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\cardamomo\datos\cardamomo.mdb" 'Conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\XVRT\cardamomosiguenza.com\Data\cardamomo.mdb" Set rs2 = Server.CreateObject("ADODB.RecordSet") SQL2="SELECT * FROM Cardamomo_restaurante WHERE tipo_plato=3 AND estado='activo' ORDER BY id ASC;" 'response.write SQL set rs2=Conn.Execute(SQL2) if rs2.BOF and rs2.EOF then 'response.write "No hay datos
" Response.End end if ''rs.movefirst a=0 b=0 Do While NOT rs2.EOF if b=a then clase="tdblack" ancho=16 a=a+1 else clase="" ancho=30 b=a end if if rs2("estado")="activo" then sEstado="on" else sEstado="off" end if response.write "" rs2.movenext loop %>

CARTA HOTEL CARDAMOMO

FRIOS

" & rs("nombre_plato") & "" & rs("precio_plato") & " €

CALIENTES

" & rs1("nombre_plato") & "" & rs1("precio_plato") & " €

POSTRES

" & rs2("nombre_plato") & "" & rs2("precio_plato") & " €
7% IVA not included