Je veut créé un formulaire et quand on entrer une valeur et on envoye, sa la stock dans une base de donnée ici appeler news.mdb Voici ma source avec le formulaire :
----------------------------------------------------------------------------------------------------------------------------------
<%
numNewsID = Clng(Request.Querystring("newsID"))
strFromName = Trim(Request.Form("txtFromName"))
strFromEmail = Trim(Request.Form("txtFromEmail"))
strFromNote = Trim(Request.Form("txtFromNote"))
strComment = Trim(Request.Form("txtMessage"))
NewsID = Request.Form("numNewsID")
Set rsViewComments = Server.CreateObject("ADODB.Recordset")
strViewSQL = "SELECT [name], [email], [note], [comment], [newsid] FROM tblcomments WHERE newsID=" & numNewsID & " ORDER BY [ID] DESC"
rsViewComments.Open strViewSQL, adoCon
bValidInput = True
bValidInput = bValidInput And strFromName <> ""
bValidInput = bValidInput And strComment <> ""
If bValidInput Then
strSQL = "INSERT INTO tblcomments ([name],[email],[note],[newsID],[comment]) VALUES ('" & strFromName & "', '" & strFromEmail & "', '" & strFromNote & "', " & NewsID & ", '" & strComment & "')"
adoCon.Execute(strSQL)
Response.Write "Votre commentaire à été ajouté avec succès<br><br><a href='javascript:history.back()'>Go Back</a>"
Else
%>
<table>
<%
Do While NOT rsViewComments.EOF
%>
<tr><td><b><%=rsViewComments("name")%> nous à donnée <%=rsViewComments("note")%> sur 10 et à a dit :</b><br></td>
<td><%=rsViewComments("comment")%></td></tr>
<%
rsViewComments.MoveNext
Loop
%>
</table>
<%End If%>
<FORM ACTION="<%= Request.ServerVariables("SCRIPT_NAME") %>" METHOD="post" >
<TABLE BORDER="0">
<TR>
<TD VALIGN="top" ALIGN="right"><STRONG>Nom :</STRONG></TD>
<TD>
<INPUT TYPE="text" NAME="txtFromName" VALUE="<%= strFromName %>" size="20"></TD>
</TR>
<TR>
<TD VALIGN="top" ALIGN="right"><STRONG>*Note :</STRONG></TD>
<TD>
<INPUT TYPE="text" NAME="txtFromNote" VALUE="<%= strFromNote %>" size="20"></TD>
</TR>
<TR>
<TD VALIGN="top" ALIGN="right"><STRONG>*Email :</STRONG></TD>
<TD>
<INPUT TYPE="text" NAME="txtFromEmail" VALUE="<%= strFromEmail %>" size="20"></TD>
</TR>
<TR><INPUT TYPE="hidden" NAME="numNewsID" VALUE="<%= numNewsID %>">
<TD VALIGN="top" ALIGN="right"><STRONG>Commentaires :</STRONG></TD>
<TD>
<textarea name="txtMessage" onkeypress="Compter(this, this.form.CharRestant);" onBlur="Compter(this, this.form.CharRestant);" style="width:30em; height:15em;" rows="10" cols="15" WRAP="virtual"></textarea>
<br />
Nombre de caractres restant : <input type="text" name="CharRestant" size="2" disabled="disabled">
</TR>
<TR>
<TD></TD>
<TD><input type='image' src='images/submit.jpg' name='Submit' value='Enter' alt='Enter'></TD>
</TR>
</TABLE>
</FORM>
----------------------------------------------------------------------------------------------------------------------------------
MERCI DE MÉCRIRE ICI OU SUR SUPPORT_STAC@HOTMAIL.COM