Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Windows Windows Serveur IIS Comment afficher les pages ASP avec IIS 5.1

Comment afficher les pages ASP avec IIS 5.1

6 réponses
Avatar
MoneyLine
Bonsoir,

je viens d'installer Windows XP pro sur ma machine avec le SP2, et le
serveur Internet de Win XP (IIS 5.1) ne me permet pas d'afficher les pages en
ASP.

Ces mêmes pages fonctionnent trés bien avec W2K pro et le serveur Web
intégré à celui-ci.

Quel modification dois-je apporter à ma pages pour régler le problème?

Merci de votre aide et bonne soirée
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Sebastien Bovo [MS]
Bonjour,

Normalement, il n'y a aucune configuration à faire pour faire fonctionner
les pages ASP sur Windows XP. As-tu un message d'erreur lorsque tu navigues
sur les pages ASP ? ou as-tu le code de la page qui s'affiche ?

--
Cordialement,

Sebastien Bovo
Microsoft France
----------
Ce message est fourni en l'état, sans garantie d'aucune sorte, et ne vous
confère aucun droit. Vous assumez tous les risques liés à son utilisation.


"MoneyLine" wrote in message
news:
Bonsoir,

je viens d'installer Windows XP pro sur ma machine avec le SP2, et le
serveur Internet de Win XP (IIS 5.1) ne me permet pas d'afficher les pages
en
ASP.

Ces mêmes pages fonctionnent trés bien avec W2K pro et le serveur Web
intégré à celui-ci.

Quel modification dois-je apporter à ma pages pour régler le problème?

Merci de votre aide et bonne soirée


Avatar
MoneyLine
Bonjour Monsieur BOvo,

je vous remercie de votre réponse et vous prie de trouver ci-dessous le
message d'erreur qui apparait lorsque j'execute la page en ASP.

Vous trouverez eégalement ci-dessous le code de la page.

Je développe mes pages avec Dreamweaver MX 2004 et une base Access 2000

Merci de votre aide

Olivier BONNEMOY


Message d'erreur à l'ouverture de la page :

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 JET Database Engine error '80004005'

Pilote ISAM introuvable.

/moneyline/Connections/clientsmps.asp, line 9

Code de la page à executer :

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../../../Connections/clientsmps.asp" -->
<%
Dim rs_societe
Dim rs_societe_numRows

Set rs_societe = Server.CreateObject("ADODB.Recordset")
rs_societe.ActiveConnection = chaineConn
rs_societe.Source = "SELECT DISTINCT societe FROM contacts_mps WHERE
societe <> null ORDER BY societe ASC"
rs_societe.CursorType = 0
rs_societe.CursorLocation = 2
rs_societe.LockType = 1
rs_societe.Open()
rs_societe_numRows = 0
%>
<%
Dim rs_type
Dim rs_type_numRows

Set rs_type = Server.CreateObject("ADODB.Recordset")
rs_type.ActiveConnection = chaineConn
rs_type.Source = "SELECT DISTINCT type FROM contacts_mps WHERE type <>
null ORDER BY type ASC"
rs_type.CursorType = 0
rs_type.CursorLocation = 2
rs_type.LockType = 1
rs_type.Open()

rs_type_numRows = 0
%>
<%
Dim rs_region
Dim rs_region_numRows

Set rs_region = Server.CreateObject("ADODB.Recordset")
rs_region.ActiveConnection = chaineConn
rs_region.Source = "SELECT DISTINCT region FROM contacts_mps WHERE region
<> null ORDER BY region ASC"
rs_region.CursorType = 0
rs_region.CursorLocation = 2
rs_region.LockType = 1
rs_region.Open()

rs_region_numRows = 0
%>
<%
Dim rs_commercial
Dim rs_commercial_numRows

Set rs_commercial = Server.CreateObject("ADODB.Recordset")
rs_commercial.ActiveConnection = chaineConn
rs_commercial.Source = "SELECT DISTINCT commercial FROM contacts_mps WHERE
commercial <> null ORDER BY commercial ASC"
rs_commercial.CursorType = 0
rs_commercial.CursorLocation = 2
rs_commercial.LockType = 1
rs_commercial.Open()

rs_commercial_numRows = 0
%>
<%
Dim rs_itc
Dim rs_itc_numRows

Set rs_itc = Server.CreateObject("ADODB.Recordset")
rs_itc.ActiveConnection = chaineConn
rs_itc.Source = "SELECT DISTINCT itc1 FROM contacts_mps WHERE itc1 <> null
ORDER BY itc1 ASC"
rs_itc.CursorType = 0
rs_itc.CursorLocation = 2
rs_itc.LockType = 1
rs_itc.Open()

