<% '////////////////////// MENU PAGE STARTS HERE //////////////////// %> <% dts=DatePart("d", Date()) if dts<10 then dts="0"&dts End If mts=DatePart("m", Date()) if mts<10 then mts="0"&mts End If yrs=DatePart("yyyy", Date()) tdate=dts&"/"&mts&"/"&yrs %>
<% mySQL3="SELECT restDescription,creditCardType,deliveryTimeBegin,deliverytimeEnd,pdfname from tblRestaurantFeatures where restid=50" SET objRS3=Server.CreateObject("ADODB.Recordset") objRS3.open mySQL3,con set rsfav=server.createobject("ADODB.RecordSet") if session("member")<>"" then queryfav="select * from tblmemfav where userid="&session("member") rsfav.open queryfav,con if NOT rsfav.EOF then %> <%end if end if%> <% occ="" coll="" set objrs=SERVER.CreateObject("ADODB.Recordset") q2="SELECT menuID,menuitemname,menuitemdesc,menuitemcategoryid from tblMenuitems WHERE restid=50 group by menuItemCategoryID" q="SELECT * from tblMenuitems WHERE restid=50 order by menuItemCategoryID" objrs.open q,con coll="" menuid="" while not objrs.eof menuid=menuid & objrs("menuItemCategoryID")&"~"&objrs("menuid")&"~"&objrs("menuitemname")&"~"&objRs("menuitemdesc")&"|" if instr(coll,objrs("menuItemCategoryID")) then else coll=coll & objrs("menuItemCategoryID") & "," end if objrs.movenext wend spcoll=split(coll,",") menuid=split(menuid,"|") for i=0 to ubound(spcoll)-1 Q1="select * from tblMenuItemSpCategory where id=" & spcoll(i) '& " Order By CategoryRank" set rs=server.createobject("adodb.Recordset") rs.open Q1,con while not rs.eof occ=0 for b=0 to ubound(menuid)-1 menuidsp=split(menuid(b),"~") if menuidsp(0)=spcoll(i) then occ=occ+1 if occ=1 then %> <%end if%> <% q1="select * from tblmenuItemSize where menuid= " & menuidsp(1) & " and restid=50" set objrs1=server.createobject("adodb.recordset") objrs1.open q1,con %> <%objrs1.movenext wend end if %> <% next rs.movenext wend next %>
Restaurant Menu
<%=rs("categoryname")%>
<%=rs("categorysides")%>

<%favarr=favarr&menuidsp(1)&","%> <%=menuidsp(2)%>
<%=menuidsp(3)%> 		<% While not objrs1.eof%> <%if objrs1("menusize")<>"no size" then%> <%=objrs1("menusize")%>
<%end if%> <% if Instr(objrs1("menuprice"),".")=0 then mprice=objrs1("menuprice")&".00" else price1=split(objrs1("menuprice"),".") if Len(price1(1))<2 then mprice=objrs1("menuprice")&"0" else mprice=objrs1("menuprice") End If End If Response.write "$"&mprice %>
<% '////////////////////// MENU PAGE ENDS HERE /////////////////////// %>