|
|
Vous êtes ici : Forums > Langage ASP > Erreur de compilation Microsoft VBScript error '800a0400'
Erreur de compilation Microsoft VBScript error '800a0400'
J'utilise ASP et IIS avec XP Pro comme systeme. Mais il me signale cette erreur plus bas que vous verrz apres le code. Je ne comprends encore rien a ASP, SQL Server et leur logique. Voici mon code:
********************************
********************************
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nouvelle page 1</title>
</head>
<body>
<%
option explicit
response.buffer = true
' Constantes de Bases de Données
Const adLockReadOnly = 1
Const adLockOptimistic = 3
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adOpenKeyset = 1
' Constante de formattage
const font = "face=""arial"" color=""#000000"" size=""2"""
dim conn as Connection, rs as Recordset, connstring as String
'set conn = new Connection
'set rs = new Recordset
'response.write "Voici les données de la table authors dans la BDD pubs"
'connexion ADO vers SQL -------------------
Set conn = Server.CreateObject("ADODB.Connection")
connstring = "provider=SQLOLEDB.1;" _
& "DataSource=C:\Inetpub\wwwroot\SQLSERVERDATA;" _
& "Initial Catalog=pubs;" _
& "User ID=Juvénal;" _
& "password=;" _
conn.open 'connstring
'FIN ADO vers SQL -------------------
set rs = server.createObject("ADODB.Recordset")
rs.open "authors", conn,adLockOptimistic, adOpenDynamic
' affichage du nombre d'enregistrements
response.write "<b>" & rs.recordCount & " enregistrements</b>"
response.write "<TABLE border=1 bordercolor=#AAAAC9 cellpadding=2 cellspacing=0 style=""font-size:10pt""><tr>"
' affichage des nom de champs
for i=0 to rs.Fields.count-1
response.write "<th>" & rs.fields(i).au_lname &"</th>"
response.write "<th>" & rs.fields(i).au_fname &"</th>"
response.write "<th>" & rs.fields(i).phone &"</th>"
response.write "<th>" & rs.fields(i).adress &"</th>"
next
response.write "</tr>"
' affichage des valeurs
do while not rs.eof
response.write "<tr>"
for i=0 to rs.Fields.count-1
response.write "<td>" & rs.fields(i).value & "</td>"
response.write "<td>" & rs.fields(i).value & "</td>"
response.write "<td>" & rs.fields(i).value & "</td>"
response.write "<td>" & rs.fields(i).value & "</td>"
next
rs.movenext
response.write "</tr>"
loop
response.write "</TABLE>"
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</body>
</html>
*************************************************
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
--------------------------------------------------------------------------^
Erreur de compilation Microsoft VBScript error '800a0400'
Instruction attendue
/test1/default.asp, line 10
option explicit
^
Message posté le 24/04/2006
par Juve
Répondre à ce message |
|
|
|
A RETENIR CETTE SEMAINE |
21/11/2008 -
Microsoft Windows fête ses 23 ans !
Le célèbre système d'exploitation de Microsoft fête aujourd'hui son vingt-troisième anniversaire. C' ...
|
21/11/2008 -
Pratiques fondamentales pour un développement logiciel sûr
L'article de Micheal Howard vient d'être traduit en français par Kader Yildirim ! Ce document synthé ...
|
21/11/2008 -
Mise à jour de la méthode SDL pour éradiquer définitivement les Mécapoulets
Les Mécapoulets sont une menace perpétuelle pour les développeurs et les utilisateurs de leurs appli ...
|
20/11/2008 -
A la découverte des tests d’interfaces graphiques avec Visual Studio 2010
Microsoft introduit dans sa version 2010 de Visual Studio les « Coded UI Tests », ou « Tests d’inter ...
|
20/11/2008 -
PDC 2008 - Windows Azure vu par Grégory Renard
Grégory vous propose de découvrir en vidéo - et en 5 minutes - les annonces faites autour de Windows ...
|
20/11/2008 -
Microsoft prépare une suite antivirus gratuite
L’éditeur abandonne Live One Care, sa solution payante, au profit de Morro, une suite antivirus grat ...
|
19/11/2008 -
Comprendre le fonctionnement des Rules de WF
L'activité Policy va nous permettre de piloter nos workflows à partir de règles simples mais efficac ...
|
|
|
