Bonjour,
Désolé de ne repondre que maintenant donc voici le message d'erreur quand je clique sur mon lien: le site web ne peut afficher la page causes les plus probables "le site est en cours de maintenance ou le site presente une erreur de programmation"
Sur ma page d'acceuil j'ai des liens en html qui fonctionne bien mais le lien vers la page .asp ne veut rien savoir....
voici le code de la page asp, je sais pas si ca peut t'aider:
<% Response.Expires = 1 %>
<!-- #include file="./fonction/membre_groupe.asp"-->
<% ' acceuil.asp grille de rech + affichage des nouveautés
dim datemini
dim delai
dim chemin ,cheminDoc,i
dim sql,sqln ' requêtes sql et sql nouveautés
dim droitmodif
Dim Group,Member,nom,log
Dim nbmaxcookie,cookie()
nbmaxcookie=8
Redim cookie(nbmaxcookie)
' cheminDoc=Session("repRacine") & "/documents" ' déterminé dans global.asa
set fso=Server.CreateObject("Scripting.fileSystemObject")
Session("racine")=fso.GetFolder(Server.MapPath(".")).Name
Session("repracine")="http://" & Request.ServerVariables("SERVER_NAME") & "/Intranet/" & Session("racine")
cheminDoc=Session("repRacine") & "/documents"
droitmodif="" ' droitmodif="oui" modif autorisé , droitmodif <>oui modif non autorisé, par défaut droitmodif=""
'Call DroitGroupMember() ' Détecte si l'utilisateur fait partie du groupe autorisé
Call DroitGroupFichier() ' idem mais par rapport au fichier liste des membres du groupe autorisé
'droitmodif="oui" ' Uniquement si détection se fait sur page modif.asp
Response.Write "<small>" & Session("nom") & "</small>" ' & " Utilisateur " & droitmodif
delai=31 'recherche nouveautés sur les 30 derniers jours
datemini=FormatDateTime(now()-delai,2)
datemysql=year(datemini)&"-" & month(datemini) & "-" & day(datemini)
Session("titre")="Intranet Société d'Orfèvrerie de Normandie Documents Système Qualité"
'ouverture et accès base de données DocumentsSon.mdb avec DSN : DSN_doc
Set cnx=Server.CreateObject("AdoDB.Connection")
cnx.Open "DSN_doc"
'pilote="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/base/documentSON.mdb"
'cnx.Open pilote
Set rs_service=Server.CreateObject("AdoDB.RecordSet")
'Requête sur les services rs contiendra la liste de tous les services
sql="select * from T_service order by Service asc"
rs_service.Open sql,cnx,3,3,1 ' curseur statique , verrou lecture seule, cmd type SQL
Set rs_doc=Server.CreateObject("AdoDB.RecordSet")
'Requête pour les nouveautés
sqln="SELECT d.N_service,d.ref_doc , d.rev, d.ext,d.Intitule,s.N_service,s.Service,d.date_application,d.liaison "
sqln=sqln + " FROM T_document d, T_service s WHERE d.N_service = s.N_service AND d.date_application >'" & datemysql & "' ORDER BY d.date_application desc;"
rs_doc.Open sqln,cnx,3,3,1 ' lecture seule,verrou lecture,cmd type SQL
' rs_service.Sort="N_service" ' Tri du recordset Non Géré par Access & MySql
rs_service.MoveFirst
For i=0 to nbmaxcookie
cookie(i)= Request.Cookies("doc" & i)
Next
%>
<HTML>
<head >
<title> <%=Session("titre")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<script language="javascript" SRC="./fonction/montrelien.js">
</script>
<link TYPE="text/CSS" REL="stylesheet" HREF="styles.css"><!-- feuille de style liée-->
</head>
<body >
<P class=titregras align=center>BASE DE DONNEES des DOCUMENTS SYTEME QUALITE S.O.N.</P>
<FORM name=FormChoix action="resultat.asp" method=post >
<table border="0" cellpadding="0" cellspacing="0" class="normalg" style="WIDTH:780px">
<TR class="normalg" align=right ><td width=140 bgcolor=khaki> Critères de Recherche :</td>
<td width=200> Le code document contient : </td>
<td width=200>L'intitulé contient : </td>
<td >Recherche par Service : </td>
</tr></table>
<table border="1" cellpadding="0" cellspacing="0" width="780" class="normalg" style="WIDTH:785px">
<td width=180><small > (Tous les critères sont facultatifs)</small></td>
<td width=180><INPUT maxLength=18 align=top vspace=2 size=18 name="codedoc" value=""></td>
<td width=260><INPUT maxLength=40 align=top vspace=2 size=30 name="intitule" value=""></td>
<td><SELECT id=select1 style="WIDTH: 160px" name=choixservice>
<OPTION value="Tous" >Tous</OPTION>
<% rs_service.MoveFirst
do while not rs_service.EOF
b=rs_service("Service")
Response.Write "<OPTION value= """ & b & """>" & b & "</OPTION>"
rs_service.MoveNext
loop
rs_service.Close
set rs_service= nothing
%>
</SELECT></td></TR>
</table><br>
<TABLE cellSpacing=0 border=0 class="normalg" style="WIDTH: 785px" cellPadding=0 background="">
<TBODY>
<TR>
<TD width=130 align=middle bgcolor=khaki>Type(s) de Document : </TD>
<TD width=40 ALIGN=right>Tous</TD>
<TD align=left><INPUT id=toutdoc type=checkbox name="toutdoc" value="toutdoc"> </TD>
<TD width=85 ALIGN=right>Formulaires</TD>
<TD align=left><INPUT id=checkbox2 type=checkbox CHECKED name="fo" value="FO"> </TD>
<TD width=120 align=right>Modes Opératoires</TD>
<TD align=left><INPUT id=checkbox3 type=checkbox CHECKED name="mo"value="MO"></TD>
<TD width=80 align=right>Procédures</TD>
<TD align=left> <INPUT type=checkbox CHECKED name= "pr" value="PR"></TD>
<TD width=110 align=right>Fiches instructions</TD>
<TD><INPUT id=checkbox6 type=checkbox name="fi" value="FI"></TD></TR>
</TBODY></TABLE><HR size=1 align=left width=785>
<table><TR align=center>
<% if droitmodif="oui" then ' accès non restreint Affiche bouton Modifier ou ajouter des documents
Response.Write "<TD width=350 style=' HEIGHT: 32px' ><INPUT type='submit' value='Visualiser les Résultats' name='valider' class=titregras ></TD>"
Response.Write "<TD></TD>"
Response.Write "<TD width=360><INPUT type='button' value='Modifier ou Ajouter des Documents' name='modif' class='titregras' onClick=location='modif.asp'></TD>"
else
Response.Write "<TD width=790 style=' HEIGHT: 32px' ><INPUT type='submit' value='Visualiser les Résultats' name='valider' class=titregras ></TD>"
end if
%>
</TR></table>
<HR align=left style="WIDTH: 785px" color=peru SIZE=2>
</FORM>
<TABLE><tr><td width=150 align=right> <IMG src="../images/new41.gif"></td><td class="titregras" align="center" bgcolor="#FFF7CD">Liste Des Documents Modifiés ou Créés Récemment</td><td width=140 align=left><IMG src="../images/new41.gif"></td>
<TABLE class=normal cellSpacing=0 cellPadding=2 width=785 bgColor=white border=2 style="WIDTH: 785px" borderColorDark=black>
<TR class=normalg align=middle bgcolor="khaki" >
<TD width=90>CODE</TD>
<TD width=400>INTITULE</TD>
<TD width= 140>SERVICE</TD>
<TD width=95 class=normal>Date application</TD>
<TD width=60>LIAISONS</TD></TR>
<% racine=cheminDoc ' Affichage de la liste des nouveautés
if not rs_doc.EOF then
rs_doc.MoveFirst
end if
do while not rs_doc.EOF
ref=rs_doc("ref_doc")
code=ref + "." + rs_doc("rev")
chemin=racine & "/" & code & "." & rs_doc("ext")
Response.Write"<TR align=middle><TD align=left><A href= javascript:montredoc('" & chemin & "','" & ref &"')>" & code & "</A></TD>"
'Response.Write"<TR align=middle><TD align=left><A href=" & chemin &">" & code & "</A></TD>"
Response.Write"<TD>" & rs_doc("Intitule") & "</TD>"
Response.Write" <TD>" & rs_doc("Service") & "</TD>"
Response.Write"<TD>" & rs_doc("Date_application") & "</TD>"
l=cint(rs_doc("liaison")) ' nb de liaisons du document
if l>0 then
nbl="<A href=javascript:montre('liaison.asp?codedoc=" & ref & "') >VOIR " & rs_doc("Liaison") & "</A>"
else
nbl="Non"
end if
Response.Write "<TD>" & nbl & "</TD> </TR>"
rs_doc.MoveNext
loop%>
</TABLE><BR>
<% if (cookie(0) <>"" And cookie(0)<>"undefined") Then ' affichage des documents utilisés (si cookies acceptés par client)%>
<CENTER><FONT class=titregras><small>Accès rapide aux documents que vous utilisez</small></FONT>
</CENTER><TABLE class=normal cellSpacing=0 cellPadding=5 width=785 border=1><TR>
<%For i=0 to nbmaxcookie
if i=(nbmaxcookie/2) Then
Response.Write "</TR><TR>"
End if
if cookie(i)<>"null" and cookie(i)<>"" Then
sql="SELECT * FROM T_document WHERE ref_doc LIKE '" & cookie(i) & "'"
Set rs_doc=cnx.Execute(sql)
if not rs_doc.EOF Then
ref=rs_doc("ref_doc")
chemin=CheminDoc &"/" & ref & "." & rs_doc("rev")&"." & rs_doc("ext")
b="<A href= javascript:montredoc('" & chemin & "','" & ref &"')>" & rs_doc("intitule") & "</A>"
%>
<TD align="center">
<%=b%>
</TD>
<%End if
End if
Next
%>
</TR></TABLE>
<FONT class=normal><small><A href=" javascript:effacecookie()"> Remise à zéro des liens vers ces documents</A>
<% End if%>
</body>
</HTML>
<% rs_doc.close
set rs_doc=nothing
cnx.close
set cnx=nothing
%>