1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53
| <body>
<%
dim pc, utilisateur
pc=request.form("txtFR")
nom=request.form("txtU")
if pc<>"" or nom<>"" then
set rs=Server.CreateObject("ADODB.Recordset")
varSQL = "SELECT computers.computer_name" & _
",software.software_name" & _
" FROM computers LEFT JOIN software ON computers.computer_name = software.computer_name" & _
" LEFT JOIN local_users ON computers.computer_name = local_users.computer_name"&_
" WHERE software.software_name not like 'Aggiornamento%'"&_
" AND software.software_name not like 'Correctif%'"&_
" AND software.software_name not like 'Security Update%'"&_
" AND software.software_name not like 'Mise à jour%'"&_
" AND software.software_name not like 'Update for Windows%'"&_
" AND software.software_name not like '%Hotfix %'"&_
" AND computers.computer_name='" & pc & "'"&_
" OR local_users.user_name='" & nom & "'"&_
" AND computers.operating_system_name not like '%Server'" & _
"group by computers.computer_name,software.software_name"&_
";"
rs.open varSQL, "Provider=SQLOLEDB.1;Password=sqlinfo;Persist Security Info=True;User ID=info;Initial Catalog=york_tn;Data Source=FRCARFS13"
response.write "<table border bordercolor=#000000 cellpadding=2>"
response.write"<tr>"
response.write"<th>Nom du PC</th>"
response.write"<th>Logiciel</th>"
response.write"</tr>"
do while not rs.eof
response.write "<tr align=center>"
response.write "<td>"
response.write rs("computer_name")
response.write"</td>"
response.write "<td>"
response.write rs("software_name")
response.write"</td>"
response.write "</tr>"
rs.MoveNext
loop
response.write "</table>"
rs.close
else
end if
%>
</body></html> |