<% lm=request("lm") keyword=bsql(html(trim(request("keyword")))) if lm<>"" then if not checknum(lm) then call msg("Parameter error","") else lm=clng(lm) set rs=server.CreateObject("adodb.recordset") sql="select id_lm,fid,title_lm_en from devices_lm where id_lm="&lm&"" rs.open sql,conn,1,1 if not rs.eof then lm=rs("id_lm") title_lm=rs("title_lm_en") dao=" > "&title_lm sq=" and lm="&lm&"" pra="&lm="&lm&"" end if rs.close set rs=nothing end if else ' set rs=server.CreateObject("adodb.recordset") ' sql="select id_lm,fid,title_lm_en from devices_lm where fid=0 order by px desc,id_lm desc" ' rs.open sql,conn,1,1 ' if not rs.eof then ' lm=rs("id_lm") ' title_lm=rs("title_lm_en") ' dao=" > "&title_lm ' sq=" and lm="&lm&"" ' pra="&lm="&lm&"" ' end if ' rs.close ' set rs=nothing dao="" sq="" pra="" end if %> <%call getLmHead("devices_lm",lm,"Production testing equipment")%> <%=Mtitle%>