rs_itc_numRows = 0
%>
<html>
<head>
<title>Recherche dans la base client</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.Style13 {
font-size: 16px;
font-weight: bold;
}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="100%" border="0">
<tr>
<td width="87%"><font face="Arial, Helvetica, sans-serif"><span
class="Style13">Fichier Clients / Prospects Moneyline Payment Systems
</span></font></td>
<td width="13%"><div align="right"><a href="../../srv_commercial.htm"
target="_self"><img src="../../../../graphics/gif/divers/backsommaire.gif"
alt="Retour à la page précedente" width="80" height="25"
border="0"></a></div></td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
</table>
<p align="center"><font face="Arial, Helvetica, sans-serif"
size="2"><b>Recherche par Nom de société : </b></font> </p>
<form action="resultat.asp" method="get" name="rech_societe" target="_self"
id="rech_societe">
<table width="100%" border="0">
<tr>
<td><div align="center">
<select name="rech_societe" id="rech_societe">
<option value="xxxx">Recherche par societe</option>
<%
While (NOT rs_societe.EOF)
%>
<option
value="<%=(rs_societe.Fields.Item("societe").Value)%>"><%=(rs_societe.Fields.Item("societe").Value)%></option>
<%
rs_societe.MoveNext()
Wend
If (rs_societe.CursorType > 0) Then
rs_societe.MoveFirst
Else
rs_societe.Requery
End If
%>
</select>
<img src="../../../../graphics/gif/divers/blanc2.gif" width="10"
height="10">
<input type="submit" name="Submit" value="Valider">
</div></td>
</tr>
</table>
</form>
<p align="center"><font face="Arial, Helvetica, sans-serif"
size="2"><b>Recherche par Type de société : </b></font></p>
<form action="resultat_type.asp" method="get" name="rech_type"
target="_self" id="rech_type">
<table width="100%" border="0">
<tr>
<td><div align="center">
<select name="selectype" id="selectype">
<option value="xxxx">Recherche par type de client</option>
<%
While (NOT rs_type.EOF)
%>
<option
value="<%=(rs_type.Fields.Item("type").Value)%>"><%=(rs_type.Fields.Item("type").Value)%></option>
<%
rs_type.MoveNext()
Wend
If (rs_type.CursorType > 0) Then
rs_type.MoveFirst
Else
rs_type.Requery
End If
%>
</select>
<img src="../../../../graphics/gif/divers/blanc2.gif" width="10"
height="10">
<input type="submit" name="Submit" value="Valider">
</div></td>
</tr>
</table>
</form>
<p align="center"><font face="Arial, Helvetica, sans-serif"
size="2"><b>Recherche par Région : </b></font></p>
<form action="resultat_regions.asp" method="get" name="rech_region"
target="_self" id="rech_region">
<table width="100%" border="0">
<tr>
<td><div align="center">
<select name="region" id="region">
<option value="xxxx">Selectionnez une region</option>
<%
While (NOT rs_region.EOF)
%>
<option
value="<%=(rs_region.Fields.Item("region").Value)%>"><%=(rs_region.Fields.Item("region").Value)%></option>
<%
rs_region.MoveNext()
Wend
If (rs_region.CursorType > 0) Then
rs_region.MoveFirst
Else
rs_region.Requery
End If
%>
</select>
<img src="../../../../graphics/gif/divers/blanc2.gif" width="10"
height="10">
<input type="submit" name="Submit" value="Valider">
</div></td>
</tr>
</table>
</form>
<p align="center"><font face="Arial, Helvetica, sans-serif"
size="2"><b>Recherche par Commercial :</b></font></p>
<form action="resultat_commercial.asp" method="get" name="rech_comm"
target="_self" id="rech_comm">
<div align="center">
<table width="100%" border="0">
<tr>
<td><div align="center">
<select name="commercial" id="commercial">
<option value="xxxx">Recherche par Commercial</option>
<%
While (NOT rs_commercial.EOF)
%>
<option
value="<%=(rs_commercial.Fields.Item("commercial").Value)%>"><%=(rs_commercial.Fields.Item("commercial").Value)%></option>
<%
rs_commercial.MoveNext()
Wend
If (rs_commercial.CursorType > 0) Then
rs_commercial.MoveFirst
Else
rs_commercial.Requery
End If
%>
</select>
<img src="../../../../graphics/gif/divers/blanc2.gif" width="10"
height="10">
<input type="submit" name="Submit" value="Valider">
</div></td>
</tr>
</table>
</div>
</form>
<p align="center"><b><font size="2" face="Arial, Helvetica,
sans-serif">Recherche par ITC :</font></b></p>
<form action="resultat_itc.asp" method="get" name="rech_itc" target="_self"
id="rech_itc">
<table width="100%" border="0">
<tr>
<td><div align="center">
<select name="select_itc" id="select_itc">
<option value="xxxx">Recherche par ITC</option>
<%
While (NOT rs_itc.EOF)
%>
<option
value="<%=(rs_itc.Fields.Item("itc1").Value)%>"><%=(rs_itc.Fields.Item("itc1").Value)%></option>
<%
rs_itc.MoveNext()
Wend
If (rs_itc.CursorType > 0) Then
rs_itc.MoveFirst
Else
rs_itc.Requery
End If
%>
</select>
<img src="../../../../graphics/gif/divers/blanc2.gif" width="10"
height="10">
<input type="submit" name="Submit" value="Valider">
</div></td>
</tr>
</table>
</form>
<p align="center"><b><font size="3" face="Arial, Helvetica,
sans-serif"></font></b></p>
<p> </p>
</body>
</html>
<%
rs_societe.Close()
Set rs_societe = Nothing
%>
<%
rs_type.Close()
Set rs_type = Nothing
%>
<%
rs_region.Close()
Set rs_region = Nothing
%>
<%
rs_commercial.Close()
Set rs_commercial = Nothing
%>
<%
rs_itc.Close()
Set rs_itc = Nothing
%>




"Sebastien Bovo [MS]" a écrit :

Bonjour,

Normalement, il n'y a aucune configuration à faire pour faire fonctionner
les pages ASP sur Windows XP. As-tu un message d'erreur lorsque tu navigues
sur les pages ASP ? ou as-tu le code de la page qui s'affiche ?

--
Cordialement,

Sebastien Bovo
Microsoft France
----------
Ce message est fourni en l'état, sans garantie d'aucune sorte, et ne vous
confère aucun droit. Vous assumez tous les risques liés à son utilisation.


"MoneyLine" wrote in message
news:
> Bonsoir,
>
> je viens d'installer Windows XP pro sur ma machine avec le SP2, et le
> serveur Internet de Win XP (IIS 5.1) ne me permet pas d'afficher les pages
> en
> ASP.
>
> Ces mêmes pages fonctionnent trés bien avec W2K pro et le serveur Web
> intégré à celui-ci.
>
> Quel modification dois-je apporter à ma pages pour régler le problème?
>
> Merci de votre aide et bonne soirée





