Accueil > Forum > > > > ARGGG HELP ME PLEASE
 ARGGG HELP ME PLEASE
dimanche 23 décembre 2001 à 23:13:48 |
ARGGG HELP ME PLEASE
max12
|
Il m'affiche l'erreur suivante - Microsoft][Pilote ODBC Microsoft Access] L'opération doit utiliser une requête qui peut être mise à jour. Lorsque je suis sous le serveur de efrance.fr mais si je teste localement sa marche Quelqu'un serais pourquoi Voici la source
<%
Option Explicit
Dim LeUserName, Larticle , Sujet, LeEmail , LeAdresse , LaCate
Dim RecordsetLivreOr
Dim MessagePostOK
Dim RequeteLivreOr
Dim MonDSN, MaConnexion
On error resume next
if not request.form("sujet") = "" or not request.form("article") = "" then call Ajouter()
Function Ajouter ()
MonDSN = "DBQ=" & Server.MapPath("data2.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set MaConnexion = Server.CreateObject("ADODB.Connection")
MaConnexion.ConnectionTimeout = 30
MaConnexion.CommandTimeout = 30
MaConnexion.Open MonDSN
LeUserName = request.cookies("Username")
Sujet = request.form("sujet")
Larticle = request.form("article")
LeEmail= request.cookies("lemail")
LaCate = request.form("categorize")
if LeEmail = "" or LeUserName = "" then
response.write "<BODY bgcolor=""#000000"" text=""#FFFFFF"" link=""#FFFFFF"" vlink=""#FFFFFF"" alink=""#808080"">"
response.write "<B><DIV ALIGN=""center"">Erreur d'identification, si votre navigateur prend pas les cookies virer le</DIV></B>"
Exit function
end if
if Sujet = "" or Larticle = "" then
response.write "<BODY bgcolor=""#000000"" text=""#FFFFFF"" link=""#FFFFFF"" vlink=""#FFFFFF"" alink=""#808080"">"
response.write "<B><DIV ALIGN=""center"">Vous avez oublier des champs</DIV></B>"
exit function
end if
RequeteLivreOr = "INSERT INTO livredor (ArticleNom, Sujet, Article, ArticleIP, AdresseEmail, Classement)"
RequeteLivreOr = RequeteLivreOr & "VALUES('" & LeUserName & "', '" & RemplaceMent(Sujet) & "', '" & RemplaceMent(Larticle) & "', '" & Request.ServerVariables("REMOTE_ADDR") &"', '" & LeEmail &"', '" & LaCate &"')"
MaConnexion.Execute RequeteLivreOr
MaConnexion.Close
Set MaConnexion = Nothing
response.write "<BODY bgcolor=""#000000"" text=""#FFFFFF"" link=""#FFFFFF"" vlink=""#FFFFFF"" alink=""#808080"">"
response.write "<B><DIV ALIGN=""center"">Formulaire poster avec succès<br>Merci de contribuer !!</DIV></B>"
End Function
response.write err.Description
%>
|
|
|
lundi 24 décembre 2001 à 10:07:07 |
Re : ARGGG HELP ME PLEASE
Mcjo
|
je te conseille de mofier ton code de cette facon tu n'aura plus cette erreur : d'eclare une variable : dim rslivreor set rslivreor = server.createobject("ADODB.recordset") tu prend cette partie : RequeteLivreOr = "INSERT INTO livredor (ArticleNom, Sujet, Article, ArticleIP, AdresseEmail, Classement)" RequeteLivreOr = RequeteLivreOr & "VALUES('" & LeUserName & "', '" & RemplaceMent(Sujet) & "', '" & RemplaceMent(Larticle) & "', '" & Request.ServerVariables("REMOTE_ADDR") &"', '" & LeEmail &"', '" & LaCate &"')" MaConnexion.Execute RequeteLivreOr MaConnexion.Close Set MaConnexion = Nothing tu la remplace comme ca : rslivreor.open "select * from livredor", MaConnexion, 1, 2 rslivreor.addNew rslivreor("ArticleNom") = LeUserName rslivreor("Sujet") = RemplaceMent(Sujet) rslivreor("Article") = RemplaceMent(Larticle) rslivreor("ArticleIP") = Request.ServerVariables("REMOTE_ADDR") rslivreor("AdresseEmail") = LeEmail rslivreor("Classement") = LaCate rslivreor.update rslivreor.close set rslivreor = nothing MaConnexion.Close Set MaConnexion = Nothing Et si tu as encore une erreur c'est que il y a un pb de droits d'acces sur ta base ou que le type des champ est incorrecte.... ------------------------------- Réponse au message : ------------------------------- Il m'affiche l'erreur suivante - Microsoft][Pilote ODBC Microsoft Access] L'opération doit utiliser une requête qui peut être mise à jour. Lorsque je suis sous le serveur de efrance.fr mais si je teste localement sa marche Quelqu'un serais pourquoi Voici la source
<%
Option Explicit
Dim LeUserName, Larticle , Sujet, LeEmail , LeAdresse , LaCate
Dim RecordsetLivreOr
Dim MessagePostOK
Dim RequeteLivreOr
Dim MonDSN, MaConnexion
On error resume next
if not request.form("sujet") = "" or not request.form("article") = "" then call Ajouter()
Function Ajouter ()
MonDSN = "DBQ=" & Server.MapPath("data2.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set MaConnexion = Server.CreateObject("ADODB.Connection")
MaConnexion.ConnectionTimeout = 30
MaConnexion.CommandTimeout = 30
MaConnexion.Open MonDSN
LeUserName = request.cookies("Username")
Sujet = request.form("sujet")
Larticle = request.form("article")
LeEmail= request.cookies("lemail")
LaCate = request.form("categorize")
if LeEmail = "" or LeUserName = "" then
response.write "<BODY bgcolor=""#000000"" text=""#FFFFFF"" link=""#FFFFFF"" vlink=""#FFFFFF"" alink=""#808080"">"
response.write "<B><DIV ALIGN=""center"">Erreur d'identification, si votre navigateur prend pas les cookies virer le</DIV></B>"
Exit function
end if
if Sujet = "" or Larticle = "" then
response.write "<BODY bgcolor=""#000000"" text=""#FFFFFF"" link=""#FFFFFF"" vlink=""#FFFFFF"" alink=""#808080"">"
response.write "<B><DIV ALIGN=""center"">Vous avez oublier des champs</DIV></B>"
exit function
end if
RequeteLivreOr = "INSERT INTO livredor (ArticleNom, Sujet, Article, ArticleIP, AdresseEmail, Classement)"
RequeteLivreOr = RequeteLivreOr & "VALUES('" & LeUserName & "', '" & RemplaceMent(Sujet) & "', '" & RemplaceMent(Larticle) & "', '" & Request.ServerVariables("REMOTE_ADDR") &"', '" & LeEmail &"', '" & LaCate &"')"
MaConnexion.Execute RequeteLivreOr
MaConnexion.Close
Set MaConnexion = Nothing
response.write "<BODY bgcolor=""#000000"" text=""#FFFFFF"" link=""#FFFFFF"" vlink=""#FFFFFF"" alink=""#808080"">"
response.write "<B><DIV ALIGN=""center"">Formulaire poster avec succès<br>Merci de contribuer !!</DIV></B>"
End Function
response.write err.Description
%>
|
|
|
mardi 25 décembre 2001 à 09:02:05 |
Re : ARGGG HELP ME PLEASE
max12
|
Merci  ------------------------------- Réponse au message : ------------------------------- je te conseille de mofier ton code de cette facon tu n'aura plus cette erreur : d'eclare une variable : dim rslivreor set rslivreor = server.createobject("ADODB.recordset") tu prend cette partie : RequeteLivreOr = "INSERT INTO livredor (ArticleNom, Sujet, Article, ArticleIP, AdresseEmail, Classement)" RequeteLivreOr = RequeteLivreOr & "VALUES('" & LeUserName & "', '" & RemplaceMent(Sujet) & "', '" & RemplaceMent(Larticle) & "', '" & Request.ServerVariables("REMOTE_ADDR") &"', '" & LeEmail &"', '" & LaCate &"')" MaConnexion.Execute RequeteLivreOr MaConnexion.Close Set MaConnexion = Nothing tu la remplace comme ca : rslivreor.open "select * from livredor", MaConnexion, 1, 2 rslivreor.addNew rslivreor("ArticleNom") = LeUserName rslivreor("Sujet") = RemplaceMent(Sujet) rslivreor("Article") = RemplaceMent(Larticle) rslivreor("ArticleIP") = Request.ServerVariables("REMOTE_ADDR") rslivreor("AdresseEmail") = LeEmail rslivreor("Classement") = LaCate rslivreor.update rslivreor.close set rslivreor = nothing MaConnexion.Close Set MaConnexion = Nothing Et si tu as encore une erreur c'est que il y a un pb de droits d'acces sur ta base ou que le type des champ est incorrecte.... ------------------------------- Réponse au message : ------------------------------- Il m'affiche l'erreur suivante - Microsoft][Pilote ODBC Microsoft Access] L'opération doit utiliser une requête qui peut être mise à jour. Lorsque je suis sous le serveur de efrance.fr mais si je teste localement sa marche Quelqu'un serais pourquoi Voici la source
<%
Option Explicit
Dim LeUserName, Larticle , Sujet, LeEmail , LeAdresse , LaCate
Dim RecordsetLivreOr
Dim MessagePostOK
Dim RequeteLivreOr
Dim MonDSN, MaConnexion
On error resume next
if not request.form("sujet") = "" or not request.form("article") = "" then call Ajouter()
Function Ajouter ()
MonDSN = "DBQ=" & Server.MapPath("data2.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
Set MaConnexion = Server.CreateObject("ADODB.Connection")
MaConnexion.ConnectionTimeout = 30
MaConnexion.CommandTimeout = 30
MaConnexion.Open MonDSN
LeUserName = request.cookies("Username")
Sujet = request.form("sujet")
Larticle = request.form("article")
LeEmail= request.cookies("lemail")
LaCate = request.form("categorize")
if LeEmail = "" or LeUserName = "" then
response.write "<BODY bgcolor=""#000000"" text=""#FFFFFF"" link=""#FFFFFF"" vlink=""#FFFFFF"" alink=""#808080"">"
response.write "<B><DIV ALIGN=""center"">Erreur d'identification, si votre navigateur prend pas les cookies virer le</DIV></B>"
Exit function
end if
if Sujet = "" or Larticle = "" then
response.write "<BODY bgcolor=""#000000"" text=""#FFFFFF"" link=""#FFFFFF"" vlink=""#FFFFFF"" alink=""#808080"">"
response.write "<B><DIV ALIGN=""center"">Vous avez oublier des champs</DIV></B>"
exit function
end if
RequeteLivreOr = "INSERT INTO livredor (ArticleNom, Sujet, Article, ArticleIP, AdresseEmail, Classement)"
RequeteLivreOr = RequeteLivreOr & "VALUES('" & LeUserName & "', '" & RemplaceMent(Sujet) & "', '" & RemplaceMent(Larticle) & "', '" & Request.ServerVariables("REMOTE_ADDR") &"', '" & LeEmail &"', '" & LaCate &"')"
MaConnexion.Execute RequeteLivreOr
MaConnexion.Close
Set MaConnexion = Nothing
response.write "<BODY bgcolor=""#000000"" text=""#FFFFFF"" link=""#FFFFFF"" vlink=""#FFFFFF"" alink=""#808080"">"
response.write "<B><DIV ALIGN=""center"">Formulaire poster avec succès<br>Merci de contribuer !!</DIV></B>"
End Function
response.write err.Description
%>
|
|
|
mardi 7 septembre 2004 à 13:44:40 |
Re : ARGGG HELP ME PLEASE
Dawson62260
|
Salut!
A mon avis tu dois avoir des problèmes d'accès en écriture sur le dossier dans lequel tu stocke ta base de données.
Voila bonne continuation....!
|
|
jeudi 23 septembre 2004 à 13:46:13 |
Re : ARGGG HELP ME PLEASE
zorlac
|
dire cela ou rien c la mm chose!!
je me dde par contre s'il ne faut pas changer le IUSER au niveau de la virtual dir ...
zorlac
|
|
Cette discussion est classée dans : function, end, write, response, requetelivreor
 Répondre à ce message
 Sujets en rapport avec ce message
conditions [ par rony ]
bjrdans le code suivant la conditionif rs("consultation") = "" thenresponse.write " "else response.write "<input type='text' size='1' name='consultat
modification d'une page [ par fraud ]
Bonjourj'ai recupéré un forum en asp, il est en anglais et j'essaye de le traduire en français, mais il y a une page que je ne peux pas modifier. si l
aide code asp urgent ! [ par tommie ]
bonjour a tous,Dans une page je vais afficher les questionnaires des enfants a impimerEt pour chaque questionnaire je met des infos les concernantMais
probléme avec explorateur de fichier [ par gatita_dev ]
bonjour,j 'ai traduit la source asp suivant <a href="http://w
j'ai besoin d'aide [ par none2502 ]
bonjour j'ai un probléme au niveau de l'affichage de ma page , lorsque je clique sur le bouton valider il m'affiche le resultat en bas de la page , ma
ASp chartdirector [ par benjiconventi ]
bonjour a l'équipe web et a tous les internautes, voila j'ai un petit souci en asp dut a mon niveau débutant.J'ai deux pages asp une qui ouvre ma base
parcourir un dossier sur un réseau [ par nirega ]
Bonjour,je voudrais parcourir un dossier sur le serveur du bureau.mais il ne le vois jamais ???peut importe le lien que je lui donne, sauf en localil
erreur lors envoi fichier response.end [ par fredzool ]
Dim Visuname As String Visuname = Me.List_Old_VBCC.SelectedItem.Text ' On efface les éventuelles données déjà dans la mé
executer 2 actions sur formulaire [ par nickg ]
Bonjour, j'ai un simple formulaire (form.asp) qui envoie, via une autre page "record.asp" les infos du formulaire dans une base de données. Une fois l
combo dynamique en cascade [ par Minou77 ]
Bonjour,Y a t-il une solution pour enchainer plusieur combo (qui vont chercher les données avec un lien ODBC dans une base SQL, ceci ca fonctionne imp
 Livres en rapport
|
Derniers Blogs
 [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz SESSION SILVERLIGHT 5 3D : SLIDES ET DEMOSSESSION SILVERLIGHT 5 3D : SLIDES ET DEMOS par Groc
Durant les techdays, j'ai eu le plaisir d'animer une session sur Silverlight 5 et la 3D avec Simon Ferquel. Comme promis, voici nos slides et mes démos (celles avec le viper BSG) ici et là. Pour mémoire, les démos utilisent toutes le viper BSG...
Cliquez pour lire la suite de l'article par Groc [TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES[TECHDAYS 2012] SESSION WEBMATRIX 2 : LE COUTEAU SUISSE GRATUIT POUR VOS DéVELOPPEMENTS WEB - SLIDES par gpommier
Suite à la session que j'ai présenté sur WebMatrix 2, vous pouvez trouver les slides ici, ainsi que les démos en packages nuget : démos1 et démos2 J'en profite pour remercier chaleureusement tous ceux qui sont venus très nombreux à cette sess...
Cliquez pour lire la suite de l'article par gpommier
Forum
 RE : FORMULAIRERE : FORMULAIRE par ap24dp
Cliquez pour lire la suite par ap24dp RE : FORMULAIRERE : FORMULAIRE par Megafan
Cliquez pour lire la suite par Megafan
Logiciels
 Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System Easy-Planning (1.0.0.1)EASY-PLANNING (1.0.0.1)Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ... Cliquez pour télécharger Easy-Planning
|