BOnjour,
je fais une fonction de connexion et j'ai essayer d'écrire ce que je tape dans le champ dès le début le fonction. Mais il ne m'écrit rien du tout,c'est vraiment bizarre.

Voici mon code :
Code : 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
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
 
<%@ Page Language="VB" AutoEventWireup="false" CodeFile="GEST_CLIENT_LOGIN.aspx.vb" Inherits="gest_client_GEST_CLIENT_LOGIN" %>
 
<%@ Register Src="../mep/header.ascx" TagName="header" TagPrefix="uc1" %>
<%@ Register Src="../mep/menu.ascx" TagName="menu" TagPrefix="uc2" %>
<%@ Register Src="../mep/footer.ascx" TagName="footer" TagPrefix="uc3" %>
 
<%@ import Namespace = "System.data" %>
<%@ import Namespace = "System.data.Oledb" %>
 
<script runat="server">
Function Authentifier(strUtilisateur as string, strMotDePasse as string)
    dim bOk as boolean =false
    'Création d'une connexion SGBD
	dim strConnection as string = "Provider=Microsoft.Jet.OLEDB.4.0;"&"DataSource="&Request.MapPath("/SiteDupont2")&"\App_Data\BDGest_Client.mdb"
    'Définition de la requête à exécuter
	Dim strSQL as string ="SELECT * FROM TVendeur WHERE nom='" + strUtilisateur+ "'"
    'Dim strResultsHolder As string =""
	Dim ObjConnection As New System.Data.OleDb.OleDbConnection(strConnection)
	Dim objCommand As New System.Data.OleDb.OleDbCommand(strSQL,ObjConnection)
	Dim ObjDataReader As System.Data.OleDb.OleDbDataReader
    try 
		'Ouverture de la connexion et exécution de la requête
        ObjConnection.Open()
		objDataReader = objCommand.ExecuteReader()
        'Parcours de la liste des utilisateurs
        do while objDataReader.Read()=true
            'On regarde si le mot de pase est bon
			if (objDataReader("MotPasse") = strMotDePasse) then
                bOk = true
			end if
        loop 
		objDataReader.Close()
		ObjConnection.Close()
    catch ex as Exception
        bOk = false 
		lblConnexion.Text = "Impossible de se connecter à la base de donnée !"
    end try
    return bOk
end function
 
sub BtConnexion_Click(sender as object, e as EventArgs)
	response.Write("test")
	response.Write(txtBoxIdentifiant.Text)
	response.Write("test1")
	response.End()
    if (Authentifier(txtBoxIdentifiant.Text,txtBoxPassword.Text)) then
        FormsAuthentication.RedirectFromLoginPage(txtBoxIdentifiant.Text,false )
		lblConnexion.Text = "Vous êtes connecté !"
    else 
        'lblConnexion.Text = "Erreur de login et/ou de mot de passe !"
	end if
end sub
</script>
 
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Bienvenue Chez Dupont Shoes Box</title>
    <link href="../mep/style.css" rel="stylesheet" type="text/css" />
</head>
<body>
    <center>
    <form runat="server">
        <table id="tabletemplatehaut" class="MaTableTemplate">
            <tr>
                <td>
                    <uc1:header ID="Header1" runat="server" />                
                </td>
            </tr>
        </table>
        <table id="tabletemplatemilieu" class="MaTableTemplate">
            <tr>
                <td valign="top" bgcolor="#E0320F">
                    <uc2:menu ID="Menu1" runat="server" />                
                </td>
                <td class="MaTablePrincipale">       
                        <table width="300">
                            <tr>
                                <td class="MaTableFormulaireGauche"><font class="MonTxt">Identifiant :</font>
                                </td>
                                <td class="MaTableFormulaireDroite">
                                    <asp:TextBox ID="txtBoxIdentifiant" runat="server"></asp:TextBox></td>
                            </tr>
                            <tr>
                                <td class="MaTableFormulaireGauche"><font class="MonTxt">Password :</font>
                                </td>
                                <td class="MaTableFormulaireDroite">
                                    <asp:TextBox ID="txtBoxPassword" runat="server"></asp:TextBox></td>
                            </tr>
                            <tr>
                                <td class="MaTableFormulaireGauche">
                                    <asp:Button ID="btnConnexion" runat="server" Text="Connexion" OnClick="BtConnexion_Click" /></td>
                                <td class="MaTableFormulaireDroite">
                                    <asp:Button ID="btnAnnuler" runat="server" Text="Annuler" /></td>
                            </tr>                            
                        </table>      
                    <br />
                    <asp:Label ID="lblConnexion" runat="server" CssClass="MonTxt"></asp:Label>
					</td>
            </tr>
        </table>
        <table id="tabletemplatebas" class="MaTableTemplate">
            <tr>
                <td>
                    <uc3:footer ID="Footer1" runat="server" />                
                </td>
            </tr>
        </table>        
    </form>
    </center>
</body>
</html>