[ASP + VBScript] Erreur sur script
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:
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:
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 :lol: