Bonjour à tous,

J'ai un petit problème d'accès à une base de données.

J'ai un fichier html qui contient cela :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
...
<head>
<script language="VBScript"   src="stat_visite.vbs"></script
....
</head>
....
<body>
<script language="VBSCRIPT">stat_visite()</script>
....
Et voici le code de la methode(sub) stat_visite()
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
 
 
sub stat_visite()
 
	Dim MoteurDeRecherche 
	MoteurDeRecherche = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
 
	'
	' Déclaration des variables de la base de données ACCESS
	'
 
	Dim objConnection
	Dim objRecordset
	Dim AccesFichier
 
	Dim NumVisite
	Dim NomVisiteur
	Dim NbVisite
	Dim DateDerniereVisite
	Dim maj
 
	maj = 0
 
	'stockage des valeur courantes
	NbVisite = 1
	msgbox("youpi")
	NomVisiteur = "toto"
	DateDerniereVisite = Now 'date du jour
 
	Msgbox (DateDerniereVisite)
	Msgbox (NomVisiteur)
 
	Fichier = "G:\bd1.mdb"
 
	Set objConnection = CreateObject("ADODB.Connection")
	Set objRecordset = CreateObject("ADODB.Recordset")
 
 
 
	AccesFichier = MoteurDeRecherche & Fichier
	Msgbox("test 1 : " & AccesFichier)
 
	objConnection.Open AccesFichier
	'le mesgbox suivant n'est pas affiché, message d'erreur sur l'appel de open
        Msgbox("test 2")
	objRecordset.Open "SELECT * FROM visites" , objConnection, adOpenStatic, adLockOptimistic
 
	'objRecordset.MoveLast
	'objRecordset.MoveFirst
	'pour chaque element de l'enregistrement retourné
	'while not(objRecordset.EOF)
	'	if objRecordset("nom_visiteur") = NomVisiteur then
	'		msgbox("update")
	'		objRecordset("nb_visite") = objRecordset("nb_visite") + NbVisite
	'		objRecordset("date_derniere_visite") = DateDerniereVisite
	'		maj = 1
	'		exit
	'	end if
	'	objRecordset.MoveNext
	'wend
 
	'if maj = 0 then
	'	msgbox("creation")
	'	objRecordset.AddNew
	'	objRecordset("nom_visiteur") = NomVisiteur
	'	objRecordset("nb_visite") = NbVisite
	'	objRecordset("date_derniere_visite") = DateDerniereVisite
	'	objRecordset.Update
	'end if
 
	objConnection.Close
	'document.write("ok")
end sub
Et au moment où la ligne "objConnection.Open AccesFichier" est executée j'ai le message suivant :

"Les paramètres de sécurité de cet ordinateur interdisent l'accès à une source de données située sur un autre domaine"

J'ai essayé de remplacer la ligne :
Fichier = "G:\bd1.mdb"
par Fichier = "\\serveur\site\fichiers\bd1.mdb"
ou par Fichier = "C:\Documents and settings\login\Bureau\bd1.mdb"

Et à chaque fois j'obtiens la même erreur.
J'ai essayé l'accès à un fichier XML et j'ai la même erreur.
J'ai les droits d'écriture sur tous ces emplacements.

Je ne sais d'ou peut venir ce problème ....

Quelqu'un aurait une idée ?

Merci beaucoup de votre aide !!!