<% Dim objCommand, objrs, objrs2 Set objCommand = Server.CreateObject("ADODB.Command") ' crea el objeto Command set objrs = server.createobject("ADODb.RecordSet") ' da valores a las propiedades del comando objCommand.ActiveConnection = strConnect %>
ventas@denes.com.mx
+81 83-332202



















Desayunos

<% objCommand.CommandText ="SELECT Descripcion,Precio FROM rh.dbo.Comedor C INNER JOIN rh.dbo.TipoComida T ON T.ID_Comida=C.Desayuno1 OR T.ID_Comida=C.Desayuno2 OR T.ID_Comida=C.Desayuno3 OR T.ID_Comida=C.Normal1 OR T.ID_Comida=C.Normal2 OR T.ID_Comida=C.Especial1 OR T.ID_Comida=C.Especial2 WHERE Fecha = CONVERT(VARCHAR(10), GETDATE(), 103) AND (TipoComida='Desayuno' OR TipoComida='Normal') ORDER BY 2" objCommand.CommandType = adCmdText Set objrs = objCommand.Execute if not objrs.eof then objrs.MoveFirst end if while not objrs.eof Cadena="" Cadena=Cadena&"" response.write Cadena objrs.movenext wend objrs.close set objrs =nothing %>
Menu del Dia
Platillo Precio
"& objrs("Descripcion") &""& objrs("Precio") &"