 |
Carta de Comidas
<%
Set Conn = Server.CreateObject("ADODB.Connection")
'Conn.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 rs = Server.CreateObject("ADODB.RecordSet")
SQL="SELECT * FROM Cardamomo_carta_empresas WHERE tipo_carta=1 AND estado='activo' ORDER BY id ASC;"
set rs=Conn.Execute(SQL)
if rs.BOF and rs.EOF then
Response.End
end if
dim precios()
a=1
'dim precios()
'dim nombres()
redim precios(1)
redim nombres(1)
Do While NOT rs.EOF
nombres(a-1)=rs("nombre_carta")
precios(a-1)=rs("precio_carta")
redim preserve precios(a+1)
redim preserve nombres(a+1)
response.write " " & rs("nombre_carta") & "" & rs("cuerpo_carta") & " "
rs.movenext
a=a+1
loop
%>
Precios:
<%
for i=0 to ubound(precios)-2
response.write " " & nombres(i) & " : " & precios(i) & " Euros por personna + 7% iva"
next
%>
|
|
Coffee Breaks |
|
|
|
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
SQL="SELECT * FROM Cardamomo_carta_empresas WHERE tipo_carta=2 AND estado='activo' ORDER BY id ASC;"
set rs=Conn.Execute(SQL)
if rs.BOF and rs.EOF then
Response.End
end if
Do While NOT rs.EOF
response.write "| " & rs("nombre_carta") & " | " & rs("precio_carta") & "€ + IVA |
|---|
| " & rs("cuerpo_carta") & " | | "
rs.movenext
loop
%>
|
|
