Sub Displayfiltering
' debugwrite "In display displayfieldcount=" & displayfieldcount
response.write "<form name=filter action='shopfiltering.asp' method=post>"
Response.write Productfilteringtable
Response.write productfilteringrow
Response.write productfilteringcolumn & getlang("langEditSort") & Productfilteringcolumnend
'Response.write productfilteringcolumn & getlang("langEditSort") & " 2" & Productfilteringcolumnend
Response.write productfilteringcolumn & getlang("langEditDisplay") & Productfilteringcolumnend      
Response.write "</tr>"
Response.write productfilteringrow
Response.write ProductFilteringColumn
response.write " "
generateSelectV sortcaptions,sortnames,sortfield,"sortfield", sortcount, getlang("langCommonSelect")
Response.write "</p><p align='center'> "
GenerateSelectV Sortupdownnames,Sortupdownvalues,sortupdown,"sortupdown", sortupdowncount,""
response.write Productfilteringcolumnend
'Response.write ProductFilteringColumn
'response.write " "
'GenerateSelectV sortcaptions,sortnames,sortfield2,"sortfield2", sortcount, getlang("langCommonSelect")
'response.write "</p><p align='center'> "
'GenerateSelectV Sortupdownnames,Sortupdownvalues,sortupdown2,"sortupdown2", sortupdowncount,""
'response.write Productfilteringcolumnend
Response.write ProductFilteringColumn
GenerateSelectV yfieldcaptions,yfieldnames,SelectField,"SelectField", yfieldcount, getlang("langCommonSelect")
response.write "<br>"
Response.write "<input type='text' name='SelectValue' size='20'>"
response.write Productfilteringcolumnend
response.write "</tr>"
Response.write productfilteringrow
'Response.write ProductFilteringColumn
'response.write Productfilteringcolumnend
Response.write ProductFilteringColumn
If getconfig("Xbuttonreset")="" then
     Response.Write("<input type=reset value=""" & getlang("langCommonReset") & """>")
   else
     Response.Write("<img src='" & getconfig("xbuttonreset") & "' onclick='document.filter.reset()'>")  
end if    
response.write Productfilteringcolumnend
Response.write ProductFilteringColumn
shopbutton getconfig("xbuttoncontinue"),getlang("langCommonContinue"),"action"
response.write Productfilteringcolumnend
Response.write "</tr>"
response.write "</table>"
response.write "</form>"  
end sub