Discussion :

[maxos75]

Bonjour,

J'ai un petit pobleme de style

Objet Response erreur 'ASP 0185 : 8002000e'

Propriété Default absente

avec le code ci dessous, sachant que la requête fonctionne sous access et que la connexion est bonne puisqu'avec d'autres requetes n'incluant pas de count cela fonctionne...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
<%sql_sites="SELECT count(NOM) AS nb_sites FROM SITES"
				Set listing_sites=connexion.Execute(sql_sites)
				If listing_sites("nb_sites")<=18 THEN
					response.Write(listing_sites)
					response.Write(" Moins de 18 sites recencés")
				else
					response.Write(listing_sites)
					response.Write(" Plus de 18 sites recencés")
				End IF
				Set listing_sites=Nothing%>

[pc75]

Bonjour,

Je pense que tu devrais plutot utiliser un recordset pour rédupérer le résultat d'un SELECT.

[maxos75]

oui je te remercie , c'est bien ce que je pensais mais bon...
dommage ( ça fait 2/3 lignes de plus..)

[maxos75]

ben non finalement même avec le recordset ça passe pas ...

set listing_sites=Server.CreateObject("ADODB.Recordset")
sql_sites= "SELECT count(NOM) AS nb_sites FROM SITES"
listing_sites.Open sql_sites, connexion
If listing_sites("nb_sites")<=18 THEN
response.Write(listing_sites)
response.Write(" Moins de 18 sites recencés")
else
response.Write(listing_sites)
response.Write(" Plus de 18 sites recencés")
End IF

[maxos75]

même avec l'utilisation de
la methode count ou recordcount sur le recordset ça marche pas !!!
au secours...

[pc75]

même avec l'utilisation de
la methode count ou recordcount sur le recordset ça marche pas !!!
au secours...

Et tu obtiens quoi ? une erreur ? un mauvais résultat ?

[maxos75]

non une erreur mais bon comme c'est pressé [demandé ce matin 10h30 heures pour avant 13 heures !!!] (incroyable que les gens s'imaginent qu'il faut trente secondes pour fair 36000 modifs) je reviendrai sur l'erreur là je l'ai contournée comme ça :

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
sql_sites= "SELECT * FROM SITES"
				set listing_sites=connexion.Execute(sql_sites)
				compteur_sites=0
				Do while not listing_sites.EOF
					compteur_sites=compteur_sites+1
					listing_sites.Movenext
				LOOP
				listing_sites.Movefirst
				If compteur_sites<=18 THEN
					response.Write(compteur_sites)
					response.Write(" Moins de 18 sites recencés")
				else
					response.Write(compteur_sites)
					response.Write(" Plus de 18 sites recencés")
				End IF

et là ça fonctionne mais bon c'est pas super light.
Merci pour l'aide

[ryan]

Salut,

Je suis juste avant le gong

Le probleme est là :

Code :

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

1
2
 
response.Write(listing_sites)

Tu essayes de faire un response.write sur un object, ce qui ne fonctionne pas.


Yan

[maxos75]

a vrai dire même en mettant en commentaire les response.write ça ne fonctionne pas...

[ryan]

Re!

Bon bin, y a une autre erreur alors
Essayons ça:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
sql_sites="SELECT count(NOM) FROM SITES" 
            Set listing_sites = connexion.Execute(sql_sites) 
            If listing_sites(0) <= 18 THEN 
               response.Write(listing_sites(0)) 
               response.Write(" Moins de 18 sites recencés") 
            else 
               response.Write(listing_sites(0) ) 
               response.Write(" Plus de 18 sites recencés") 
            End IF 
            Set listing_sites=Nothing

Yan

[Immobilis]

Salut, et ça? C'est basique, mais chez moi, ça marche toujours.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
set listing_sites = server.createobject("ADODB.recordset")
    listing_sites.open "SELECT * FROM SITES;", MyProvider, 1, 1
        compteur_sites = listing_sites.recordcount
    listing_sites.close
    If compteur_sites<=18 THEN 
        response.Write(compteur_sites) 
        response.Write(" Moins de 18 sites recencés") 
    else 
        response.Write(compteur_sites) 
        response.Write(" Plus de 18 sites recencés") 
    End IF
set listing_sites = Nothing

A+
Le "*" de

SELECT * FROM SITES

est peut-être pas utile. On pourra se contenter de

Code :

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

SELECT NOM FROM SITES;

[ryan]

'Soir,

C'est exact que le Count, et le Sum aussi, causent parfois des problèmes inattendus en Asp (en tout cas avec Access), la solution d'Immobilis semble sage.


Yan

[Immobilis]

ben non finalement même avec le recordset ça passe pas ...

set listing_sites=Server.CreateObject("ADODB.Recordset")
sql_sites= "SELECT count(NOM) AS nb_sites FROM SITES"
listing_sites.Open sql_sites, connexion
If listing_sites("nb_sites")<=18 THEN
response.Write(listing_sites)
response.Write(" Moins de 18 sites recencés")
else
response.Write(listing_sites)
response.Write(" Plus de 18 sites recencés")
End IF

Il me semble que tu fais une erreur là:

Code :

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

listing_sites.Open sql_sites, connexion

Pour ouvrir un recordset comme ceci il ne faut pas mettre la connexion, mais le provider.

Pour info ceci marche très bien chez moi:

Code :

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

1
2
3
4
5
6
7
8
9
10
sql_sites="SELECT count(CLient_ID) as nb FROM Client" 
Set listing_sites = objConn.Execute(sql_sites) 
	If listing_sites(0) <= 18 THEN 
	   response.Write(listing_sites(0)) 
	   response.Write("Moins de 18 sites recencés") 
	else 
	   response.Write(listing_sites(0) ) 
	   response.Write("Plus de 18 sites recencés") 
	End IF 
Set listing_sites=Nothing

Ultra light :

Code :

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

1
2
3
Set listing_sites = objConn.Execute("SELECT count(CLient_ID) as nb FROM Client") 
	response.Write(listing_sites("nb") & " recencés<br>") 
Set listing_sites = Nothing

Ou encore, sachant que:

Code :

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

1
2
3
4
set objConn = server.createobject("ADODB.Connection")
objConn.Open strProvider
set cm = Server.CreateObject("ADODB.Command")
cm.ActiveConnection = objConn

Code :

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

1
2
3
cm.Commandtext = "SELECT count(CLient_ID) as nb FROM Client"
listing_sites = cm.Execute
response.Write(listing_sites("nb") & " recencés<br>")