Discussion :

[cedric/copy]

Bonjour,

J'ai ce code

Code :

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

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 :

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

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 :

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

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 :

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

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 :

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

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 :

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

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

[lonycc]

Bonjour,

J'ai ce code

Code :

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

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 :

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

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 :

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

1
2
 
<%=Ta_variable%>