Ce message signifie que ton serveur n'arrive pas à interpréter ton code. Attention, ça ne veut pas dire que ton code est faux! A mon avis (à vérifier), c'est ton pws qui sature. Essaie d'alléger au maximum ton code si c'est possible ou teste le sur un iis 5. Si tu ne peux rien faire de tout ça, documente toi sur pws et regarde si tu peux optimiser la configuration.
Bon courage =)
tchôô
Phildarvador
http://www.kinnoo.net/
-------------------------------
Réponse au message :
-------------------------------
Non, je suis sur une station NT avec PWS.
-------------------------------
Réponse au message :
-------------------------------
Est-ce que tu héberge ce code sur efrance?
tchôô
Phildarvador
http://www.kinnoo.net/
-------------------------------
Réponse au message :
-------------------------------
Au secours,
J'ai ce message quand j'essaie de lancer la page suivante.
J'avoue que j'ai 2 fonctions appelées à chaque enregistrement trouvé, mais comment est il possible de découper ceci sur plusieurs pages ?
Si je mets les fonctions dans une autre page ça marchera ?
Merci d'avance .
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="../Connections/V35IP.asp" -->
<%
Dim Recordset_info_fct__MMColParam
Recordset_info_fct__MMColParam = "1"
if (Request.QueryString("IDtyp_eq") <> "") then Recordset_info_fct__MMColParam = Request.QueryString("IDtyp_eq")
%>
<%
set Recordset_info_fct = Server.CreateObject("ADODB.Recordset")
Recordset_info_fct.ActiveConnection = MM_V35IP_STRING
Recordset_info_fct.Source = "SELECT * FROM fct_equipement WHERE IDtyp_eq = " + Replace(Recordset_info_fct__MMColParam, "'", "''") + ""
Recordset_info_fct.CursorType = 0
Recordset_info_fct.CursorLocation = 2
Recordset_info_fct.LockType = 3
Recordset_info_fct.Open()
Recordset_info_fct_numRows = 0
%>
<%
set Recordset_liste_equip = Server.CreateObject("ADODB.Recordset")
Recordset_liste_equip.ActiveConnection = MM_V35IP_STRING
Recordset_liste_equip.Source = "SELECT * FROM rel_type_equip"
Recordset_liste_equip.CursorType = 0
Recordset_liste_equip.CursorLocation = 2
Recordset_liste_equip.LockType = 3
Recordset_liste_equip.Open()
Recordset_liste_equip_numRows = 0
function nom_equip(identifiant)
set Recordset_nom_equip = Server.CreateObject("ADODB.Recordset")
Recordset_nom_equip.ActiveConnection = MM_V35IP_STRING
Recordset_nom_equip.Source = "SELECT * FROM Equipement WHERE ID_equip = "&identifiant
Recordset_nom_equip.CursorType = 0
Recordset_nom_equip.CursorLocation = 2
Recordset_nom_equip.LockType = 3
Recordset_nom_equip.Open()
Recordset_nom_equip_numRows = 0
nom_equip=Recordset_nom_equip.Fields.Item("NomEquip").Value
Recordset_nom_equip.Close()
set Recordset_nom_equip=nothing
end function
function presence(ID_equip)
set Recordset_presence_equip = Server.CreateObject("ADODB.Recordset")
Recordset_presence_equip.ActiveConnection = MM_V35IP_STRING
Recordset_presence_equip.Source = "SELECT * FROM rel_type_equip WHERE ID_equip = "&ID_equip&" AND IDtyp_eq="&Request.Querystring("IDtyp_eq")
Recordset_presence_equip.CursorType = 0
Recordset_presence_equip.CursorLocation = 2
Recordset_presence_equip.LockType = 3
Recordset_presence_equip.Open()
Recordset_presence_equip_numRows = 0
if(NOT Recordset_presence_equip.EOF) then
presence="checked"
else
presence=""
end if
Recordset_presence_equip.close()
set Recordset_presence_equip=nothing
end function
%>
<html>
<head>
<title>Visualisation et intégration des équipements</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<p align="center"><b>Visualisation et intégration des équipements</b></p>
<form name="form1" method="GET" action="admin_equip2.asp">
<p> </p>
<table width="75%" cellpadding="4" align="center">
<% While (NOT Recordset_liste_equip.EOF) %>
<tr>
<td>
<div align="right"><%=nom_equip(Recordset_liste_equip.Fields.Item("ID_equip").Value)%> </div>
</td>
<td>
<div align="left">
<input type="checkbox" name="<%=nom_equip(Recordset_liste_equip.Fields.Item("ID_equip").Value)%>" value="<%=Recordset_liste_equip.Fields.Item("ID_equip").Value%>" <%=presence(Recordset_liste_equip.Fields.Item("ID_equip").Value)%>>
</div>
</td>
<%Recordset_liste_equip.MoveNext()%>
<% if (NOT Recordset_liste_equip.EOF) Then %>
<td>
<div align="right"><%=nom_equip(Recordset_liste_equip.Fields.Item("ID_equip").Value)%> </div>
</td>
<td>
<div align="left">
<input type="checkbox" name="<%=nom_equip(Recordset_liste_equip.Fields.Item("ID_equip").Value)%>" value="<%=Recordset_liste_equip.Fields.Item("ID_equip").Value%>" <%=presence(Recordset_liste_equip.Fields.Item("ID_equip").Value)%>>
</div>
</td>
<% Recordset_liste_equip.MoveNext() %>
<% else %>
<td>
</td>
<td>
</td>
</tr>
<% end if %>
<% Wend %>
</table>
<p align="center">
<input type="submit" name="Submit" value="Envoyer">
<input type="hidden" name="IDtyp_eq" value="<%=Request.QueryString("IDtyp_eq")%>">
</p>
</form>
<p> </p>
</body>
</html>
<%
Recordset_info_fct.Close()
%>
<%
Recordset_liste_equip.Close()
%>