Bonjour, j'ai demandé sur le forum HTMl mais il pense que çà vient de ASP.

Voici mon problème:

J'ai un bug avec mon text area.
Quand je remplis dedans et que j'arrive en bout de cadre il passe automatiquement à la ligne, seulement quand je fais envoyer il me mets une erreur et ne l'enregistre pas dans ma base de données.

Quand je vois que je vais arriver en bout de cadre et que je fais entrée le il n'y a pas de problème.

Quelqu'un connaît ce problème?

voici le code:


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
<tr><td><b> Analyse:</b><TEXTAREA NAME="Analyse" ROWS="5" COLS="50"></TEXTAREA></td></tr>
<TR><td><b>Décisions:</B><TEXTAREA NAME="Decision" ROWS="5" COLS="50"></TEXTAREA></TD></TR>
</Table>
<br><br><br><br><br><br><br><br><br><br><br>
</br></br></br></br></br></br></br></br></br></br></br>
<center>
<INPUT type="submit" value="Enregistrer" name="btnSubmit">
<INPUT type="reset" value="Effacer" name="btnreset">
<Input type="button" value="Retour" name="btnReturn" onclick="window.location.href='essaidonnee.html'">
</center>
</FORM>

et le Post:


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
strMiseajourAnalyse="UPDATE Achat SET Analyse='"&analyse&"' WHERE (Mois='"&mois&"' AND Année='"&annee&"')"
				strMiseajourDecision="UPDATE Achat SET Décision='"&decision&"' WHERE (Mois='"&mois&"' AND Année='"&annee&"')"
 
				'Créer la connection à la base de données'
 
				set cnBD =Server.CreateObject("ADODB.Connection")
 
				'Ouvrir la connexion'
 
				Set objRs = Server.CreateObject("ADODB.Recordset")
 
				cnBD.Open str
				objRs.Open "SELECT Mois,Année From Achat", cnBD
				Do While (test = 0 And Not objRs.EOF)
								        If mois= objRs("Mois") Then
								            If annee = objRs("Année") Then
								                test = 1
								            End If
								        End If
								        objRs.movenext
    			Loop
 
    			if test = 1 Then
    					if data1<>"" then
				cnBD.Execute(strMiseajourData1)
						End If
						if data2<>"" then
				cnBD.Execute(strMiseajourData2)
						End if
						if data3<>"" then
				cnBD.Execute(strMiseajourData3)
						End if
						if data4<>"" then
				cnBD.Execute(strMiseajourData4)
						End if
						if analyse<>"" then
				cnBD.Execute(strMiseajourAnalyse)
						End if
						if decision<>"" then
				cnBD.Execute(strMiseajourDecision)
						End if
    			else
    				cnBD.Execute (strInsere)
				End if
 
				objRs.Close
				set objRs=nothing
				cnBD.Close
				set cnBD=nothing

Merci d'avance.