fonction for each key .......

Version imprimable

09/01/2005, 23h29
trialrofr

fonction for each key .......

Bonjour à tous j'ai 1 probleme :

1/
J'ai recuperer un script ou une page inscriptionprocess.asp recupere les donnees d'un formulaire de la page inscription.asp (nom, prenom, password, email)
Dans une page il y a la fonction suivante :
*************************************************
For Each key in Request.Form
strName = key
strValue = Request.Form(key)
Session(strName) = strValue
Next

strUserID = Request.Form("strName")
strPass1 = Request.Form("strPass1")'pour le password
strPass2 = Request.Form("strPass2") 'confirmation du password
strFirst = Request.Form("strFirst")'nom
strLast = Request.Form("strLast")'prenom
strEmail = Request.Form("strEmail")
strAdmin = "admin"

On Error Resume Next

if strPass1 = strPass2 then

set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConString
set rsInsert = Server.CreateObject("ADODB.RecordSet")
rsInsert.Open "admin", Conn, adOpenStatic, adCmdTable

rsInsert.AddNew
rsInsert("username") = strUserID
rsInsert("password") = strPass1
rsInsert("fName") = strFirst
rsInsert("lName") = strLast
rsInsert("email") = strEmail
rsInsert("users") = strAdmin
rsInsert.Update

rsInsert.Close
set rsInsert = Nothing

Conn.close
set Conn = Nothing

if Err.number = 0 then
'everything is OK
%>
<h3>Admin Registration<h3>
Your registration was successful!
<a href="adminLogin.asp">Go to Login Page</a>
<%
else
'There was a problem with the registration
%>
Problem
There was a problem with your registration. 
Please go back and choose a different username.

****************************************************

Mais voila j'ai beau entrer les donnees pour faire un enregistrement j'ai toujours la reponse "There was a problem with your registration.
Please go back and choose a different username"
alors que ma BD est vide.

J'ai testé les variables suivantes key ; rtrName et request.form(key) en voulant les afficher avec response.write (response.write(request.form(key)); response.write(strName) ; response.write(key) et voici le resultat:

==> la ligne 'response.write(request.form(key))' a disparu
resultat srtName : submit1
resultat key :

Si je peuvais avoir un debut d'explication je suis preneur
d'avance merci!
10/01/2005, 09h46
franculo_caoulene

Salut,

Apparemment ton err.number est différent de 0. Fais donc un response.write de ton err.number est regarde là :arrow: pour avoir plus d'info sur le retour d'erreur vbscript.

Salut,

1- Si tu as une erreur dans ton script et que tu mets "On error resume next", tu ne connaitras jamais ton erreur. Enlève le.
1bis- Tu utilises "adOpenStatic, adCmdTable", fais-tu un include de ce fichier ADOVBS.INC dans ta page?
2- Pourquoi faire ceci:
Code:

1 2 3 4 5 6 7 strUserID = Request.Form("strName") strPass1 = Request.Form("strPass1")'pour le password strPass2 = Request.Form("strPass2") 'confirmation du password strFirst = Request.Form("strFirst")'nom strLast = Request.Form("strLast")'prenom strEmail = Request.Form("strEmail") strAdmin = "admin"
Quand tu fais ceci qqs lignes après:
Code:

1 2 3 4 5 6 rsInsert("username") = strUserID rsInsert("password") = strPass1 rsInsert("fName") = strFirst rsInsert("lName") = strLast rsInsert("email") = strEmail rsInsert("users") = strAdmin
Ca créé des variables inutilement je trouve.
3- tu n'utilise pas les variables de sessions que tu créés au début. Est-ce normal? Les utilises-tu par la suite? Ce n'est peut-être pas necessaire de créer des variables de session pour chaque élément du formulaire.

A+

10/01/2005, 11h12
trialrofr

bonjour a tous

1/ response.write(err) = -2147467259
en regardant les forums , j'ai appris que c'est un pb de connexion a la bd access

2/ il y a bien un un fichier adovbs.inc en debut de page

Pour Les variables de sessions inutiles ;j'ai repris le script tel quel

3/lors de mes test je suis en local et cela ne fonctionne donc pas OR quandd je monte le site chez mon hebergeur cela fonctionne; font bien dans la table admin???

je pense que cela viens du script de connexion à la bd

***************************

set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConString
set rsInsert = Server.CreateObject("ADODB.RecordSet")
rsInsert.Open "admin", Conn, adOpenStatic, adCmdTable

