récupérer le texte dans un menu déroulant

récupérer le texte dans un menu déroulant - ASP - Programmation

Marsh Posté le 03-03-2005 à 15:54:34    

Bonjour à vous, j'ai deux tables, une qui s'appel sujet avec comme champ: "titre" "adresse mail" et l'autre s'appel reponse et à "titre2" "texte" "nom de lexped"
 
J'ai un formulaire qui possède une liste déroulante pour choisir le sujet et j'aimerai lors de mon insert dans reponse qu'il ai mettre le nom que j'ai sélectionner dans ma liste dans la table réponse.  
 
car j'essaye mais celà ne vas pas:
 
il me met bien le texte et le nom de l'exped mais pas le titre2 qui correspond à titre 1 dans la table sujet:
 
Source:
-------
 
 

Code :
  1. <%@language="VbScript"%>
  2. <%
  3. texte=Request.QueryString("texte" )
  4. from=Request.QueryString("from" )
  5. idsujet= response.QueryString("selectdep" ).
  6. 'Recuperation des valeurs des champs dans des variables
  7. Dim cb
  8. dim cb2
  10. Set cb2 = Server.CreateObject("ADODB.Recordset" )
  11. cb2.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("suggestion.mdb" )
  12. cb2.Source = "select sujet from sujet"
  13. cb2.CursorType = 0
  14. cb2.CursorLocation = 2
  15. cb2.LockType = 1
  16. cb2.Open()
  18. If texte = " " or from = ""  Then
  19. Msg="Veuillez remplir correctement le formulaire"
  20. Else
  21. Set cb = Server.CreateObject("ADODB.Recordset" )
  22. cb.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("suggestion.mdb" )
  23. cb.Source = "insert into reponse VALUES ('" & idsujet & "','" & from & "','" & texte & "')"
  24. cb.CursorType = 0
  25. cb.CursorLocation = 2
  26. cb.LockType = 1
  27. cb.Open()
  28. END If
  30. %>
  32. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
  33. "http://www.w3.org/TR/html4/loose.dtd">
  34. <html>
  35. <head>
  36. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  37. <title>Boite à Suggestion</title>
  38. </HEAD>
  39. <BODY>
  40. Sujet:
  41.   <select name="selectdep">
  42. <%while not cb2.eof%>
  43.   <option value="<%=cb2("sujet" )%>"><%=cb2("sujet" )%>
  44.   <%cb2.movenext
  45. wend
  46. %>
  47. </select>
  48.   <FORM ACTION="" Method="GET">
  49.   <TABLE BORDER="0">
  50. <TR>
  51. <TD>from :</TD><TD><INPUT NAME="from" TYPE="TEXT" size="50"></TD>
  52. </TR>
  53. <TR>
  54. <TD>texte :</TD><TD><textarea name="texte" cols="50" rows="6"></textarea></TD>
  55. </TR>
  56. <TR>
  57. <TD COLSPAN="2"><INPUT TYPE="SUBMIT" VALUE="Ajouter"></TD>
  58. </TR>
  59. </TABLE>
  61. </FORM>
  62. </BODY>
  63. </HTML>


Message édité par titi123 le 03-03-2005 à 15:55:21
Reply

Marsh Posté le 03-03-2005 à 15:54:34   

Reply

Marsh Posté le 03-03-2005 à 15:56:44    

titi123 a écrit :

Bonjour à vous, j'ai deux tables, une qui s'appel sujet avec comme champ: "titre" "adresse mail" et l'autre s'appel reponse et à "idsujet" "texte" "nom de lexped"
 
J'ai un formulaire qui possède une liste déroulante pour choisir le sujet et j'aimerai lors de mon insert dans reponse qu'il ai mettre le nom que j'ai sélectionner dans ma liste dans la table réponse.  
 
car j'essaye mais celà ne vas pas:
 
il me met bien le texte et le nom de l'exped mais pas le titre2 qui correspond à titre 1 dans la table sujet:
 
Source:
-------
 
 

Code :
  1. <%@language="VbScript"%>
  2. <%
  3. texte=Request.QueryString("texte" )
  4. from=Request.QueryString("from" )
  5. idsujet= Request.QueryString("selectdep" ).
  6. 'Recuperation des valeurs des champs dans des variables
  7. Dim cb
  8. dim cb2
  10. Set cb2 = Server.CreateObject("ADODB.Recordset" )
  11. cb2.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("suggestion.mdb" )
  12. cb2.Source = "select sujet from sujet"
  13. cb2.CursorType = 0
  14. cb2.CursorLocation = 2
  15. cb2.LockType = 1
  16. cb2.Open()
  18. If texte = " " or from = ""  Then
  19. Msg="Veuillez remplir correctement le formulaire"
  20. Else
  21. Set cb = Server.CreateObject("ADODB.Recordset" )
  22. cb.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath("suggestion.mdb" )
  23. cb.Source = "insert into reponse VALUES ('" & idsujet & "','" & from & "','" & texte & "')"
  24. cb.CursorType = 0
  25. cb.CursorLocation = 2
  26. cb.LockType = 1
  27. cb.Open()
  28. END If
  30. %>
  32. <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
  33. "http://www.w3.org/TR/html4/loose.dtd">
  34. <html>
  35. <head>
  36. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  37. <title>Boite à Suggestion</title>
  38. </HEAD>
  39. <BODY>
  40. Sujet:
  41.   <select name="selectdep">
  42. <%while not cb2.eof%>
  43.   <option value="<%=cb2("sujet" )%>"><%=cb2("sujet" )%>
  44.   <%cb2.movenext
  45. wend
  46. %>
  47. </select>
  48.   <FORM ACTION="" Method="GET">
  49.   <TABLE BORDER="0">
  50. <TR>
  51. <TD>from :</TD><TD><INPUT NAME="from" TYPE="TEXT" size="50"></TD>
  52. </TR>
  53. <TR>
  54. <TD>texte :</TD><TD><textarea name="texte" cols="50" rows="6"></textarea></TD>
  55. </TR>
  56. <TR>
  57. <TD COLSPAN="2"><INPUT TYPE="SUBMIT" VALUE="Ajouter"></TD>
  58. </TR>
  59. </TABLE>
  61. </FORM>
  62. </BODY>
  63. </HTML>



Reply

Marsh Posté le 07-03-2005 à 12:09:53    

Tu dois avoir des problèmes de " dans tes titres non ?
 

Code :
  1. <option value="<%=Server.URLEncode(cb2("sujet" ))%>"><%=Server.HTMLEncode(cb2("sujet" ))%></option>

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed