% rem POST On Error Resume Next info = Session("info") If not IsEmpty(Request.Form("categorie")) Then line = Request.Form("categorie") If not (IsEmpty(Request.Form("produit")) or Len(Request.Form("produit"))=0) Then line = line + " : " + Request.Form("produit") End If If IsEmpty(info) Then info = line Else If Instr(info,line) = 0 Then info = info + vbCrLf + line End If End If Session("info") = info End If rem GET info = Session("info") If not IsEmpty(Request.QueryString("categorie")) Then line = Request.QueryString("categorie") If not (IsEmpty(Request.QueryString("produit")) or Len(Request.QueryString("produit"))=0) Then line = line + " : " + Request.QueryString("produit") End If If IsEmpty(info) Then info = line Else If Instr(info,line) = 0 Then info = info + vbCrLf + line End If End If Session("info") = info End If %>
