Bonjour à tout et à toutes, j'ai un gros probleme j'essais de me faire un box de commentaire avec ma page ASP mes les apostrophe et les point sont prise en charge par la base Access alors voilà mon problème.
Il y a t'il un moyen de dire a ma base de prendre tous ce qui est écrie dans textarea sens en prendre compte comme une commande???
ma page ASP:
<% Response.Buffer=True %>
<HTML>
<HEAD>
<TITLE>Carnet d'adresses</TITLE>
</HEAD>
<center><h1>Appréciation du site</h1></center>
<%
Dim Rs, Con, lenom, leprenom, lecommentaire
'Création de l'objet de connexion
Set Con=Server.CreateObject("ADODB.Connection" )
'Chemin d'accès à la BD
dbPath=Server.MapPath("./carnet.mdb" )
'Connexion
ConStr="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & dbPath
Con.open Constr
set rs=con.execute("Select * FROM Carnet ORDER BY Prenom" )
If (Not rs.EOF) or (Not rs.BOF) Then
rs.MoveFirst
End If
%>
<center>
<table border="2">
<tr>
<td width="40" align="center"><b>Nom</b></a></td>
<td width="40" align="center"><b>Prenom</b></a></td>
<td width="100" align="center"><b>Commentaires</b></a></td>
</tr>
</center>
<%
If Not rs.EOF Then
While Not rs.EOF
Response.Write("<tr>" )
Response.Write("<td>" )
Response.Write(rs("Nom" ))
Response.Write("</td>" )
Response.Write("<td>" )
Response.Write(rs("Prenom" ))
Response.Write("</td>" )
Response.Write("<td>" )
Response.Write(rs("Commentaires" ))
Response.Write("</td>" )
Response.Write("</tr>" )
rs.MoveNext
Wend
Else
Response.Write "pas d'enregistrement"
End If
Response.Write("</table>" )
rs.Close
Set rs=Nothing
con.close
set con=nothing
%>
<br><br><br>
<TABLE BORDER="0" cellpadding="0" cellspacing="0">
<tr>
<TD Width="150">
<FORM method=post action="carnet2.asp">
<center><b>Nouveau Nom</b></center><br></td>
<tr>
<td>Prenom :</td>
<td><INPUT type=test name="Nom" ></td>
</tr>
<tr>
<td>Nom :</td>
<td><INPUT type=text name="Prenom"></td>
</tr>
<tr>
<td>Exprimer votre opinion :</td>
<td><textarea name="commentaires" rows=4 cols=24 size=55></textarea></td>
</tr>
</tr>
</table>
<input type="submit" name="action" value="Ajouter"> <input type="submit" name="action" value="Supprimer un numéro">
</FORM>
</html>
Ma page qui connecte a ma base et ma page ASP:
<% Response.Buffer = true %>
<HTML>
<Head>
<TITLE>Enregistrement d'un nom</title>
</HEAD>
<Body>
<%
'initialisation des variables
Dim sql_insert, Con, constr, lenom, leprenom, lecommentaire
if lcase(request.form("action" ))="ajouter" then
leNom=Request.Form("Nom" )
lePrenom=request.form("Prenom" )
leCommentaire=request.form("Commentaires" )
sql_insert = "insert into Carnet (Nom,Prenom,Commentaires) values ('" & leNom & "','" & lePrenom & "','" & leCommentaire & "')"
end if
if lcase(request.form("action" )) = "supprimer un numéro" then
lePrenom=request.form("Prenom" )
if lePrenom <> "" then
sql_insert = "delete * FROM carnet WHERE Prenom = '" & lePrenom & "' "
end if
end if
Set Con= server.CreateObject("ADODB.Connection" )
dbPath=server.MapPath("./carnet.mdb" )
constr= "DRIVER={MICROSOFT ACCESS DRIVER (*.mdb)};DBQ=" & dbpath
Con.open constr
Con.Execute sql_insert
Con.Close
Set Con=Nothing
Response.Redirect"./Carnet.asp"
%>
</body>
</html>
Ci il y a des erreure gener vous pas je prend pas ca perso !!
Merci d'avance