Avatar
Sebastien Bovo [MS]
Bonjour,

Merci pour ces precisions. Avez-vous installé Access sur l'ordinateur ? ou
Jet 4 ?
http://www.microsoft.com/downloads/details.aspx?familyid-eddec4-350e-4cd0-a12a-d7f70a153156&displaylang=en

--
Cordialement,

Sebastien Bovo
Microsoft France
----------
Ce message est fourni en l'état, sans garantie d'aucune sorte, et ne vous
confère aucun droit. Vous assumez tous les risques liés à son utilisation.


"MoneyLine" wrote in message
news:
Bonjour Monsieur BOvo,

je vous remercie de votre réponse et vous prie de trouver ci-dessous le
message d'erreur qui apparait lorsque j'execute la page en ASP.

Vous trouverez eégalement ci-dessous le code de la page.

Je développe mes pages avec Dreamweaver MX 2004 et une base Access 2000

Merci de votre aide

Olivier BONNEMOY


Message d'erreur à l'ouverture de la page :

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 JET Database Engine error '80004005'

Pilote ISAM introuvable.

/moneyline/Connections/clientsmps.asp, line 9

Code de la page à executer :

<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../../../../Connections/clientsmps.asp" -->
<%
Dim rs_societe
Dim rs_societe_numRows

Set rs_societe = Server.CreateObject("ADODB.Recordset")
rs_societe.ActiveConnection = chaineConn
rs_societe.Source = "SELECT DISTINCT societe FROM contacts_mps WHERE
societe <> null ORDER BY societe ASC"
rs_societe.CursorType = 0
rs_societe.CursorLocation = 2
rs_societe.LockType = 1
rs_societe.Open()
rs_societe_numRows = 0
%>
<%
Dim rs_type
Dim rs_type_numRows

Set rs_type = Server.CreateObject("ADODB.Recordset")
rs_type.ActiveConnection = chaineConn
rs_type.Source = "SELECT DISTINCT type FROM contacts_mps WHERE type <>
null ORDER BY type ASC"
rs_type.CursorType = 0
rs_type.CursorLocation = 2
rs_type.LockType = 1
rs_type.Open()

rs_type_numRows = 0
%>
<%
Dim rs_region
Dim rs_region_numRows

Set rs_region = Server.CreateObject("ADODB.Recordset")
rs_region.ActiveConnection = chaineConn
rs_region.Source = "SELECT DISTINCT region FROM contacts_mps WHERE
region
<> null ORDER BY region ASC"
rs_region.CursorType = 0
rs_region.CursorLocation = 2
rs_region.LockType = 1
rs_region.Open()

rs_region_numRows = 0
%>
<%
Dim rs_commercial
Dim rs_commercial_numRows

Set rs_commercial = Server.CreateObject("ADODB.Recordset")
rs_commercial.ActiveConnection = chaineConn
rs_commercial.Source = "SELECT DISTINCT commercial FROM contacts_mps
WHERE
commercial <> null ORDER BY commercial ASC"
rs_commercial.CursorType = 0
rs_commercial.CursorLocation = 2
rs_commercial.LockType = 1
rs_commercial.Open()

rs_commercial_numRows = 0
%>
<%
Dim rs_itc
Dim rs_itc_numRows

Set rs_itc = Server.CreateObject("ADODB.Recordset")
rs_itc.ActiveConnection = chaineConn
rs_itc.Source = "SELECT DISTINCT itc1 FROM contacts_mps WHERE itc1 <>
null
ORDER BY itc1 ASC"
rs_itc.CursorType = 0
rs_itc.CursorLocation = 2
rs_itc.LockType = 1
rs_itc.Open()

