all html : Le portail des webmaster

liste des forums liste des discussions Participer à la discussion

Message publié le jeudi 10 mai 2007 à 16 h 25 par Dr_von_scott.

Salut à tous,

Je dois reprendre certaines pages d'un site ASP ( j'opere d'habitude en PHP ) et je tombe deja sur un souci. J'ai essayé de plusieurs facon mais j'ai toujours un souci

<% Set PMS = Server.CreateObject("ADODB.Connection") PMS.ConnectionTimeout = Application("Parametres_ConnectionTimeout") PMS.CommandTimeout = Application("Parametres_CommandTimeout") PMS.Open Application("Parametres_ConnectionString"), Application("Parametres_RuntimeUserName"), Application("Parametres_RuntimePassword") Set Table = Server.CreateObject("ADODB.Recordset") Table.Open "SELECT ADRESSE1, ADRESSE2, NOM, ID_VILLE FROM VILLES ORDER BY ORDRE", PMS, 1, 3 nbVilles = Table.RecordCount Set ReqConts = Server.CreateObject("ADODB.Recordset") %> <div id="qui"><img src="../images/reseau.gif" alt="Le reseau PRS" />&nbsp;&nbsp;</div> <center><img src="../images/france.jpg" alt="Carte de France" /><br /><br /> <table border="0" cellpadding="0" cellspacing="0" summary="Le reseau PRS" width="80%"> <tr> <% u=1 i=0 while not Table.EOF %> <td class="tab_reseau" valign="top"> <div class="reseau" id="reseau<%=u%>"> <div class="reseau_titre"> <%=Table("NOM")%> </div> <div class="corp_reseau"> <%if len(trim(Table("ADRESSE1"))) then %> <%=Table("ADRESSE1")%><br /> <%end if%> <%if len(trim(Table("ADRESSE2"))) then %> <%=Table("ADRESSE2")%><br /> <%end if%> <%Idville = Table("ID_VILLE")%> <% ReqConts.Open "SELECT NOM_CONT FROM CONTACTS WHERE ID_VILLE = '"&Idville&"'", PMS, 1, 3 %> <% while not ReqConts.EOF %> <%=ReqConts("NOM_CONT")%> <% ReqConts.MoveNext wend %> </div> </div><br /> <%ReqConts.Close%> </td> <% i=i+1 if u <> nbVilles-1 then if i = 2 then %> </tr><tr> <% i=0 end if end if u=u+1 Table.MoveNext wend %> </tr> </table> <%Table.Close%> </center>

La ligne posant probleme etant celle ci
<% ReqConts.Open "SELECT NOM_CONT FROM CONTACTS WHERE ID_VILLE = '"&Idville&"'", PMS, 1, 3 %>
Elle retourne l'erreur suivante

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 '80040e07'

[Microsoft][Pilote ODBC Microsoft Access] Type de données incompatible dans l'expression du critère.

E:\WWW\INTERNET\PRO\../reseau.asp, line 38

ID_VILLE de VILLES est de type autoincrement et ID_VILLE de CONTACTS est de type numerique

Quelqu'un connait la solution ??

• participer

Message publié le lundi 14 mai 2007 à 09 h 32 par Dr_von_scott.

<% ReqConts.Open "SELECT NOM_CONT FROM CONTACTS WHERE ID_VILLE = "&Idville&"", PMS, 1, 3 %>

Merci asp-php.net

• participer

liste des forums liste des discussions Participer à la discussion

Vous devez obligatoirement vous identifier en tant que membre pour participer à cette discussion.