Please selected Take Away Items:
<% TestTxt= Request.form("LastTxt") aaa = 1 If Cint(aaa) > 0 Then aaa = InStr(TestTxt,"&") Do While Cint(aaa) > 0 bbb = Mid(TestTxt,1,aaa-1 ) sss =InStr(bbb,"=") Ques = Mid(bbb,1,sss-1) Ans = Mid(bbb, SSS+1) TestTxt = Mid(TestTxt,aaa+1) aaa = InStr(TestTxt,"&") bbb = Mid(TestTxt,1,aaa-1 ) sss =InStr(bbb,"=") QuesA = Mid(bbb,1,sss-1) AnsA = Mid(bbb, SSS+1) TestTxt = Mid(TestTxt,aaa+1) aaa = InStr(TestTxt,"&") IF AnsA > 0 ANd Ans > 0 and Ques<> "TotAmt" Then %> <% End IF Loop TotAmt = Request.Form("TotAmt") %> <% Else %> <% End IF %>
Item Qty Amt
<%=Ques%> 
 
 
Total Amt
 
No Item Selected
My Particulars
Mr./ Mrs./ Mdm / Ms <%=Salutation%> 
Name: <%=Session('Name')%>
Email Address: <%=Session('email')%>
Contact Person: <%=Session('Contact_Person')%>
Tel Numbers: Home <%=Session('Home_No')%>
  Office <%=Session('Office_No')%>
  Hp/Pgr <%=Session('HpPgr')%>
Fax Number: <%=Session('Fax_no')%>
Address: <%=Add)%>
Location: <%=Loc%>
Postal Code: <%=Session('Postal_Code')%>
Function Information
No of Persons: <%=No_of_Person%>
Day: <%=FDay%>
Date: <%=Date_Day%> Day   <%=Date_Month%> Month  <%=Date_Year%>Year
Time: <%=DTime%>
Meal Time: <%=MealTime%> 
  Others, pls specify <%=Other_Meal_Time%>
Change of Items (if applicable)
Change of Items: 1. From <%=ChangeofItemFrom1%>  to <%=ChangeofItemTo1%>
  2. From <%=ChangeofItemFrom2%>  to <%=ChangeofItemTo2%>
  3. From <%=ChangeofItemFrom3%>  to <%=ChangeofItemTo3%>
Request: <%=Req%>