rs_itc_numRows = 0
%>
<html>
<head>
<title>Recherche dans la base client</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
.Style13 {
font-size: 16px;
font-weight: bold;
}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="100%" border="0">
<tr>
<td width="87%"><font face="Arial, Helvetica, sans-serif"><span
class="Style13">Fichier Clients / Prospects Moneyline Payment Systems
</span></font></td>
<td width="13%"><div align="right"><a href="../../srv_commercial.htm"
target="_self"><img src="../../../../graphics/gif/divers/backsommaire.gif"
alt="Retour à la page précedente" width="80" height="25"
border="0"></a></div></td>
</tr>
<tr>
<td colspan="2"> </td>
</tr>
</table>
<p align="center"><font face="Arial, Helvetica, sans-serif"
size="2"><b>Recherche par Nom de société : </b></font> </p>
<form action="resultat.asp" method="get" name="rech_societe"
target="_self"
id="rech_societe">
<table width="100%" border="0">
<tr>
<td><div align="center">
<select name="rech_societe" id="rech_societe">
<option value="xxxx">Recherche par societe</option>
<%
While (NOT rs_societe.EOF)
%>
<option
value="<%=(rs_societe.Fields.Item("societe").Value)%>"><%=(rs_societe.Fields.Item("societe").Value)%></option>
<%
rs_societe.MoveNext()
Wend
If (rs_societe.CursorType > 0) Then
rs_societe.MoveFirst
Else
rs_societe.Requery
End If
%>
</select>
<img src="../../../../graphics/gif/divers/blanc2.gif" width="10"
height="10">
<input type="submit" name="Submit" value="Valider">
</div></td>
</tr>
</table>
</form>
<p align="center"><font face="Arial, Helvetica, sans-serif"
size="2"><b>Recherche par Type de société : </b></font></p>
<form action="resultat_type.asp" method="get" name="rech_type"
target="_self" id="rech_type">
<table width="100%" border="0">
<tr>
<td><div align="center">
<select name="selectype" id="selectype">
<option value="xxxx">Recherche par type de client</option>
<%
While (NOT rs_type.EOF)
%>
<option
value="<%=(rs_type.Fields.Item("type").Value)%>"><%=(rs_type.Fields.Item("type").Value)%></option>
<%
rs_type.MoveNext()
Wend
If (rs_type.CursorType > 0) Then
rs_type.MoveFirst
Else
rs_type.Requery
End If
%>
</select>
<img src="../../../../graphics/gif/divers/blanc2.gif" width="10"
height="10">
<input type="submit" name="Submit" value="Valider">
</div></td>
</tr>
</table>
</form>
<p align="center"><font face="Arial, Helvetica, sans-serif"
size="2"><b>Recherche par Région : </b></font></p>
<form action="resultat_regions.asp" method="get" name="rech_region"
target="_self" id="rech_region">
<table width="100%" border="0">
<tr>
<td><div align="center">
<select name="region" id="region">
<option value="xxxx">Selectionnez une region</option>
<%
While (NOT rs_region.EOF)
%>
<option
value="<%=(rs_region.Fields.Item("region").Value)%>"><%=(rs_region.Fields.Item("region").Value)%></option>
<%
rs_region.MoveNext()
Wend
If (rs_region.CursorType > 0) Then
rs_region.MoveFirst
Else
rs_region.Requery
End If
%>
</select>
<img src="../../../../graphics/gif/divers/blanc2.gif" width="10"
height="10">
<input type="submit" name="Submit" value="Valider">
</div></td>
</tr>
</table>
</form>
<p align="center"><font face="Arial, Helvetica, sans-serif"
size="2"><b>Recherche par Commercial :</b></font></p>
<form action="resultat_commercial.asp" method="get" name="rech_comm"
target="_self" id="rech_comm">
<div align="center">
<table width="100%" border="0">
<tr>
<td><div align="center">
<select name="commercial" id="commercial">
<option value="xxxx">Recherche par Commercial</option>
<%
While (NOT rs_commercial.EOF)
%>
<option
value="<%=(rs_commercial.Fields.Item("commercial").Value)%>"><%=(rs_commercial.Fields.Item("commercial").Value)%></option>
<%
rs_commercial.MoveNext()
Wend
If (rs_commercial.CursorType > 0) Then
rs_commercial.MoveFirst
Else
rs_commercial.Requery
End If
%>
</select>
<img src="../../../../graphics/gif/divers/blanc2.gif" width="10"
height="10">
<input type="submit" name="Submit" value="Valider">
</div></td>
</tr>
</table>
</div>
</form>
<p align="center"><b><font size="2" face="Arial, Helvetica,
sans-serif">Recherche par ITC :</font></b></p>
<form action="resultat_itc.asp" method="get" name="rech_itc"
target="_self"
id="rech_itc">
<table width="100%" border="0">
<tr>
<td><div align="center">
<select name="select_itc" id="select_itc">
<option value="xxxx">Recherche par ITC</option>
<%
While (NOT rs_itc.EOF)
%>
<option
value="<%=(rs_itc.Fields.Item("itc1").Value)%>"><%=(rs_itc.Fields.Item("itc1").Value)%></option>
<%
rs_itc.MoveNext()
Wend
If (rs_itc.CursorType > 0) Then
rs_itc.MoveFirst
Else
rs_itc.Requery
End If
%>
</select>
<img src="../../../../graphics/gif/divers/blanc2.gif" width="10"
height="10">
<input type="submit" name="Submit" value="Valider">
</div></td>
</tr>
</table>
</form>
<p align="center"><b><font size="3" face="Arial, Helvetica,
sans-serif"></font></b></p>
<p> </p>
</body>
</html>
<%
rs_societe.Close()
Set rs_societe = Nothing
%>
<%
rs_type.Close()
Set rs_type = Nothing
%>
<%
rs_region.Close()
Set rs_region = Nothing
%>
<%
rs_commercial.Close()
Set rs_commercial = Nothing
%>
<%
rs_itc.Close()
Set rs_itc = Nothing
%>




"Sebastien Bovo [MS]" a écrit :

Bonjour,

Normalement, il n'y a aucune configuration à faire pour faire fonctionner
les pages ASP sur Windows XP. As-tu un message d'erreur lorsque tu
navigues
sur les pages ASP ? ou as-tu le code de la page qui s'affiche ?

--
Cordialement,

Sebastien Bovo
Microsoft France
----------
Ce message est fourni en l'état, sans garantie d'aucune sorte, et ne vous
confère aucun droit. Vous assumez tous les risques liés à son
utilisation.


"MoneyLine" wrote in message
news:
> Bonsoir,
>
> je viens d'installer Windows XP pro sur ma machine avec le SP2, et le
> serveur Internet de Win XP (IIS 5.1) ne me permet pas d'afficher les
> pages
> en
> ASP.
>
> Ces mêmes pages fonctionnent trés bien avec W2K pro et le serveur Web
> intégré à celui-ci.
>
> Quel modification dois-je apporter à ma pages pour régler le problème?
>
> Merci de votre aide et bonne soirée







Avatar
MoneyLine
Bonsoir,

j'ai essayé d'instaler la version Jet 4 v8, mais Windows indique que la
version sûr mon poste est plus récente que celle que j'essaie d'installer.
Mis à part celà Access 2003 est installé sûr mon ordinateur.

Merci de votre aide et bon week-end et ou bonne semaine à vous au plaisir de
vous lire.

Olivier Bonnemoy

"Sebastien Bovo [MS]" a écrit :

Bonjour,

