dine-in specials
<%
function fixnum(x,n)
num_text = ""
tmp_text = cstr(x)
for cc = 1 to len(tmp_text)
if instr("0987654321.",mid(tmp_text,cc,1))<>0 then num_text = num_text + mid(tmp_text,cc,1)
next
k = instr(num_text,".")
if k=0 and n>0 then
num_text = num_text + "."+string(n,"0")
end if
if k>0 then
if n=0 then num_text = left(num_text,k-1)
if n>0 then
if (len(num_text) - k)>=n then num_text = left(num_text,k+n)
if (len(num_text) - k)
<%
set ks = connection.execute("select * from poci_specials order by listorder;")
do until ks.eof
if not(ks("description")="") then
%><%= ks("description") %>
........
<% if ks("entree")<>0 then %>
Entree $ <%= fixnum(ks("entree"),2) %>
<% end if %>
<% if ks("main")<>0 then %>
Main $ <%= fixnum(ks("main"),2) %><% end if %>
|
<%
end if
ks.movenext
loop
ks.close
connection.close
%> |
|