Bonjour le forum,
Je travail avec asp3, vbscript et Access 2003 sous windows server 2003.
J'aimerais juste introduire des données via un site web asp et que ces
données soient enregistrées dans une table access.
J'ai créé un site de test que vous pouvez voir ici
[ Lien ]<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%Response.Buffer = False%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"
[ Lien ]">
<html xmlns="
[ Lien ]">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Document sans titre</title></head>
<body>
<%
dim cnn
dim rst
set cnn = server.createobject("ADODB.connection")
cnn.open "DSN=delibes"
set rst = server.CreateObject("ADODB.recordset")
rst.open "select * FROM [chanteur];",cnn
rst.movefirst
while not rst.EOF
%>
<td><table width="80%" border="1">
<tr>
<td width="23%"><%response.Write rst("nom")%></td>
<td width="77%"><div align="center">
<input name="txtun" type="text" id="txtun" size="4" />
</div></td>
<td width="77%"><div align="center">
<input name="txtdeux" type="text" id="txtdeux" value="<% =rst("chant")
%>" size="4" />
</div></td>
</tr>
</table></td>
<p>
<%
rst.movenext
wend
%>
</p>
<p> </p>
<form id="form1" name="form1" method="post" action="recupchanteur.asp">
<div align="center">
<input type="submit" name="Submit" value="Envoyer" />
</div>
</form>
<p align="center"> </p>
</body>
</html>
et voici le code de ma page "recupchanteur" feuille asp qui est censé
envoyer les données vers la table access :
J'aimerais juste entrer des cotes (exemple 18 , 15...) et en appuyant sur le
bouton, enregistrer ces cotes dans une table mais ça ne fonctionne pas. Pas
d'erreur mais lorsque je check la table de la base de données, il n'y a rien.
Voici le code de ma page chanteur.asp :
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"
[ Lien ]">
<html xmlns="
[ Lien ]">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Document sans titre</title>
</head>
<body>
<%
dim cnn
dim rst
const adOpenDynamic = 2
const adLockOptimistic = 3
set cnn = server.CreateObject("ADODB.CONNECTION")
cnn.open = "delibes"
set rst = server.CreateObject("ADODB.RECORDSET")
rst.open "select * FROM [chanteur];",cnn,2,3
rst.movefirst
'while not rst.eof
with request
rst("guitare") = .form("txtun")
rst("chant") = .form("txtdeux")
end with
'rst.movenext
'wend
rst.update
rst.close
set rst = nothing
cnn.close
set cnn = nothing
%>
<p> </p>
<p>Mise à jour effectuée </p>
</body>
</html>
J'ai fais au plus simple, sans boucle... mais ça ne fonctionne pas.
J'ai pourtant donné l'autorisation de modification sur la base de données à
tout le monde.
Est-ce que vous voyez quelque chose d'anormal ?
Merci d'avance pour votre aide.
David