Merci pour ces precisions. Avez-vous installé Access sur l'ordinateur ? ou
Jet 4 ?
http://www.microsoft.com/downloads/details.aspx?familyid-eddec4-350e-4cd0-a12a-d7f70a153156&displaylang=en

--
Cordialement,

Sebastien Bovo
Microsoft France
----------
Ce message est fourni en l'état, sans garantie d'aucune sorte, et ne vous
confère aucun droit. Vous assumez tous les risques liés à son utilisation.


"MoneyLine" wrote in message
news:
> Bonjour Monsieur BOvo,
>
> je vous remercie de votre réponse et vous prie de trouver ci-dessous le
> message d'erreur qui apparait lorsque j'execute la page en ASP.
>
> Vous trouverez eégalement ci-dessous le code de la page.
>
> Je développe mes pages avec Dreamweaver MX 2004 et une base Access 2000
>
> Merci de votre aide
>
> Olivier BONNEMOY
>
>
> Message d'erreur à l'ouverture de la page :
>
> 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 JET Database Engine error '80004005'
>
> Pilote ISAM introuvable.
>
> /moneyline/Connections/clientsmps.asp, line 9
>
> Code de la page à executer :
>
> <%@LANGUAGE="VBSCRIPT"%>
> <!--#include file="../../../../Connections/clientsmps.asp" -->
> <%
> Dim rs_societe
> Dim rs_societe_numRows
>
> Set rs_societe = Server.CreateObject("ADODB.Recordset")
> rs_societe.ActiveConnection = chaineConn
> rs_societe.Source = "SELECT DISTINCT societe FROM contacts_mps WHERE
> societe <> null ORDER BY societe ASC"
> rs_societe.CursorType = 0
> rs_societe.CursorLocation = 2
> rs_societe.LockType = 1
> rs_societe.Open()
> rs_societe_numRows = 0
> %>
> <%
> Dim rs_type
> Dim rs_type_numRows
>
> Set rs_type = Server.CreateObject("ADODB.Recordset")
> rs_type.ActiveConnection = chaineConn
> rs_type.Source = "SELECT DISTINCT type FROM contacts_mps WHERE type <>
> null ORDER BY type ASC"
> rs_type.CursorType = 0
> rs_type.CursorLocation = 2
> rs_type.LockType = 1
> rs_type.Open()
>
> rs_type_numRows = 0
> %>
> <%
> Dim rs_region
> Dim rs_region_numRows
>
> Set rs_region = Server.CreateObject("ADODB.Recordset")
> rs_region.ActiveConnection = chaineConn
> rs_region.Source = "SELECT DISTINCT region FROM contacts_mps WHERE
> region
> <> null ORDER BY region ASC"
> rs_region.CursorType = 0
> rs_region.CursorLocation = 2
> rs_region.LockType = 1
> rs_region.Open()
>
> rs_region_numRows = 0
> %>
> <%
> Dim rs_commercial
> Dim rs_commercial_numRows
>
> Set rs_commercial = Server.CreateObject("ADODB.Recordset")
> rs_commercial.ActiveConnection = chaineConn
> rs_commercial.Source = "SELECT DISTINCT commercial FROM contacts_mps
> WHERE
> commercial <> null ORDER BY commercial ASC"
> rs_commercial.CursorType = 0
> rs_commercial.CursorLocation = 2
> rs_commercial.LockType = 1
> rs_commercial.Open()
>
> rs_commercial_numRows = 0
> %>
> <%
> Dim rs_itc
> Dim rs_itc_numRows
>
> Set rs_itc = Server.CreateObject("ADODB.Recordset")
> rs_itc.ActiveConnection = chaineConn
> rs_itc.Source = "SELECT DISTINCT itc1 FROM contacts_mps WHERE itc1 <>
> null
> ORDER BY itc1 ASC"
> rs_itc.CursorType = 0
> rs_itc.CursorLocation = 2
> rs_itc.LockType = 1
> rs_itc.Open()
>
> rs_itc_numRows = 0
> %>
> <html>
> <head>
> <title>Recherche dans la base client</title>
> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
> <style type="text/css">
> <!--
> .Style13 {
> font-size: 16px;
> font-weight: bold;
> }
> -->
> </style>
> </head>
> <body bgcolor="#FFFFFF" text="#000000">
> <table width="100%" border="0">
> <tr>
> <td width="87%"><font face="Arial, Helvetica, sans-serif"><span
> class="Style13">Fichier Clients / Prospects Moneyline Payment Systems
> </span></font></td>
> <td width="13%"><div align="right"><a href="../../srv_commercial.htm"
> target="_self"><img src="../../../../graphics/gif/divers/backsommaire.gif"
> alt="Retour à la page précedente" width="80" height="25"
> border="0"></a></div></td>
> </tr>
> <tr>
> <td colspan="2"> </td>
> </tr>
> </table>
> <p align="center"><font face="Arial, Helvetica, sans-serif"
> size="2"><b>Recherche par Nom de société : </b></font> </p>
> <form action="resultat.asp" method="get" name="rech_societe"
> target="_self"
> id="rech_societe">
> <table width="100%" border="0">
> <tr>
> <td><div align="center">
> <select name="rech_societe" id="rech_societe">
> <option value="xxxx">Recherche par societe</option>
> <%
> While (NOT rs_societe.EOF)
> %>
> <option
> value="<%=(rs_societe.Fields.Item("societe").Value)%>"><%=(rs_societe.Fields.Item("societe").Value)%></option>
> <%
> rs_societe.MoveNext()
> Wend
> If (rs_societe.CursorType > 0) Then
> rs_societe.MoveFirst
> Else
> rs_societe.Requery
> End If
> %>
> </select>
> <img src="../../../../graphics/gif/divers/blanc2.gif" width="10"
> height="10">
> <input type="submit" name="Submit" value="Valider">
> </div></td>
> </tr>
> </table>
> </form>
> <p align="center"><font face="Arial, Helvetica, sans-serif"
> size="2"><b>Recherche par Type de société : </b></font></p>
> <form action="resultat_type.asp" method="get" name="rech_type"
> target="_self" id="rech_type">
> <table width="100%" border="0">
> <tr>
> <td><div align="center">
> <select name="selectype" id="selectype">
> <option value="xxxx">Recherche par type de client</option>
> <%
> While (NOT rs_type.EOF)
> %>
> <option
> value="<%=(rs_type.Fields.Item("type").Value)%>"><%=(rs_type.Fields.Item("type").Value)%></option>
> <%
> rs_type.MoveNext()
> Wend
> If (rs_type.CursorType > 0) Then
> rs_type.MoveFirst
> Else
> rs_type.Requery
> End If
> %>
> </select>
> <img src="../../../../graphics/gif/divers/blanc2.gif" width="10"
> height="10">
> <input type="submit" name="Submit" value="Valider">
> </div></td>
> </tr>
> </table>
> </form>
> <p align="center"><font face="Arial, Helvetica, sans-serif"
> size="2"><b>Recherche par Région : </b></font></p>
> <form action="resultat_regions.asp" method="get" name="rech_region"
> target="_self" id="rech_region">
> <table width="100%" border="0">
> <tr>
> <td><div align="center">
> <select name="region" id="region">
> <option value="xxxx">Selectionnez une region</option>
> <%
> While (NOT rs_region.EOF)
> %>
> <option
> value="<%=(rs_region.Fields.Item("region").Value)%>"><%=(rs_region.Fields.Item("region").Value)%></option>
> <%
> rs_region.MoveNext()
> Wend
> If (rs_region.CursorType > 0) Then
> rs_region.MoveFirst
> Else
> rs_region.Requery
> End If
> %>
> </select>
> <img src="../../../../graphics/gif/divers/blanc2.gif" width="10"
> height="10">
> <input type="submit" name="Submit" value="Valider">
> </div></td>
> </tr>
> </table>
> </form>
> <p align="center"><font face="Arial, Helvetica, sans-serif"
> size="2"><b>Recherche par Commercial :</b></font></p>
> <form action="resultat_commercial.asp" method="get" name="rech_comm"
> target="_self" id="rech_comm">
> <div align="center">
> <table width="100%" border="0">
> <tr>
> <td><div align="center">
> <select name="commercial" id="commercial">
> <option value="xxxx">Recherche par Commercial</option>
> <%
> While (NOT rs_commercial.EOF)
> %>
> <option
> value="<%=(rs_commercial.Fields.Item("commercial").Value)%>"><%=(rs_commercial.Fields.Item("commercial").Value)%></option>
> <%
> rs_commercial.MoveNext()
> Wend
> If (rs_commercial.CursorType > 0) Then
> rs_commercial.MoveFirst
> Else
> rs_commercial.Requery
> End If
> %>
> </select>
> <img src="../../../../graphics/gif/divers/blanc2.gif" width="10"
> height="10">
> <input type="submit" name="Submit" value="Valider">
> </div></td>
> </tr>
> </table>
> </div>
> </form>
> <p align="center"><b><font size="2" face="Arial, Helvetica,
> sans-serif">Recherche par ITC :</font></b></p>
> <form action="resultat_itc.asp" method="get" name="rech_itc"
> target="_self"
> id="rech_itc">
> <table width="100%" border="0">
> <tr>
> <td><div align="center">
> <select name="select_itc" id="select_itc">
> <option value="xxxx">Recherche par ITC</option>
> <%
> While (NOT rs_itc.EOF)
> %>
> <option
> value="<%=(rs_itc.Fields.Item("itc1").Value)%>"><%=(rs_itc.Fields.Item("itc1").Value)%></option>


