| 12
 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> |