 |
|
|
|
|
|
|
|
CARTA HOTEL CARDAMOMO |
|
|
FRIOS |
<%
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("nombre_plato") & " | " & rs("precio_plato") & " € | |
"
rs.movenext
loop
%>
|
|
CALIENTES |
<%
'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("nombre_plato") & " | " & rs1("precio_plato") & " € | |
"
rs1.movenext
loop
%>
|
|
POSTRES |
<%
'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("nombre_plato") & " | " & rs2("precio_plato") & " € | |
"
rs2.movenext
loop
%>
|
| 7% IVA not included |
|