**************************

Comment faire pour que ce script fonctionne correctement en local?

d'avance merci.
10/01/2005, 11h44
franculo_caoulene

Avant toute chose :tagcode:
Ensuite, pour que ce soit plus parlant pour nous enlève le

Code:

on error resume next

On aura ainsi le message d'erreur (qu'on a l'habitude de voir) et le numéro de ligne.
Tu as bien une table "admin" dans ta BdD?
Ta chaîne de connexion est bien correcte pour qu'elle fonctionne en local? Tu n'oublies pas de la changer en local et chez ton hébergeur?
10/01/2005, 12h13
trialrofr

rerebonjour

1/ oui il ya bien une table "admin"

2/le script fonctionne bien chez mon hebergeur

3/ à la question :Ta chaîne de connexion est bien correcte pour qu'elle fonctionne en local? Tu n'oublies pas de la changer en local et chez ton hébergeur?

Reponse : ben justement comment faire? :-)

voici la chaine de connexion complete :

 ' en debut de page

ConString = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & pPath & ";" & "JET OLEDB:Database Password=11111111"

set Conn = Server.CreateObject("ADODB.Connection")
Conn.open ConString
set rsInsert = Server.CreateObject("ADODB.RecordSet")
rsInsert.Open "admin", Conn, adOpenStatic, adCmdTable

rsInsert.AddNew
rsInsert("username") = strUserID
rsInsert("password") = strPass1
rsInsert("fName") = strFirst
rsInsert("lName") = strLast
rsInsert("email") = strEmail
rsInsert("users") = strAdmin
rsInsert.Update

rsInsert.Close
set rsInsert = Nothing

Conn.close
set Conn = Nothing

***********************************
Faut-il changer des données dans le fichier adovbs ou reconfigurer mon serveur local?
d'avance merci!
10/01/2005, 12h18
Immobilis

1- Balise de code: qd tu edite un msg, tu as des boutons:

B = gras
I= italique
u= souligné
quote = citation
Code= balise de code!! Qui permet de mettre le code en evidence, comme ci-dessous.

2- enlève le

Code:

On error resume next

Et donnes nous le message

Merci
10/01/2005, 13h05
trialrofr

voici le message :

**************************************

Microsoft JET Database Engine erreur '80040e09'

Mise à jour impossible. La base de données ou l'objet est en lecture seule.

/bluestonn/adminRegisterProcess.asp, ligne 169

*************************************

la ligne 169 ==> rsInsert.AddNew

Je n'arrive pas a decocher le dossier de façon permanente
ps:j'ai norton en antivirus

d'avance merci
10/01/2005, 13h12
Immobilis

:tagcode:

Tu l'as vu?

:cry:
10/01/2005, 13h15
Immobilis

Citation:

Envoyé par trialrofr

Mise à jour impossible. La base de données ou l'objet est en lecture seule.
/bluestonn/adminRegisterProcess.asp, ligne 169

C'est clair, non?
Bon, quels sont les droits de IUSER_LENOMDETAMACHINE sur la base de données Access?

Citation:

Envoyé par trialrofr

Je n'arrive pas a decocher le dossier de façon permanente
ps:j'ai norton en antivirus

Décocher quoi?

A+
10/01/2005, 13h58
trialrofr

C'est tout bon :D :D

voici ce que j'ai fait

1/je suis allé dans le gestionnaire du serveur d'application--> gestionnaire des services internet ---> sites web --->propriete ---> et j'ai cocher dans 'repertoire de base' les cases lecture et ecriture

2/dans le dossier wwwroot l'administrateur a deja tous les droits

3/dans le dossier wwwroot j'ai egalement donne tous les droits (je suis le seul sur mon pc) à l'utilisateur

est ce juste ? En tout cas cela fonctionne :D

Mille mercis pour votre aide
10/01/2005, 14h00
franculo_caoulene

Tag [Résolu] s'il te plaît.
10/01/2005, 14h11
lexav

Citation:

Envoyé par trialrofr

dans le dossier wwwroot j'ai egalement donne tous les droits (je suis le seul sur mon pc) à l'utilisateur

c'est l'utilisateur IUSR_NomMAchine qui est utilisé par IIS pour accéder aux données : si tu parles de cet utilisateur, alors oui, c'est bon
10/01/2005, 14h29
trialrofr

ok