Submit en panne

Bonjour , merci pour vos interventions, voici le script

</SCRIPT>
</HEAD>
<BODY LANGUAGE="VBScript" BGCOLOR="#bfbfff",OnLoad =Page_Initialize>

<CENTER><H1>...::: Création d'un utilisateur :::...</H1>
<FORM NAME = "frmuser" METHOD = "Post">
<table>
<form name="Formulaire">
<table>
<tr align = center>
<td><font color=#00FF00>Login : </font></td><td><input type="text" name="StringResultat1"></td>
</tr>
<tr align = center>
<td><font color=#00FF00>Mot de Passe : </font></td><td><input type="password" name="StringResultat2"></td>
</tr>
<tr align = center>
<td><font color=#00FF00>Nom : </font></td><td><input type="text" name="StringResultat3"></td>
</tr>
<tr align = center>
<td><font color=#00FF00>Prénom : </font></td><td><input type="texte" name="StringResultat4"></td>
</tr>
<tr align = center>
<td><font color=#00FF00>Unité d'Organisation : </font></td><td><input type="texte" name="StringResultat5"></td>
</tr><tr align = center>
<td><font color=#00FF00>Description : </font></td><td><input type="texte" name="StringResultat6"></td>
</tr>
<tr align = center>
<td><font color=#00FF00>Etage : </font></td><td><input type="" name="StringResultat7"></td>
</tr>
</table>

<INPUT TYPE="submit" VALUE="créer" Name ="create" Onclick="createuser()">
<INPUT TYPE="reset" VALUE="Ré-Initialiser le Formulaire">

</FORM>
</P></BODY></HTML>

Merci encore

@insene22

	</SCRIPT>
	</HEAD>
	<BODY LANGUAGE="VBScript" BGCOLOR="#bfbfff",OnLoad =Page_Initialize>

	<CENTER><H1>...::: Création d'un utilisateur :::...</H1>
	<FORM NAME = "frmuser" METHOD = "Post">
		<table>
			<tr align = center>
				<td><font color=#00FF00>Login : </font></td><td><input type="text" name="StringResultat1"></td>
			</tr>
			<tr align = center>
				<td><font color=#00FF00>Mot de Passe : </font></td><td><input type="password" name="StringResultat2"></td>
			</tr>
			<tr align = center>
				<td><font color=#00FF00>Nom : </font></td><td><input type="text" name="StringResultat3"></td>
			</tr>
			<tr align = center>
				<td><font color=#00FF00>Prénom : </font></td><td><input type="text" name="StringResultat4"></td>
			</tr>
			<tr align = center>
				<td><font color=#00FF00>Unité d'Organisation : </font></td><td><input type="texte" name="StringResultat5"></td>
			</tr><tr align = center>
				<td><font color=#00FF00>Description : </font></td><td><input type="text" name="StringResultat6"></td>
			</tr>
			<tr align = center>
				<td><font color=#00FF00>Etage : </font></td><td><input type="text" name="StringResultat7"></td>
			</tr>
		</table>

		<INPUT TYPE="submit" VALUE="créer" Name ="create" Onclick="createuser()">
		<INPUT TYPE="reset" VALUE="Ré-Initialiser le Formulaire">

	</FORM>
	</P>
	</BODY>
</HTML> 

J'ai enlever une balise <form> et une <table> car je ne voyait pas à quoi elles servaient vu qu'elles n'étaient pas fermées plus tard. Puis tu avais des type="texte" je les ais remplacés par de "text" ainsi qu'un type vide qui je pense été aussi une type texte.

Je te conseille de faire des tabulation pour mieux structurer ton code et par conséquent avoir une meilleure lisibilité.(Enfin sur ton logiciel de programmation car ici sa va etre un peut court en largeur)

Bon après je connais pas trop le VBScript,je programme surtout en html, javascript et php. Donc je peux me tromper.
Puis j'aimerais aussi voir ta méthode createuser(), le problème peut aussi venir de la. Vu que tu avais deux formulaires il se peut que tu fasse référence au mauvais.

a+

@Tantor8Bonjour , merci tantor pour ton aide, voici le script vb pour le creatuser
, l'inconvenient c'est que cela valide champ par champ et non de façon globale.

<HTML><HEAD>
<TITLE>Validation dans formulaire avec VBScript</TITLE>

<SCRIPT LANGUAGE="VBscript">

Sub createuser

Dim StringResultat1
Dim StringResultat2
Dim StringResultat3
Dim StringResultat4
Dim StringResultat5
Dim StringResultat6
Dim StringResultat7

StringResultat1 = Formulaire.StringResultat1.Value
StringResultat2 = Formulaire.StringResultat2.Value
StringResultat3 = Formulaire.StringResultat3.Value
StringResultat4 = Formulaire.StringResultat4.Value
StringResultat5 = Formulaire.StringResultat5.Value
StringResultat6 = Formulaire.StringResultat6.Value
StringResultat7 = Formulaire.StringResultat7.Value

Const DOMAIN = "DC=toiptest,DC=fr"
Const SUFFIX = "@toiptest.fr"
Const UAC = 512

Set objLDAP = GetObject("LDAP")
Set objOU = GetObject("LDAP://OU="& StringResultat5 &",dc=toiptest,dc=fr")
Set objUser = objOU.Create("User", "cn="& StringResultat1)

objUser.Put "sAMAccountName",StringResultat1
objUser.Put "sn",StringResultat3
objuser.Put "userPrincipalName", StringResultat1 &"@toiptest.fr"
objUser.Put "givenName",StringResultat4
objUser.Put "displayName",Login
objUser.Put "userAccountControl",UAC
objUser.Put "physicalDeliveryOfficeName",StringResultat7
objUser.Put "description",StringResultat6
objUser.SetInfo
objUser.SetPassword "& StringResultat2 &"

If Err.Number<>0 Then
MsgBox "Une erreur s'est produite. Veuillez vérifier que les données saisies sont correctes.", vbCritical, "ERREUR"
Exit Sub
End If

MsgBox "Utilisateur "&StringResultat1" créé dans l'OU "StringResultat5"."

End Sub

@insene22Bonjour,
vu que j'ai enlevé le script qui s'appellait "Formulaire" il ne rest maintenant plus que celui qui s'appelle "frmuser", donc tu doit avoir maintenant:

StringResultat1 = frmuser.StringResultat1.Value

et ainsi de suite.

Sinon pour les validations je vois pas.