Avatar
CrazyMaster
Salut,

Pas sûr que ça t'aide mais j'ai vu que tu utilisais un include côté serveur.
Attention il y a 2 pièges, en particulier si l'appli est destinée à migrer
vers du 2003 Server....

../../../ n'est pas toujour autorisé. (ca dépend des MAJ de secu qui ont été
faites)
de plus par défaut IIS (6) interdit l'utilisation des includes côté serveur.

Ensuite :

Lorsque l'on monte des fichiers dans un répertoire IIS, il est nécessaire de
déclarer ce dernier en apllication.

@+

Laurent



"MoneyLine" a écrit dans le message de
news:
Bonsoir,

j'ai essayé d'instaler la version Jet 4 v8, mais Windows indique que la
version sûr mon poste est plus récente que celle que j'essaie d'installer.
Mis à part celà Access 2003 est installé sûr mon ordinateur.

Merci de votre aide et bon week-end et ou bonne semaine à vous au plaisir
de
vous lire.

Olivier Bonnemoy

"Sebastien Bovo [MS]" a écrit :

Bonjour,

Merci pour ces precisions. Avez-vous installé Access sur l'ordinateur ?
ou
Jet 4 ?
http://www.microsoft.com/downloads/details.aspx?familyid-eddec4-350e-4cd0-a12a-d7f70a153156&displaylang=en

--
Cordialement,

Sebastien Bovo
Microsoft France
----------
Ce message est fourni en l'état, sans garantie d'aucune sorte, et ne vous
confère aucun droit. Vous assumez tous les risques liés à son
utilisation.


