' CONTENU DE LA PAGE VERIF_USER.ASP
Dim objTable,strcode,strSQL, arrChamps,strnom,strpwd
strnom=Request.form("Utilisateur" )
strpwd=Request.form("MotDePasse" )
Set objTable = Server.CreateObject("ADODB.Recordset" )
strSQL="SELECT DISTINCT a.code,a.password FROM Users a,personnel b where a.cle_personnel=b.code and b.Libelle='"& strnom &"'"
objTable.Open strSQL, strConnexion
'MESSAGE RETOURNé
ADODB.RECORDSET (0X800A0BB9)
LES ARGUMENTS SONT DE TYPE INCORRECT, EN DEHORS DES LIMITES AUTORISéES OU EN CONFLIT LES UNS AVEC LES AUTRES.
/TEST_BD/VERIF_USER.ASP, LINE 14
' CONTENU DE LA PAGE CONNECTIONBANQUE.ASP
<%
' PERMET DE SE CONNECTER SUR LA BASE DE DONNéES SOUS-JACENTE
Dim strConnexion
' UTILISER LA SéLECTION POUR PARAMéTRER LA CHAîNE DE CONNECTION
strConnexion = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=C:\Developpement_base_donne_intranet\personnel.mdb;" & _
"Persist Security Info=False"
%>
