Formulaire en ASP

Fermé
-
 jeff -
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

2 réponses

Tu dois mettre le loop après avoir fini de remplir tt tes champs car l'espression est :
do while not....
....
....
...
loop
je vois pas pkoi tu fais une boucle d'ailleur enleve la ligne do while not RS.eof car la méthode addnew ajoute a la fin du recordset....