Problème de conditions

**vanou** · 31/05/2006, 11h27

Bonjour à tous,
Je vien de commencer asp et je ne comprend pas mon erreur qui d'apres moi vient de mes condition if et elseif. Le resultat recu est vide
Merci de maider

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
74
75
76
77
78
79
80
<%
dim pc, util
pc=request.form("txtFR")
util=request.form("txtU")
 
if pc<>"" then
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 computers.computer_name='" & pc & "'"&_
  	" 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 software.software_name not like 'Aggiornamento%'"&_
  	" AND computers.operating_system_name not like '%Server'" & _	
	"group by computers.computer_name,software.software_name"&_
  	";"
 
elseif util<>"" then
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 local_users.user_name='" & util & "'"&_
  	" 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 software.software_name not like 'Aggiornamento%'"&_
  	" AND computers.operating_system_name not like '%Server'" & _	
	"group by computers.computer_name,software.software_name"&_
  	";"
 
elseif pc<>"" and util<>"" then
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 computers.computer_name='" & pc & "'"&_
  	" AND local_users.user_name='" & util & "'"&_
  	" 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 software.software_name not like 'Aggiornamento%'"&_
  	" 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
 
end if
%>

**Fablondon** · 31/05/2006, 11h45

Je pense que tes conditions ne sont pas justes :

Code :

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

1
2
3
4
5
6
7
8
9
if pc<>"" then <--- Si pc n'est pas vide tu passes
...
elseif util<>"" then <---- Si util n'est pas vide tu passes ( a ce moment pc est forcement vide)
...
elseif pc<>"" and util<>"" then <---si tu arrives la c est que pc et util sont de toutes facons vides..
...
end if
%>

je te propose

Code :

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

1
2
3
4
5
6
7
8
9
10
11
if pc<>"" then
...
elseif util<>"" then
 ...
else   <----Ici tu as ton traitement pour pc et util vide tous les deux
...
end if


Enfin je crois... essayes tu verras bien.a+

**vanou** · 31/05/2006, 11h53

Ca ne fonctionne tjrs pas qd je met else le resultat est encore vide!

**Fablondon** · 31/05/2006, 12h03

Essaye plutot :

Code :

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

1
2
3
4
5
6
7
8
 
if not isnull(pc) then
...
elseif not isnull (util) then
 ...
else  
...
end if

voilou

**vanou** · 31/05/2006, 12h08

toujours aucun resultat je ne comprend pas j'ai essayé plein de solutions!

**Phiss** · 31/05/2006, 12h14

mets ton end if avant ton RS.open. sinon tu n'executes et affiches ta table que si tu es dans la dernière condition.

**vanou** · 31/05/2006, 12h19

bah quand je me met le endif quil soit n'importe ou il me met impossible d'afficher la page

Comprend pas la

**amar00** · 31/05/2006, 12h27

en un peu plus court et plus maintenable si c'est bien ce que tu veux faire

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
 
<%
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'" & _	
	"group by computers.computer_name,software.software_name"&_
  	";"
if pc<>"" then
       varSQL  = varSQL  & " AND computers.computer_name='" & pc & "'"
end if
if util<>"" then
       varSQL  = varSQL  & " AND local_users.user_name='" & util & "'"
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
 
end if
%>

**Fablondon** · 31/05/2006, 12h29

Essaye ca :

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
varSQL= "Select * FROM computers LEFT JOIN software ON computers.computer_name = software.computer_name LEFT JOIN local_users ON computers.computer_name = local_users.computer_name"

if pc<>"" then
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 computers.computer_name='" & pc & "'"&_
  	" 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 software.software_name not like 'Aggiornamento%'"&_
  	" AND computers.operating_system_name not like '%Server'" & _	
	"group by computers.computer_name,software.software_name"&_
  	";"

elseif util<>"" then
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 local_users.user_name='" & util & "'"&_
  	" 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 software.software_name not like 'Aggiornamento%'"&_
  	" AND computers.operating_system_name not like '%Server'" & _	
	"group by computers.computer_name,software.software_name"&_
  	";"
elseif pc<>"" and util<>"" then
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 computers.computer_name='" & pc & "'"&_
  	" AND local_users.user_name='" & util & "'"&_
  	" 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 software.software_name not like 'Aggiornamento%'"&_
  	" AND computers.operating_system_name not like '%Server'" & _	
	"group by computers.computer_name,software.software_name"&_
  	";"
end if

set rs=Server.CreateObject("ADODB.Recordset")	  	
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

Si ca marche pas, tu as alors un pb de requete et/ou connection de base de donne .

**vanou** · 31/05/2006, 12h37

C'est vrai que c'est plus lisible mais jai une erreur

----> Syntaxe incorrecte vers le mot clé 'AND'.

Je pense que ca doit venir de la concaténation mais je ne voi pas pourquoi

**Fablondon** · 31/05/2006, 12h43

Modifie juste :

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

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

Tout devrait etre dans le bon sens !

**vanou** · 31/05/2006, 12h55

Je crois que je vais m'arracher les cheveux lol

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
<%
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'" & _	
	"group by computers.computer_name,software.software_name"&_
  	";"
 
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
 
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
 
end if
%>

**vanou** · 31/05/2006, 12h59

Jai ca now :

Code :

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

1
2
3
4
5
Microsoft OLE DB Provider for SQL Server error '80040e14' 
 
Syntaxe incorrecte vers le mot clé 'AND'. 
 
/Web005/YFR-IN2-0250.asp, line 90

**Fablondon** · 31/05/2006, 13h11

Peux tu afficher le contenu de ta variable Varsql, pour qu on puisse voir d ou vient l erreur...

**vanou** · 31/05/2006, 13h14

voila ce que ca maffiche qd je fais response.write varSQL

Code :

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

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'group by computers.computer_name,software.software_name;

**vanou** · 31/05/2006, 13h27

J'ai enfin trouvé la solution

J'avais des problème au niveau de la requete avec les guillemet, les cotes

Merci bcp pour votre aide

**Fablondon** · 31/05/2006, 13h32

Ok
a++

**vanou** · 31/05/2006, 13h52

en fait encore un tout petit problème j'espere

Code :

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

1
2
3
4
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

il me dis cette erreur

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 & "'" & _
--------------------------------------------------------------------------------------------^

**Fablondon** · 31/05/2006, 14h09

essaye ca :

Code :

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

1
2
3
 
varSQL  = varSQL  &  "AND local_users.user_name='" & util & "' AND computers.computer_name='" & pc & _	
"' group by computers.computer_name,software.software_name"

Il faut bien que tu verifies les quotes et les espace dans ta requete pour etre sur qu elle fonctionnenra...a+

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

en fait ca ne fonctionne pas car il prend les deux autres if du dessus en compte il affiche ca

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
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'
AND computers.computer_name='FR2131'
group by computers.computer_name,software.software_name;
AND local_users.user_name='toto'group by computers.computer_name,software.software_name;
AND local_users.user_name='toto' AND computers.computer_name='FR2131' 
group by computers.computer_name,software.software_name

Problème de conditions

ASP

Discussions similaires

Partager

Partager