Problème de conditions

**Phiss** · 31/05/2006, 14h20

Tu peux nous remettre ton code...
Celui que tu as maintenant.

**vanou** · 31/05/2006, 14h28

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
<html>
 
<head>
<title>Liste des PCs avec leurs logiciels</title>
<link rel="stylesheet" type="text/css" href="/Web000/YFR-ROT-ARC.css">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta name="Microsoft Border" content="tlb, default">
</head>
 
<body>
<form>
<input type=button name=imprimer value=Imprimer onclick="window.print();">
</form>
<%
dim pc, util
pc=request.form("txtFR")
util=request.form("txtU")
set rs=Server.CreateObject("ADODB.Recordset")
varSQL = "SELECT computers.computer_name" & _ 	
	",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 '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 software.software_name not like 'Aggiornamento%'"&_
  	" AND computers.operating_system_name not like '%Server'" 	
 
if pc<>"" then
       varSQL  = varSQL  &  "AND computers.computer_name='" & pc & "'" & _	
       	"group by computers.computer_name,software.software_name"&_
       ";"
end if
 
if util<>"" then
       varSQL  = varSQL  &  "AND local_users.user_name='" & util & "'" & _	
       "group by computers.computer_name,software.software_name"&_
       ";"
end if	
 
if pc<>"" and pc<>"" then
	   varSQL  = varSQL  &  "AND local_users.user_name='" & util & "'" AND computers.computer_name='" & pc & "'"& _	
       "group by computers.computer_name,software.software_name"&_
       ";"
end if
 
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
 
response.write date()
%>
</body></html>

l'erreur que ca m'affiche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Erreur de compilation Microsoft VBScript error '800a03ea' 
 
Erreur de syntaxe 
 
/Web005/YFR-IN2-0250.asp, line 90 
 
varSQL  = varSQL  &  "AND local_users.user_name='" & util & "'" AND computers.computer_name='" & pc & "'"& _
--------------------------------------------------------------------------------------------^

de plus le response.write varSQL que j'ai mis tte a lheure pour bien montrer que se troisieme "if" tient en compte des deux précédents

**vanou** · 31/05/2006, 15h04

Merci à vous tous pour votre aide ma foi bien precieuse

**Phiss** · 31/05/2006, 15h44

J'ai mis en gras ce que tu avais a modifier.
Il y a aussi

Envoyé par vanou

voici mon code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
<%
dim pc, util
pc=request.form("txtFR")
util=request.form("txtU")
set rs=Server.CreateObject("ADODB.Recordset")
varSQL = "SELECT computers.computer_name" & _ 	
	",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 '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 software.software_name not like 'Aggiornamento%'"&_
  	" AND computers.operating_system_name not like '%Server'" 	

if pc<>"" and util = ""then
       varSQL  = varSQL  &  "AND computers.computer_name='" & pc & "'" & _	
       	"group by computers.computer_name,software.software_name"&_
       ";"
end if
 	
if util<>"" and pc= ""then
       varSQL  = varSQL  &  "AND local_users.user_name='" & util & "'" & _	
       "group by computers.computer_name,software.software_name"&_
       ";"
end if	

if pc<>"" and util<>"" then
	   varSQL  = varSQL  &  "AND local_users.user_name='" & util & "' AND  computers.computer_name='" & pc & "'"& _	
       "group by computers.computer_name,software.software_name"&_
       ";"
end if
	
%>
</body></html>

**vanou** · 31/05/2006, 16h22

merci bcp pour ton aide

J'ai fais comme ca et ca marche aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
if pc="" then
       varSQL  = varSQL  &  "AND local_users.user_name='" & util & "'" & _	
       	"group by computers.computer_name,software.software_name"&_
       ";"
end if
 
if util="" then
       varSQL  = varSQL  &  "AND computers.computer_name='" & pc & "'" & _	
       "group by computers.computer_name,software.software_name"&_
       ";"
end if	
 
if pc<>"" and util<>"" then
	  varSQL  = varSQL  &  "AND local_users.user_name='" & util & "' AND computers.computer_name='" & pc & "'"&_ 
	  "group by computers.computer_name,software.software_name"&_
	";"
end if

bye bye

**Phiss** · 31/05/2006, 17h13

Et si pc et util sont vide cela donne quoi avec ton code?

**vanou** · 01/06/2006, 09h01

quand les deux sont vide j'ai mis une alert

Problème de conditions

ASP

Discussions similaires

Partager

Partager