Erreur lors de l'execution d'une page asp développée avec dw

f.mouss32 · 05/12/2012, 17h42

Je reçois les messages d'erreurs suivant en exécutant une page asp développée avec DW :

Citation:

Erreur de compilation Microsoft VBScript error '800a0401'

Fin d'instruction attendue

/iisHelp/common/500-100.asp, line 11

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Microsoft OLE DB Provider for ODBC Drivers error '80040e4d'

[Microsoft][SQL Server Native Client 10.0][SQL Server]Cannot open database "supervision" requested by the login. The login failed.

/site/TMP9i7mld0sfo.asp, line 130

Voici le code source:

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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/maconnexion.asp" -->
<%
' *** Edit Operations: declare variables
 
Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd
 
Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId
 
Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i
 
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If
 
' boolean to abort record edit
MM_abortEdit = false
 
' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables
 
If (CStr(Request("MM_insert")) = "form1") Then
 
  MM_editConnection = MM_maconnexion_STRING
  MM_editTable = "[dbo.OUVERTURE PERSONNEL]"
  MM_editRedirectUrl = "horaires.asp"
  MM_fieldsStr  = "JOUR|value|HEURE|value"
  MM_columnsStr = "JOUR|',none,NULL|HEURE|',none,NULL"
 
  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
 
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next
 
  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If
 
End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it
 
Dim MM_tableValues
Dim MM_dbValues
 
If (CStr(Request("MM_insert")) <> "") Then
 
  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
      Else
        MM_formVal = MM_delim + MM_formVal + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"
 
  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
 
    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If
 
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows
 
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_maconnexion_STRING
Recordset1.Source = "SELECT *  FROM dbo.[OUVERTURE PERSONNEL]"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()
 
Recordset1_numRows = 0
%>
<html>
<head>
<title>Document sans titre</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
 
<body>
<form method="post" action="<%=MM_editAction%>" name="form1">
  <table align="center">
    <tr valign="baseline"> 
      <td nowrap align="right"><font color="#33CCCC">JOUR:</font></td>
      <td> <font color="#33CCCC"> 
        <input type="text" name="JOUR" value="" size="32">
        </font></td>
    </tr>
    <tr valign="baseline"> 
      <td nowrap align="right"><font color="#33CCCC">HEURE:</font></td>
      <td> <font color="#33CCCC"> 
        <input type="text" name="HEURE" value="" size="32">
        </font></td>
    </tr>
    <tr valign="baseline"> 
      <td nowrap align="right">&nbsp;</td>
      <td> <font color="#33CCCC"> 
        <input type="submit" value="Ins&eacute;rer l'enregistrement">
        </font></td>
    </tr>
  </table>
  <font color="#33CCCC"> 
  <input type="hidden" name="MM_insert" value="form1">
  </font> 
</form>
<p>&nbsp;</p>
<p>&nbsp; </p>
<p>&nbsp;</p>
<p>&nbsp; </p>
<p>&nbsp;</p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

roro06 · 06/12/2012, 10h23

Bonjour

Le message d'erreur est là :

Citation:

Cannot open database "supervision" requested by the login. The login failed.

et la ligne 130 :

Citation:

Recordset1.ActiveConnection = MM_maconnexion_STRING

... qui est normalement déclaré dans le fichier
Connections/maconnexion.asp

f.mouss32 · 07/12/2012, 14h14

Oui justement j'ai tout bien fais en fin je pense pour que la connexion se fasse
donc j'ai ajouté une source de donnée avec des pilote sql server native 10.x j'ai crée la base de donnée supervision avec ses tables avec sql server management studio j'ai remplis mes tables petite précision j'utilise une authentification windows et j'ai pas spécifié d'utilisateur avec des droit pour ma base je suis sous windows xp je sais qu'il y a un souci au niveau du login mais je ne sais pas ce que sait puisque j'ai pas spécifié de ni un login ni de mot de passe ni d'utilisateur avec des priviléges pour ma base.

merci pour votre retour

roro06 · 07/12/2012, 15h24

Citation:

...j'ai pas spécifié d'utilisateur avec des droit pour ma base je suis sous windows xp je sais qu'il y a un souci au niveau du login mais je ne sais pas ce que sait puisque j'ai pas spécifié de ni un login ni de mot de passe ni d'utilisateur avec des priviléges pour ma base.

Il faut ...

Peux tu montrer la chaine de connexion que tu utilises ?

f.mouss32 · 07/12/2012, 15h35

Code :

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

1
2
<%Set cnx = Server.CreateObject("ADODB.Connection")
cnx.Open "cupcon" %>

f.mouss32 · 07/12/2012, 15h39

en fait j'ai essayé d'ajouté un sous l'onglet sécurité de SSMS mais ça passe pas

f.mouss32 · 07/12/2012, 15h46

en fait j'ai il me dis que j'ai déjà des utilisateurs en allant vérifier j'ai trouvé 4 utilisateurs dbo,guest,INFORMATION_SHEMA,sys

07/12/2012, 14h14	#3
f.mouss32 Invité de passage mouhsine forsi Développeur informatique Inscription : août 2012 Messages : 7 Détails du profil Informations personnelles : Nom : mouhsine forsi Localisation : France, Saône et Loire (Bourgogne) Informations professionnelles : Activité : Développeur informatique Informations forums : Inscription : août 2012 Messages : 7 Points : 1 Points : 1	Oui justement j'ai tout bien fais en fin je pense pour que la connexion se fasse donc j'ai ajouté une source de donnée avec des pilote sql server native 10.x j'ai crée la base de donnée supervision avec ses tables avec sql server management studio j'ai remplis mes tables petite précision j'utilise une authentification windows et j'ai pas spécifié d'utilisateur avec des droit pour ma base je suis sous windows xp je sais qu'il y a un souci au niveau du login mais je ne sais pas ce que sait puisque j'ai pas spécifié de ni un login ni de mot de passe ni d'utilisateur avec des priviléges pour ma base. merci pour votre retour
	00

07/12/2012, 15h39	#6
f.mouss32 Invité de passage mouhsine forsi Développeur informatique Inscription : août 2012 Messages : 7 Détails du profil Informations personnelles : Nom : mouhsine forsi Localisation : France, Saône et Loire (Bourgogne) Informations professionnelles : Activité : Développeur informatique Informations forums : Inscription : août 2012 Messages : 7 Points : 1 Points : 1	en fait j'ai essayé d'ajouté un sous l'onglet sécurité de SSMS mais ça passe pas
	00

07/12/2012, 15h46	#7
f.mouss32 Invité de passage mouhsine forsi Développeur informatique Inscription : août 2012 Messages : 7 Détails du profil Informations personnelles : Nom : mouhsine forsi Localisation : France, Saône et Loire (Bourgogne) Informations professionnelles : Activité : Développeur informatique Informations forums : Inscription : août 2012 Messages : 7 Points : 1 Points : 1	en fait j'ai il me dis que j'ai déjà des utilisateurs en allant vérifier j'ai trouvé 4 utilisateurs dbo,guest,INFORMATION_SHEMA,sys
	00

Outils de la discussion
Afficher une version imprimable Envoyer un lien vers cette page par email