Retour chariot de Access vers ASP

**cedric/copy** · 25/09/2008, 12h37

Bonjour,

J'ai une base de donnée Access avec un champ "Commentaire". Dans ce champ il y a du texte avec des retours chariots.

Mon problème est le suivant :

Les retours chariots du champs "Commentaire" de ma base Access, ne sont pas pris en compte sur ma page ASP.

Comment faire pour qu'ils soient pris en compte.

Merci,

Cédric

**pc75** · 25/09/2008, 12h40

Bonjour,

Sous quelle forme sont stockés les retours chariot dans ta base ?

**cedric/copy** · 25/09/2008, 12h46

Bonjour pc75,

Le type de données de ma cologne "Commentaire" sur ma base Access est de type 'mémo'.

A+

**pc75** · 25/09/2008, 12h54

Re,

OK, mais les retours chariot sont représentés comment ?

**cedric/copy** · 25/09/2008, 13h11

Ils sont en caractère invisible et je ne sais pas comment les afficher sur Access.

**pc75** · 25/09/2008, 13h19

Re,

Peut-être ?

Code :

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

1
2
 
Response.Write Replace(Commentaires, chr(13), "<br>")

Tu peux nous donner un exemple du contenu du champs commentaires ?

**cedric/copy** · 25/09/2008, 13h46

Re,

Affichage sous Access de mon champ "Commentaire"

Notre métier en quelques mots ...

Organisation - animation - spectacle

Animations sur lieux de vente, incentive, lancement de nouveaux produits ... vous souhaitez donner de la couleur à vos événements, mais avec l'assurance d'une prestation professionnelle de qualité?

Chez CAST+PRODUCTION , nous avons le sens du rythme et de la fête, mais aussi celui de la rigueur. Nous sommes une équipe jeune et dynamique, spécialiste du spectacle, de l'animation et de l'événement.

Notre 1ère garantie est celle d'un spectacle qui réponde à vos attentes ; nous sommes présents à vos côtés de A à Z, depuis le conseil jusqu'à la mise en place du matériel. Nos prestations sont disponibles sous forme de kit, mais également sur mesure.
Nous concevons nous-mêmes certains spectacles et avons des contrats d'exclusivité avec certains artistes.

Nous sommes propriétaires de tout notre matériel, régulièrement renouvelé.
CAST + Production est titulaire d'une licence délivrée par le Ministre de la Culture et nous appartenons au Syndicat national des Entrepreneurs de Spectacles.

Pour finir, un mot sur nos tarifs. S'il est vrai que la qualité n'a pas de prix, nous pensons qu'elle doit rester accessible. Vérifiez-le ; nous nous ferons un plaisir de vous établir un devis gratuit.

Nous espérons avoir bientôt l'occasion de vous prouver que l'animation est affaire de spécialistes. Parce que notre premier point commun avec vous, c'est notre professionnalisme.

et voici le lien pour visionner la page sur internet

http://www.guide-congresmedicaux.com...;16;17&nAnn=14

**pc75** · 25/09/2008, 14h00

Re,

As-tu essayé ce que je t'ai proposé ?

Sinon, quand tu saisis ton texte dans ton champs commentaires, comment fais-tu les retours chariot ? (Shift + Entrée, ...)

**cedric/copy** · 25/09/2008, 14h06

Re,

La plus part des commentaires sont des copier/coller d'un doc. word ou bien d'un site, que je colle dans ma base FileMaker.
De ma base FileMaker je fait une exportation vers Access.
Je travail avec FileMaker car je suis sur MAC.

**pc75** · 25/09/2008, 14h44

Re,

As-tu essayé la fonction Replace que je t'ai proposée ?

**cedric/copy** · 25/09/2008, 15h40

Re,

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
 
<%
 
varNombre=cInt(Request("nAnn"))
varNum=cInt(Request("numero"))
 
tabFiches=Split(Request("ChaineAnn"),";")
 
varFirst=tabFiches(0)
varLast=tabFiches(varNombre-1)
 
For i=0 to varNombre-1
	varTest=cInt(tabFiches(i))
	If varTest = varNum Then
		If i=0 Then
			varPrevious=varFirst
		Else	
			varPrevious=cInt(tabFiches(i-1))
		End If	
	End If
Next
 
For i=0 to varNombre-1
	varTest=cInt(tabFiches(i))
	If varTest = varNum Then
		If i=varNombre-1 Then
			varNext=varLast
		Else	
			varNext=cInt(tabFiches(i+1))
		End If	
	End If
Next
 
Select Case Request("direction")
 
	Case ""
		strRequete="SELECT * FROM Tbl_Annuaires WHERE Id_num =" & Request("numero")
	Case "<<"
		strRequete="SELECT * FROM Tbl_Annuaires WHERE Id_num=" & varFirst
 
	Case "<"
		strRequete="SELECT * FROM Tbl_Annuaires WHERE Id_num=" & varPrevious
 
	Case ">"
		strRequete="SELECT * FROM Tbl_Annuaires WHERE Id_num=" & varNext
 
	Case ">>"
		strRequete="SELECT * FROM Tbl_Annuaires WHERE Id_num=" & varLast
 
 
