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

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

Citation:

---

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

Utilisation non autorisée de Null: 'Replace'

/site/pagesnews/AF.asp, line 72

---

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

Salut,

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

Code:

---

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

---

voiloù

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+

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 %>

---

ou

Code:

---

1 2 3 4 5 6

<% if not isnull(RsAnnuaires("Commentaire")) then Replace(RsAnnuaires("Commentaire"), chr(10), "<br>") end if   %>

---

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

Citation:

---

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

Utilisation non autorisée de Null: 'Replace'

/site/pagesnews/AF.asp, line 74

---

Bonjour Lonycc,

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

Citation:

---

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>")
----------------------------------------------------^

---

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   %>

---

re,

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

Code:

---

1 2 3 4 5

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

---

Citation:

---

Envoyé par 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

---

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%>

---