Bonjour,
Je cherche à faire un formulaire en ASP qui remplisse une BDD.
Mon formulaire est fait en:
<form name="sondage1" method="post" action="ajout.asp">
Et la page ajout.asp a le code:
<%
set conn = server.createobject("ADODB.connection")
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/sondage.mdb"
conn.open connstring
age=request.Form("age")
enfants=request.Form("enfants")
cinema=request.Form("cinema")
toystory1=request.Form("toystory1")
toystory2=request.Form("toystory2")
fourmiz=request.Form("fourmiz")
1001pattes=request.Form("1001pattes")
chickenrun=request.Form("chickenrun")
shrek=request.Form("shrek")
agedeglace=request.Form("agedeglace")
monstre=request.Form("monstre")
nemo=request.form("nemo")
techniques=request.Form("techniques")
scenario=request.Form("scenario")
enfance=request.form("enfance")
autre=request.Form("autre")
mail=request.form("mail")
sql = "select * from sondage1"
set rs = Server.Createobject("adodb.recordset")
Rs.open SQL, conn, 3, 3, 1
Rs.movefirst
DO while Not Rs.EOF
rs.addnew
rs.fields("age") = age
rs.fields("enfants") = enfants
rs.fields("cinema") = cinema
rs.fields("toystory1") = toystory1
rs.fields("toystory2") = toystory2
rs.fields("fourmiz") = fourmiz
rs.fields("1001pattes") = 1001pattes
rs.fields("chickenrun") = chickenrun
rs.fields("shrek") = shrek
rs.fields("agedeglace") = agedeglace
rs.fields("monstre") = monstre
rs.fields("nemo") = nemo
rs.fields("techniques") = techniques
rs.fields("scenario") = scenario
rs.fields("enfance") = enfance
rs.fields("autre") = autre
rs.fields("mail") = mail
rs.update
rs.close
set rs=nothing
conn.close
set conn = NOTHING
%>
Merci d'avoir participer à mon sondage!
Ma base de donnée se trouve dans le meme répertoire que ajout.asp et que le formulaire.
Le message d'erreur qui s'affiche est:
Microsoft VBScript compilation error '800a03fb'
Expected 'Loop'
/agcportfolio/ajout.asp, line 50
Je n'en peux plus de chercher mon erreur...
Merci de me sauver!
Aurore