End Select			
 
blnPrecedent="True"
blnSuivant="True"
 
dim tabRec(1000)
Set RsAnnuaires=Server.CreateObject("ADODB.Recordset")
RsAnnuaires.Open strRequete,Connexion
If Not RsAnnuaires.Eof Then
 
 
Response.Write Replace(Commentaires, chr(13), "<br>")
 
 
	If Request("direction")="<<" Then
		blnPrecedent="False"
	End If
	If Request("direction")="" And cInt(Request("numero"))=cInt(varFirst) Then
		blnPrecedent="False"
	End If
 
	If Request("direction")="<" And cInt(varPrevious)=cInt(varFirst) Then
		blnPrecedent="False"
	End If
 
	If Request("direction")="" And cInt(Request("numero"))=cInt(varLast) Then
		blnSuivant="False"
	End If
 
	If Request("direction")=">" And varNext=cInt(varLast) Then
		blnSuivant="False"
	End If
	If Request("direction")=">>" Then
		blnSuivant="False"
	End If
%>

Ca ne fonctionne pas.

**pc75** · 25/09/2008, 15h51

Re,

Ce serait plutot :

Code :

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

1
2
 
Response.Write Replace(RsAnnuaires("Commentaires"), chr(13), "<br>")

**cedric/copy** · 25/09/2008, 16h51

Re,

Ok ça marche.

Mais je souhaite le mettre dans mon tableau avec les champs (Nom, Adresse, CPVille...).

http://www.guide-congresmedicaux.com...;16;17&nAnn=11

Est-ce possible ?

**pc75** · 25/09/2008, 16h58

Re,

Quel tableau ?

**cedric/copy** · 25/09/2008, 17h10

Re,

Voici le code complet de ma page

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
<%

varNombre=cInt(Request("nAnn"))
varNum=cInt(Request("numero"))

tabFiches=Split(Request("ChaineAnn"),";")

varFirst=tabFiches(0)
varLast=tabFiches(varNombre-1)

For i=0 to varNombre-1
	varTest=cInt(tabFiches(i))
	If varTest = varNum Then
		If i=0 Then
			varPrevious=varFirst
		Else	
			varPrevious=cInt(tabFiches(i-1))
		End If	
	End If
Next

For i=0 to varNombre-1
	varTest=cInt(tabFiches(i))
	If varTest = varNum Then
		If i=varNombre-1 Then
			varNext=varLast
		Else	
			varNext=cInt(tabFiches(i+1))
		End If	
	End If
Next

Select Case Request("direction")

	Case ""
		strRequete="SELECT * FROM Tbl_Annuaires WHERE Id_num =" & Request("numero")
	Case "<<"
		strRequete="SELECT * FROM Tbl_Annuaires WHERE Id_num=" & varFirst

	Case "<"
		strRequete="SELECT * FROM Tbl_Annuaires WHERE Id_num=" & varPrevious

	Case ">"
		strRequete="SELECT * FROM Tbl_Annuaires WHERE Id_num=" & varNext

	Case ">>"
		strRequete="SELECT * FROM Tbl_Annuaires WHERE Id_num=" & varLast


End Select			

blnPrecedent="True"
blnSuivant="True"

dim tabRec(1000)
Set RsAnnuaires=Server.CreateObject("ADODB.Recordset")
RsAnnuaires.Open strRequete,Connexion
If Not RsAnnuaires.Eof Then

Response.Write Replace(RsAnnuaires("Commentaire"), chr(13), "<br>")
	
	If Request("direction")="<<" Then
		blnPrecedent="False"
	End If
	If Request("direction")="" And cInt(Request("numero"))=cInt(varFirst) Then
		blnPrecedent="False"
	End If

	If Request("direction")="<" And cInt(varPrevious)=cInt(varFirst) Then
		blnPrecedent="False"
	End If

	If Request("direction")="" And cInt(Request("numero"))=cInt(varLast) Then
		blnSuivant="False"
	End If

	If Request("direction")=">" And varNext=cInt(varLast) Then
		blnSuivant="False"
	End If
	If Request("direction")=">>" Then
		blnSuivant="False"
	End If
%>

<!--------------------------------------------------------------------------------------------------------->
<br>
<center>
	<table>
		<Form method="post" action="/site/pagesnews/Annuaires.asp">
			<input type="hidden" name="Pays" value="<%=Request("Pays")%>">				
			<input type="hidden" name="Domaine" value="<%=Request("Domaine")%>">				
			<input type="hidden" name="numero" value="<%=RsAnnuaires("Id_num")%>">	
			<input type="hidden" name="ChaineBur" value="<%=Request("chaineBur")%>">			
			<input type="hidden" name="nBur" value="<%=Request("nBur")%>">
			<input type="hidden" name="Action" value="fiche">				

			<tr>