"MoneyLine" wrote in message
news:
> Bonjour Monsieur BOvo,
>
> je vous remercie de votre réponse et vous prie de trouver ci-dessous le
> message d'erreur qui apparait lorsque j'execute la page en ASP.
>
> Vous trouverez eégalement ci-dessous le code de la page.
>
> Je développe mes pages avec Dreamweaver MX 2004 et une base Access 2000
>
> Merci de votre aide
>
> Olivier BONNEMOY
>
>
> Message d'erreur à l'ouverture de la page :
>
> 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 JET Database Engine error '80004005'
>
> Pilote ISAM introuvable.
>
> /moneyline/Connections/clientsmps.asp, line 9
>
> Code de la page à executer :
>
> <%@LANGUAGE="VBSCRIPT"%>
> <!--#include file="../../../../Connections/clientsmps.asp" -->
> <%
> Dim rs_societe
> Dim rs_societe_numRows
>
> Set rs_societe = Server.CreateObject("ADODB.Recordset")
> rs_societe.ActiveConnection = chaineConn
> rs_societe.Source = "SELECT DISTINCT societe FROM contacts_mps WHERE
> societe <> null ORDER BY societe ASC"
> rs_societe.CursorType = 0
> rs_societe.CursorLocation = 2
> rs_societe.LockType = 1
> rs_societe.Open()
> rs_societe_numRows = 0
> %>
> <%
> Dim rs_type
> Dim rs_type_numRows
>
> Set rs_type = Server.CreateObject("ADODB.Recordset")
> rs_type.ActiveConnection = chaineConn
> rs_type.Source = "SELECT DISTINCT type FROM contacts_mps WHERE type
> <>
> null ORDER BY type ASC"
> rs_type.CursorType = 0
> rs_type.CursorLocation = 2
> rs_type.LockType = 1
> rs_type.Open()
>
> rs_type_numRows = 0
> %>
> <%
> Dim rs_region
> Dim rs_region_numRows
>
> Set rs_region = Server.CreateObject("ADODB.Recordset")
> rs_region.ActiveConnection = chaineConn
> rs_region.Source = "SELECT DISTINCT region FROM contacts_mps WHERE
> region
> <> null ORDER BY region ASC"
> rs_region.CursorType = 0
> rs_region.CursorLocation = 2
> rs_region.LockType = 1
> rs_region.Open()
>
> rs_region_numRows = 0
> %>
> <%
> Dim rs_commercial
> Dim rs_commercial_numRows
>
> Set rs_commercial = Server.CreateObject("ADODB.Recordset")
> rs_commercial.ActiveConnection = chaineConn
> rs_commercial.Source = "SELECT DISTINCT commercial FROM contacts_mps
> WHERE
> commercial <> null ORDER BY commercial ASC"
> rs_commercial.CursorType = 0
> rs_commercial.CursorLocation = 2
> rs_commercial.LockType = 1
> rs_commercial.Open()
>
> rs_commercial_numRows = 0
> %>
> <%
> Dim rs_itc
> Dim rs_itc_numRows
>
> Set rs_itc = Server.CreateObject("ADODB.Recordset")
> rs_itc.ActiveConnection = chaineConn
> rs_itc.Source = "SELECT DISTINCT itc1 FROM contacts_mps WHERE itc1 <>
> null
> ORDER BY itc1 ASC"
> rs_itc.CursorType = 0
> rs_itc.CursorLocation = 2
> rs_itc.LockType = 1
> rs_itc.Open()
>
> rs_itc_numRows = 0
> %>
> <html>
> <head>
> <title>Recherche dans la base client</title>
> <meta http-equiv="Content-Type" content="text/html;
> charset=iso-8859-1">
> <style type="text/css">
> <!--
> .Style13 {
> font-size: 16px;
> font-weight: bold;
> }
> -->
> </style>
> </head>
> <body bgcolor="#FFFFFF" text="#000000">
> <table width="100%" border="0">
> <tr>
> <td width="87%"><font face="Arial, Helvetica, sans-serif"><span
> class="Style13">Fichier Clients / Prospects Moneyline Payment Systems
> </span></font></td>
> <td width="13%"><div align="right"><a
> href="../../srv_commercial.htm"
> target="_self"><img
> src="../../../../graphics/gif/divers/backsommaire.gif"
> alt="Retour à la page précedente" width="80" height="25"
> border="0"></a></div></td>
> </tr>
> <tr>
> <td colspan="2"> </td>
> </tr>
> </table>
> <p align="center"><font face="Arial, Helvetica, sans-serif"
> size="2"><b>Recherche par Nom de société : </b></font> </p>
> <form action="resultat.asp" method="get" name="rech_societe"
> target="_self"
> id="rech_societe">
> <table width="100%" border="0">
> <tr>
> <td><div align="center">
> <select name="rech_societe" id="rech_societe">
> <option value="xxxx">Recherche par societe</option>
> <%
> While (NOT rs_societe.EOF)
> %>
> <option
> value="<%=(rs_societe.Fields.Item("societe").Value)%>"><%=(rs_societe.Fields.Item("societe").Value)%></option>
> <%
> rs_societe.MoveNext()
> Wend
> If (rs_societe.CursorType > 0) Then
> rs_societe.MoveFirst
> Else
> rs_societe.Requery
> End If
> %>
> </select>
> <img src="../../../../graphics/gif/divers/blanc2.gif" width="10"
> height="10">
> <input type="submit" name="Submit" value="Valider">
> </div></td>
> </tr>
> </table>
> </form>
> <p align="center"><font face="Arial, Helvetica, sans-serif"
> size="2"><b>Recherche par Type de société : </b></font></p>
> <form action="resultat_type.asp" method="get" name="rech_type"
> target="_self" id="rech_type">
> <table width="100%" border="0">
> <tr>
> <td><div align="center">
> <select name="selectype" id="selectype">
> <option value="xxxx">Recherche par type de client</option>
> <%
> While (NOT rs_type.EOF)
> %>
> <option
> value="<%=(rs_type.Fields.Item("type").Value)%>"><%=(rs_type.Fields.Item("type").Value)%></option>
> <%
> rs_type.MoveNext()
> Wend
> If (rs_type.CursorType > 0) Then
> rs_type.MoveFirst
> Else
> rs_type.Requery
> End If
> %>
> </select>
> <img src="../../../../graphics/gif/divers/blanc2.gif" width="10"
> height="10">
> <input type="submit" name="Submit" value="Valider">
> </div></td>
> </tr>
> </table>
> </form>
> <p align="center"><font face="Arial, Helvetica, sans-serif"
> size="2"><b>Recherche par Région : </b></font></p>
> <form action="resultat_regions.asp" method="get" name="rech_region"
> target="_self" id="rech_region">
> <table width="100%" border="0">
> <tr>
> <td><div align="center">
> <select name="region" id="region">
> <option value="xxxx">Selectionnez une region</option>
> <%
> While (NOT rs_region.EOF)
> %>
> <option
> value="<%=(rs_region.Fields.Item("region").Value)%>"><%=(rs_region.Fields.Item("region").Value)%></option>
> <%
> rs_region.MoveNext()
> Wend
> If (rs_region.CursorType > 0) Then
> rs_region.MoveFirst
> Else
> rs_region.Requery
> End If
> %>
> </select>
> <img src="../../../../graphics/gif/divers/blanc2.gif" width="10"
> height="10">
> <input type="submit" name="Submit" value="Valider">
> </div></td>
> </tr>
> </table>
> </form>
> <p align="center"><font face="Arial, Helvetica, sans-serif"
> size="2"><b>Recherche par Commercial :</b></font></p>
> <form action="resultat_commercial.asp" method="get" name="rech_comm"
> target="_self" id="rech_comm">
> <div align="center">
> <table width="100%" border="0">
> <tr>
> <td><div align="center">
> <select name="commercial" id="commercial">
> <option value="xxxx">Recherche par Commercial</option>
> <%
> While (NOT rs_commercial.EOF)
> %>
> <option
> value="<%=(rs_commercial.Fields.Item("commercial").Value)%>"><%=(rs_commercial.Fields.Item("commercial").Value)%></option>
> <%
> rs_commercial.MoveNext()
> Wend
> If (rs_commercial.CursorType > 0) Then
> rs_commercial.MoveFirst
> Else
> rs_commercial.Requery
> End If
> %>
> </select>
> <img src="../../../../graphics/gif/divers/blanc2.gif"
> width="10"
> height="10">
> <input type="submit" name="Submit" value="Valider">
> </div></td>
> </tr>
> </table>
> </div>
> </form>
> <p align="center"><b><font size="2" face="Arial, Helvetica,
> sans-serif">Recherche par ITC :</font></b></p>
> <form action="resultat_itc.asp" method="get" name="rech_itc"
> target="_self"
> id="rech_itc">
> <table width="100%" border="0">
> <tr>
> <td><div align="center">
> <select name="select_itc" id="select_itc">
> <option value="xxxx">Recherche par ITC</option>
> <%
> While (NOT rs_itc.EOF)
> %>
> <option
> value="<%=(rs_itc.Fields.Item("itc1").Value)%>"><%=(rs_itc.Fields.Item("itc1").Value)%></option>




