<%ConnexionBD()%> Hotelite

Quick search


<% SQLCat = "SELECT * FROM Category Where NomCategory_EN <> '' Order By CategoryOrder" ChargerRecord(SQLCat) If Not Record.Eof And Not Record.Bof Then While Not Record.Eof And Not Record.Bof %> <% SQL = "SELECT NoSousCategory, NoCategory FROM SousCategory Where NoCategory = "& FormaterSQL(record("NoCategory")) &" Order By SousCategoryOrder" ChargerRecordSet(SQL) If Not RecordSet.Bof And Not RecordSet.Eof Then %> <%Else%> <% End if If Int(Request("NoCategory")) = Record("NoCategory") then SQLSousCat = "SELECT * FROM SousCategory Where NoCategory = "& FormaterSQL(Request("NoCategory")) &" And NomSousCategory_EN <> '' Order By SousCategoryOrder" ChargerRecordSet(SQLSousCat) If Not RecordSet.Bof And Not RecordSet.Eof Or Record("HasSousCat") = 0 Then If Record("HasSousCat") <> 0 then While Not recordSet.Eof And Not RecordSet.bof %> <%RecordSet.MoveNext If Not RecordSet.Eof And Not RecordSet.Bof Then%> <% RecordSet.MoveNext End if Wend Else End if Else %> <% End if End if Record.MoveNext Wend Else %> <% End if %>
&NoSousCategory=<%=RecordSet("NoSousCategory")%>"><%=Record("NomCategory_EN")%>
<%If Record("HasSousCat") = 0 then%> ?NoCategory=<%=Record("NoCategory")%>&NoSousCategory=0"> <%Else%> ?NoCategory=<%=Record("NoCategory")%>"> <%End if%> <%=Record("NomCategory_EN")%>
     
     
   
This section is empty.
  
There is no category
<% SQL = "SELECT *,DescriptionProduit_EN FROM Product left JOIN SousCategory ON Product.NoSousCategory = SousCategory.NoSousCategory Where NomProduct_EN <> '' And NoProduct = "& FormaterSQL(Request("NoProduct")) &" Order by ProductOrder" ChargerRecord(SQL) %>


<%=Record("NomSousCategory_EN")%>

" width="200" height="200" border="1">

 <%=Record("NomProduct_EN")%>

<%=Record("DescriptionProduit_EN")%>