<%
				If blnPrecedent="False" Then
%>				
					<td>
					<input type="submit" name="direction" value="<<" disabled style="border-style: solid; border-width: 1px"></td>
					<td>
					<input type="submit" name="direction" value="<" disabled style="border-style: solid; border-width: 1px"></td>
<%
				Else
%>
					<td>
					<input type="submit" name="direction" value="<<" style="border-style: solid; border-width: 1px; background-color: #B8A6B2"></td>
					<td>
					<input type="submit" name="direction" value="<" style="border-style: solid; border-width: 1px; background-color: #B8A6B2"></td>
<%					
				End If
%>				
<%
				If blnSuivant="False" Then
%>				
					<td>
					<input type="submit" name="direction" value=">" disabled style="border-style: solid; border-width: 1px"></td>
					<td>
					<input type="submit" name="direction" value=">>" disabled style="border-style: solid; border-width: 1px"></td>
<%
				Else	
%>				
					<td>
					<input type="submit" name="direction" value=">" style="border-style: solid; border-width: 1px; background-color: #B8A6B2"></td>
					<td>
					<input type="submit" name="direction" value=">>" style="border-style: solid; border-width: 1px; background-color: #B8A6B2"></td>
<%
				End If
%>				

			</tr>
		</Form>	
	</table>
</center>
<!--------------------------------------------------------------------------------------------------------->
<br>
<center>
<table border="0" class="Style5" width="500" height="171" cellspacing="3" cellpadding="0">
	<tr>
		<td width="500" class="Style1" colspan ="2" height="14" bgcolor="#E3A716">
	   		Nom/Raison sociale : <%=RsAnnuaires("Nom")%></td>
	</tr>
		
	<tr>
		<td width="500" class="Style1" colspan="2" height="14" bgcolor="#F9D577">
	  		Région : <%=RsAnnuaires("Domaine")%></td>
	</tr>

	<tr>
		<td width="500" class="Style1" colspan="2" height="14" bgcolor="#E3A716">
    		Adresse : <%=RsAnnuaires("Adresse")%></td>
	</tr>

	<tr>
		<td width="250" class="Style1" height="14"bgcolor="#F9D577">
       		Code postal : <%=RsAnnuaires("CPVille")%></td>
		<td width="250" class="Style1" height="14" bgcolor="#F9D577">
            </td>
	</tr>

	<tr>
		<td width="250" class="Style1" height="14" bgcolor="#E3A716">
       		Téléphone : <%=RsAnnuaires("Telephone")%></td>
		<td width="250" height="14" class="Style1" bgcolor="#E3A716">
            Fax : </td>
	</tr>	

	<tr>
		<td width="250" class="Style1" height="14" bgcolor="#F9D577">
            E-mail : <%=RsAnnuaires("Email")%></td>
		<td width="250" class="Style1" height="14" bgcolor="#F9D577">
            Site : <%=RsAnnuaires("Site")%></td>
	</tr>
	<tr>
		<td width="500" class="Style1" colspan ="2" height="14" bgcolor="#E3A716">
	   		

<%=RsAnnuaires("Commentaire")%>

</td>
	</tr>
</table>
</center>

<%
'----------------------------------------------------------------------------------------------------------------------------------
End If
Set RsAnnuaires=Nothing
%>
<br>
<!--------------------------------------------------------------------------------------------------------->
<center>
<form method="get" action="/site/pagesnews/Annuaires.asp">

<%If Request("Pays")="" Then%>
	<input type="hidden" name="Pays" value="Tous les pays">
<%Else%>
	<input type="hidden" name="Pays" value="<%=Request("Pays")%>">
<%End If%>

<%If Request("Domaine")="" Then%>
	<input type="hidden" name="Region" value="Tous les domaines">
<%Else%>	
	<input type="hidden" name="Domaine" value="<%=Request("Domaine")%>">
<%End If%>
	<input type="hidden" name="Action" value="Chercher">
	<input type="submit" value="Retour à la liste" style="border-style: solid; border-width: 1px; background-color: #B8A6B2">
</form>
</center>
<!--------------------------------------------------------------------------------------------------------->
</td>
</tr>
</table>
</center>

J'aimerai qu'il s'affiche au niveau de<%=RsAnnuaires("Commentaire")%> et non au début de la page.

A+

**pc75** · 25/09/2008, 17h28

Re,

A la place de <%=RsAnnuaires("Commentaire")%>, tu mets ça et tu vires le response.Write du début :

Code :

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

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

**cedric/copy** · 25/09/2008, 17h32

Re,

Ok ca fonctionne.

Merci, Merci,

A+
Cédric.

Retour chariot de Access vers ASP

ASP

Discussions similaires

Partager

Partager