<%
set cn = server.CreateObject("ADODB.Connection")
cn.Open("dsn=Halong")
if (request("del") = "true") then
strSQL = "delete from temp where Flat_ID=" & request("Flat_ID")
cn.execute(strSQL)
end if
if (request("reset") = "true" or request("back")="true") then
strSQL = "delete from Temp"
cn.execute(strSQL)
end if
strSQL = "select * from Category where Cat_English <> ''"
set rsCategory = cn.execute(strSQL)
if (request("category") = "") then
if not (rsCategory.EOF) then
category = rsCategory("Cat_ID")
else
category = "NULL"
end if
else
category = request("category")
end if
strSQL = "select * from Menu where Menu_English <> '' and Cat_ID=" & category
set rsMenu = cn.execute(strSQL)
strSQL = "select Flat_ID, Menu_English, Nombre from temp, Menu where temp.Flat_ID = Menu.Menu_ID"
set rsList = cn.execute(strSQL)
nom =request.cookies("nom")
prenom =request.cookies("prenom")
personnes = request.cookies("personnes")
tel =request.cookies("tel")
email =request.cookies("email")
date_res =request.cookies("date_res")
heure_res =request.cookies("heure_res")
min_res =request.cookies("min_res")
%>