[ASP + VBScript] Erreur sur script

**richard_sraing** · 24/04/2009, 11h03

Bonjour tout le monde.

Voilà, j'ai un problème de taille. J'ai ma page asp permettant la connexion du user au site. Dans cette page, j'ai plusieurs lignes de VBscript. Il se fait, que depuis ce matin, plus aucun script n'est pris en compte.

Pour le moment, je n'ai aucune ligne de code VBScript dans ma page et elle s'affiche.
Dès lors, dés que j'insère du code VBScript, la dernière ligne de ce code sera renseignée comme générant une erreur.

voici donc ma page actuellement:

Code html :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
   "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="fr" >
<head>
  <title>Login</title>
  <meta http-equiv="content-type" content="text/html;charset=iso-8859-1" />
  <meta name="GENERATOR" content="Visual DataFlex Studio">
  <link rel="STYLESHEET" href="css/WebApp.css" type="text/css" />
</head>
<body>
	<h3>Login :</h3></br>
	<form method="POST" name="LoginForm" action="Login.asp">
		<table>
			<tr>
				<td>
 
					Nom d'utilisateur:</td><td><input type="text" name="username" id="username" value=""/>
 
					Nom d'utilisateur:</td><td><input type="text" name="username" id="username" /></br>
 
				</td>
			</tr>
			<tr>
				<td>
					Mot de passe:
				</td>
				<td>
					<input type="password" name="password" id="password"/>
				</td>
			</tr>
			<tr>
				<td>
					Sélectionné le dossier:
				</td>
				<td>
					<select size="1" name="Directory">
 
					</select>
				</td>
			</tr>
			<tr>
				<td>
					<input type="reset" name="bRAZ" value="Effacer">
				</td>
				<td>
					<input type="submit" name="bValid" value="Se connecter"/>
				</td>
			</tr>
		</table>
	</form>
<div class="VDF">
	<img src="./Images/Bc-Pro.png" />
	<a href="http://www.dataaccess.com/" style="border: none;" target="_blank"><img src="./Images/PoweredByVisualDataFlex.gif"/></a>
</div>
</body>
</html>

Alors quand je rajoute une partie du code VBScript, j'obtiens

Code vbscript :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
<%'
    '  CliEntry
    '
    Option Explicit ' Force explicit variable declaration.
 
if request("Request_method")="POST" then
 
	Dim sRights, sDos
 
    sUsername = Request.form("username")
    sPassword = Request.form("password")
    sDirectory = Request.form("Directory")
 
    if sUsername<>"" and sDirectory<>"" then
        sRights = oLogin.call("Get_Login_User", sUsername, sPassword, sDirectory)
    else
        sRights = "KOUP"
    end if
 
    if sRights="KOD" then
        response.cookies("Defaults")("Username")=sUsername
        response.cookies("User")("Name")=""
        response.cookies("User")("Rights")=""
        response.Redirect("./Error.asp?ErrCode=100&ErrMsg=Vous n'avez pas les droits d'accès à ce répertoire")
 
    else if sRights="KOUP" then
        response.Redirect("./Error.asp?ErrCode=101&ErrMsg=Le nom d'utilisateur et le mot de passe ne correspondent pas")
	else if sRights="PwReq" then
		response.Redirect("./Error.asp?ErrCode=106&ErrMsg=Vous devez disposer d'un mot de passe pour des raisons de sécurité.")
    else 
        response.cookies("Defaults")("Username") = sUsername
        response.cookies("Defaults")("Directory") = sDirectory
        response.cookies("Defaults").Expires = #19/01/2038#
 
		Session("Init") = oMenu.call("Get_Username", Session("Init"))
		Session("UserName") = oLogin.call("Get_Initiales", sUsername)
		Session("Rights") = oLogin.call("Get_DoRights", sUsername)
        response.redirect("./Main.asp")
    end if
    end if
 
	sDos = request.cookies("Defaults")("Directory")
 
end IF
%>'la suite de la page asp ici (extrait précédent donc)

Il me fait alors un message d'erreur en retour au niveau de la dernière ligne dans le fichier, dans ce cas donc "end IF".

Si je rajoute du code après, ce sera la dernière ligne de ce code qui génèrera l'erreur.

Quelqu'un à une idée de pourquoi ça ne marche plus, alors que mercredi, tout fonctionnait encore parfaitement.

Merci d'avance pour les idées

p.s.: Le code asp parait bizarre car quelque partie son conditionnée par du VBScript justement

**amar00** · 24/04/2009, 11h27

Avant ton
sDos = request.cookies("Defaults")("Directory")
il n'y aurait pas un end if en trop par hasard?

**richard_sraing** · 24/04/2009, 11h43

Euh, non, j'aurais plutôt dit qu'il en manquait un.

Bon, je viens de le rajouter, et maintenant ça marche.

Mais je ne comprends pas pourquoi ça marchait l'autre, et plus maintenant.

Boh, les joies de l'informatique.

Merci de m'avoir mis sur la bonne voie.

[ASP + VBScript] Erreur sur script

ASP

Discussions similaires

Partager

Partager