Avatar
jbongran
CrazyMaster wrote:
Salut,

Pas sûr que ça t'aide mais j'ai vu que tu utilisais un include côté
serveur. Attention il y a 2 pièges, en particulier si l'appli est
destinée à migrer vers du 2003 Server....

../../../ n'est pas toujour autorisé. (ca dépend des MAJ de secu qui
ont été faites)
de plus par défaut IIS (6) interdit l'utilisation des includes côté
serveur.
Ensuite :

Lorsque l'on monte des fichiers dans un répertoire IIS, il est
nécessaire de déclarer ce dernier en apllication.

@+

Laurent



"MoneyLine" a écrit dans le
message de news:
Bonsoir,

j'ai essayé d'instaler la version Jet 4 v8, mais Windows indique que
la version sûr mon poste est plus récente que celle que j'essaie
d'installer. Mis à part celà Access 2003 est installé sûr mon
ordinateur. Merci de votre aide et bon week-end et ou bonne semaine à
vous au
plaisir de
vous lire.

Olivier Bonnemoy

"Sebastien Bovo [MS]" a écrit :

Bonjour,

Merci pour ces precisions. Avez-vous installé Access sur
l'ordinateur ? ou
Jet 4 ?
http://www.microsoft.com/downloads/details.aspx?familyid-eddec4-350e-4cd0-a12a-d7f70a153156&displaylang=en

--
Cordialement,

Sebastien Bovo
Microsoft France
----------
Ce message est fourni en l'état, sans garantie d'aucune sorte, et
ne vous confère aucun droit. Vous assumez tous les risques liés à
son utilisation.


"MoneyLine" wrote in message
news:
Bonjour Monsieur BOvo,

je vous remercie de votre réponse et vous prie de trouver
ci-dessous le message d'erreur qui apparait lorsque j'execute la
page en ASP. Vous trouverez eégalement ci-dessous le code de la page.

Je développe mes pages avec Dreamweaver MX 2004 et une base Access
2000 Merci de votre aide

Olivier BONNEMOY


Message d'erreur à l'ouverture de la page :

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 JET Database Engine error '80004005'

Pilote ISAM introuvable.

/moneyline/Connections/clientsmps.asp, line 9









Il y a quoi dans le fichier clientsmps.asp, entre autre à la ligne 9 ?
Tu peux corriger aussi la page d'erreur 500-100.asp de microsoft en ajoutant
un retour ligne après
strRemoteIP .