<%if (request("codice")<>"" or request("descrizione")<>"")then
Dim nrighe
nrighe = 0
listino=session("listino")
iduser=session("iduser")
set archivio = server.createobject("ADODB.Connection")
archivio.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.mappath(".\database\serviziweb02.mdb")
set rs = server.createobject("ADODB.Recordset")
sql="SELECT * FROM YMDE_Listini where cod_listino='"+ listino + "' and cod_clifor='"+iduser+"'"
if request("codice")<>"" then
sql=sql + " and (cod_art like '%" + request("codice")+ "%'"
sql=sql + " or cod_art_cli like '%" + request("codice")+ "%')"
end if
if request("descrizione")<>"" then
sql=sql + " and des_articolo like '%" + request("descrizione")+ "%'"
end if
sql=sql + " order by cod_art_cli"
'response.Write(sql)
rs.open sql , archivio
setlocale("it")
%>
<%
rs.close
archivio.close
set archivio = nothing
end if %>