pb dans une page ASP : pb codage surement
pb dans une page ASP : pb codage surement - ASP - Programmation
Marsh Posté le 13-05-2006 à 18:00:48
<% |
Message édité par Flyman30 le 13-05-2006 à 18:01:19
Sujets relatifs:
- passer le code source d'une page en variable...
- Comment boucler sur une page après un traitement?
- ecrire un long titre dans une page excel en php
- problème changement de page a cause d'un combobox
- filtrer en ASP
- [PHP] redirection vers une autre page
- Problème pour créer ma page web
- Export csv d'une page web et automatisation
- affichage d'une page dans case de tableau
- [RESOLU]Page web locale
Marsh Posté le 12-05-2006 à 09:03:31
g corriger une erreur et une autre est apparue
pouvez vous envore m'aider a ce sujet
merci
voici le codage de la page asp :
<html>
<head><title>Le Clone --> Les boitiers</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
<table border="1" cellpadding="0" cellspacing="0" style="border-width:0; border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="130">
<tr>
<td width="100%" height="130" valign="middle" style="border-style: none; border-width: medium">
<p align="right">
<img border="0" src="../logo/logo1.gif" align="left" width="193" height="111"></td>
</tr>
</table>
<%'-------déclaration de la base------------------------------
DSN_BASE = "DBQ=" & Server.Mappath("webleclone.mdb" ) & ";Driver={Microsoft Access Driver (*.mdb)};Driverld=25"%>
<%'-------création de la connection et du recordset-----------
Set Conn = Server.CreateObject("ADODB.Connection" )
Conn.Open DSN_BASE
Set RS = Server.CreateObject("ADODB.Recordset" )%>
<%'-------définition et exécution de la requête---------------
RequeteSQL = "select Ref_materiel,Photo_materiel,Nom_materiel,Type_ma
teriel,Marque_materiel,PrixHT_materiel,Dispo_mat
eriel,Acheter_materiel from Matériel where Ref1_leclone like 'boitier*';"
RS.Open RequeteSQL , Conn%>
<%if RS.EOF then %>
Nous n'avons aucun articles à vous proposer
<%else%>
<Table border="1" width="496" align="center" bordercolor="black">
<TR>
<TH width="70"><font color="#FF0000">Référence</font></TH>
<TH width="32"><font color="#FF0000">Nom</font></TH>
<TH width="34"><font color="#FF0000">Type</font></TH>
<TH width="54"><font color="#FF0000">Marque</font></TH>
<TH width="75"><font color="#FF0000">Prix HT</font></TH>
<TH width="86"><font color="#FF0000">Disponibilité</font></TH>
<TH width="72"><font color="#FF0000">Acheter</font></TH>
</TR>
<%Do While Not RS.EOF%>
<TR>
<TD width="70"><%=RS("Ref_materiel" )%> </TD>
<TD width="32"><%=RS("Nom_materiel" )%> </TD>
<TD width="34"><%=RS("Type_materiel" )%>
</TD>
<TD width="54"><%=RS("Marque_materiel" )%>&nbs
p;</TD>
<TD width="75"><%=RS("PrixHT_materiel" )%>&nbs
p;</TD>
<TD width="86"><%=RS("Dispo_materiel" )%> 
;</TD>
<TD width="72"><%=RS("Acheter_materiel" )%>&nb
sp;</TD>
</TR>
<%RS.MoveNext%>
<%Loop %>
</table>
<%end if%>
<%'-------fermeture de la connection et du recordset----------
Set RS = Nothing
Conn.Close
Set Conn = Nothing%>
</body>
</html>
voici l'erreur de la page asp :
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
------------------------------------------------
--------------------------^
Provider error '80004005'
Erreur non spécifiée
/www.leclone.fr/pages/boitiers.asp, line 19
la ligne d'erreur correspond à Conn.Open DSN_BASE
pour toutes mes pages asp, c la meme erreur, je ne comprend pas cette erreur
ma base de donnees et ma page se trouvent dans le meme repertoire
merci d'avance