ASP et SQL Server

**Fleep** · 07/08/2003, 11h31

Bonjour,

J'ai un petit problème, et j'ai l'impression que c'est un truc à la con, mais bon ...

Voila 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
<%@ Language=VBScript %>
<html>
<body>
 
<% partnerid = Request.QueryString("partnerid")
      advertiserid = Request.QueryString("advertiserid")
      password = Request.QueryString("password")
      connexion = Request.QueryString("connexion")
 
Set connectBD = Server.CreateObject("ADODB.Connection")
connectBD.Open "DSN=Climbup;UID=netcompdbo;PWD=***"
Set Search = connectBD.Execute("SELECT NomClient FROM Client WHERE Advertiser='"&Cstr(advertiserid)&"'")
%>
 
<% If Search(0)<>"" Then %>
OK
<% ELSE%>
NON
<% End If %>

En faites je traite par cet intermédiaire un requête de connexion avec login / mot de passe.
En faites ici je vérifie que le login existe dans ma table client.
Si c le cas, ca marche parfaitement et il m'afficher 'OK', mais si ce n'est pas le cas, et bien là gros plantage, il m'affiche pas 'NON', mais ceci:

Type d'erreur :
(0x80020009)
Une exception s'est produite.
/apw/Edouard/Climb'up/soft/Menu.asp, line 52

la ligne 52 est la suivante:
<% If Search(0)<>"" Then %>

J'ai aussi essayer plusieurs autres choses dans le même style au niveau de la comparaison. Au lieu de mettre '<> ""' j'ai essayé 'is Null' et d'autres tests de ce genre, mais rien n'y fait !

Merci d'avance.

**TéBeSsI** · 07/08/2003, 11h51

Forum SQL-Server et pas ASP

Code :

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

1
2
3
4
5
6
7
8
9
10
11
<%
'-------création de la connection et du recordset-----------
 
Set connectBD = Server.CreateObject("ADODB.Connection") 
Set RsBD = Server.CreateObject("ADODB.Recordset") 
....
requête SQL
.....
 
RsId.Open requête SQL, connectBD, 3, 3
%>

Donc verif la Connection.

a+

**Fleep** · 07/08/2003, 12h33

Désolé, je l'ai mis en délestage.

Par contre tu fais comment pour atteindre le résultat ?

Code :

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

1
2
3
4
5
requete = "SELECT NomClient FROM Client WHERE Advertiser='"&Cstr(advertiserid)&"'"
record.Open requete, connectBD, 3, 3
 
If requete.fields.item(0) Then
...

Bon j'arrive pas à atteindre le résultat 'requete.fields.item(0)' me donne une erreur :

Type d'erreur :
Erreur d'exécution Microsoft VBScript (0x800A01A8)
Objet requis: 'SELECT NomClient FRO'
/apw/Edouard/Climb'up/soft/Menu.asp, line 42

Merci.

**soazig** · 08/08/2003, 07h40

Bonjour,
Juste pour info quand un recordset ne retourne pas d'enregistrement sa propriété EOF est à True après l'open

Code :

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

1
2
3
4
5
6
7
8
requete = "SELECT NomClient FROM Client WHERE Advertiser='"&Cstr(advertiserid)&"'"
record.Open requete, connectBD, 3, 3
 
If requete.EOF Then
'Il n'y a rien qui correspond à la selection
Else
'Il y a quelque chose
...

a+

**Fleep** · 08/08/2003, 09h39

Je sais merci

, mais c'est pas ce que je demande !

Le problème, et bien c que j'aimerai testé effectivement s'il n'y a rien dans le recordset, mais malheureusement, il me retourne une erreur, et je n'arrive pas à comprendre pourquoi

.

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
<%@ Language=VBScript %>
<html>
 
<!-- #include file="fonction.asp" -->
 
<% ...
Set connectBD = Server.CreateObject("ADODB.Connection")
Set record = Server.CreateObject("ADODB.Recordset")
connectBD.Open "DSN=Climbup;UID=netcompdbo;PWD=***"
 
<body>
 
...
<%
search = "SELECT NomClient FROM Client WHERE Advertiser='"&advertiserid&"'"
record.Open search, connectBD, 3, 3
If (search.EOF = False) AND (xmlServ.responseText<>"0") Then %>
 ... bla bla ...
End If

Quand il ya quelque chose ca fonctionne bien, et j'aimerais qu'il m'affiche rien quand justement le record est vide.
MAIS il retourne un erreur que voici :

Type d'erreur :
Erreur d'exécution Microsoft VBScript (0x800A01A8)
Objet requis: 'SELECT NomClient FRO'
/apw/Edouard/Climb'up/soft/Menu.asp, line 43

Donc la ligne 43 est celle ci :

If (search.EOF = False) AND (xmlServ.responseText<>"0") Then

Et c là qu'est tout le problème !
J'avoue que je n'arrive pas à comprendre !

Alors peut être que c'est une erreur de syntaxe de ma part en ASP, mais en ce qui concerne la requête SQL, elle fonctionne parfaitement sous l'analyseur de requêtes, c donc pour ça que je l'avais posté sur le forum ASP

**TéBeSsI** · 08/08/2003, 15h03

salut !

1- Conseille ::

La Connection et le recordeset doivent être avant la balise ouvrante <HTML>

J'ai lu quelque part que les pirates peuvent récupérer les valeurs envoyées, si la commence le script ASP après la balise <HTML>

2- La source::

si tu veux envoi moi la source

3- Si non poste e problème dans le FORUM ASP c'est mieux

a+