Erreur d'exécution Microsoft VBScript error '800a005e'

[cedric/copy]

Bonjour,

J'ai ce code

Code :

1
2
 
<%=Replace(RsAnnuaires("Commentaire"), chr(10), "<br>")%>

et voici la réponse si le champ commentaire est vide

Erreur d'exécution Microsoft VBScript error '800a005e'

Utilisation non autorisée de Null: 'Replace'

/site/pagesnews/AF.asp, line 72

[Konami15]

c'est pas plutôt "</br>"?

[kaiser59]

Salut,

Dans la base les retours à la ligne c'est plutot les vbcrlf donc tu dois avoir :

Code asp :

response.write replace(rs("commentaire"),"/vbcrlf", "<br/>")

voiloù

[cedric/copy]

Re,

Mon code fonctionne très bien quand le champ "commentaire" contient du texte. Les retours chariots sont bien indiqués. Mais si le champ ne contient pas de texte, j'ai le message site ci-dessus.
Est-il possible d'utiliser le "Replace" si le champ reste vide.

A+

[pc75]

Bonjour,

Tu testes avant si le commentaire est vide :

Code :

1
2
3
4
5
6
7
8
 
<%
if len(trim(RsAnnuaires("Commentaire"))) > 0 then
   Str_Comment = Replace(RsAnnuaires("Commentaire"), chr(10), "<br>")
else
   Str_Comment = ""
end if
%>

[lonycc]

ou

Code :

1
2
3
4
5
6
<%
if not isnull(RsAnnuaires("Commentaire")) then
Replace(RsAnnuaires("Commentaire"), chr(10), "<br>")
end if
 
%>

[cedric/copy]

Bonjour pc75,

Ton bout de code à inversé mon problème.
Quand le champ "Commentaire" est vide aucun message d'erreur, mais quand le champ comporte du texte, j'ai un message d'erreur

Erreur d'exécution Microsoft VBScript error '800a005e'

Utilisation non autorisée de Null: 'Replace'

/site/pagesnews/AF.asp, line 74

[cedric/copy]

Bonjour Lonycc,

Ca ne marche pas, j'ai un message d'erreur qui est le suivant :

Erreur de compilation Microsoft VBScript error '800a0414'

L'appel d'une fonction Sub n'admet pas de parenthèses.

/site/pagesnews/AF.asp, line 74

Replace(RsAnnuaires("Commentaire"), chr(10), "<br>")
----------------------------------------------------^

[Konami15]

Bonjour,

As tu mis une variable devant ton replace, comme l'a fait pc75.(ça m'était arrivé)

Code :

1
2
3
4
5
6
7
8
 
 
<%
if not isnull(RsAnnuaires("Commentaire")) then
Str_comment=Replace(RsAnnuaires("Commentaire"), chr(10), "<br>")
end if
 
%>

[kaiser59]

re,

Si ta base est Access, il te suffit simplement de faire ça :

Code asp :

1
2
3
4
5
if rs("commentaire") <> "" then
   response.write replace(rs("commentaire"),"/vbcrlf", "<br/>")
else
   response.write "- aucun commentaire -"
end if

[lonycc]

Envoyé par cedric/copy

Bonjour,

J'ai ce code

Code :

et voici la réponse si le champ commentaire est vide

En même temps c'est logique que tu as cette erreurs, car il te dit que tu ne peux pas mettre un paramètre vide (le rsAnnuaires("Commentaire")) dans la fonction Replace

Donc

Code :

1
2
3
4
5
6
7
 
 
if not isnull(RsAnnuaires("Commentaire")) then
Ta_Variable=Replace(RsAnnuaires("Commentaire"), chr(10), "<br>")
else
Ta_variable=""
end if

ensuite tu peux l'utiliser dans ton code html

Code :

1
2
 
<%=Ta_variable%>