<%
' Ouverture de la base de documents
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.Mappath("..\..\..\crouzet_docs\bases\data.mdb") & ";"
' Recherche des types de documents disponibles
strNav = ""
strLibCourant = ""
nNbType = 0
strTypeCourant = request.querystring("type")
Set rs = Server.CreateObject("ADODB.Recordset")
' sql = "SELECT DISTINCT TYPE, TYPE.CODE AS TYPECODE, LIBELLE.LIBELLE AS LIB FROM document, type, libelle WHERE document.produit like '%#COOLTECH#%' and document.type = type.code and libelle.idlibelle = type.id and libelle.codelangue='fr'"
sql = "SELECT DISTINCT TYPE FROM document WHERE document.produit like '%#MWS#%'"
rs.Open sql, conn, 1, 1
do while not rs.eof
' Récupération du code
strTypeCode = rs("TYPE")
' Récupération du libelle du type
strTypeLib = ""
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2 = "SELECT LIBELLE.LIBELLE AS LIB FROM type, libelle WHERE type.code = '" & strTypeCode & "' AND libelle.table = 'TYPE' AND libelle.idlibelle = type.id and libelle.codelangue='en'"
rs2.Open sql2, conn, 1, 1
if not rs2.eof then
strTypeLib = rs2("LIB")
end if
rs2.close
set rs2 = nothing
' Sélection ou pas du type
bSelected = false
if (strTypeCourant) <> "" then
if (lcase(strTypeCode) = lcase(strTypeCourant)) then
bSelected = true
end if
else
if (nNbType = 0) then
strTypeCourant = strTypeCode
bSelected = true
end if
end if
if bSelected then
strNav = strNav & "" & strTypeLib & " "
strLibCourant = strTypeLib
else
strNav = strNav & "" & strTypeLib & " "
end if
' Type suivant
nNbType = nNbType + 1
rs.movenext
loop
rs.close
set rs = nothing
%>
Millenium Web Server - Download
Téléchargez gratuitement l'ensemble de la documentation
Choisissez votre langue :
<% ' Parcours des déclinaisons du document dans toutes les langues
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2 = "SELECT * FROM fichier WHERE IdDoc=" & rs("id")
rs2.Open sql2, conn, 1, 1
do while not rs2.eof
%>
<% rs2.movenext
loop
rs2.close
set rs2 = nothing
%>
Choisissez votre langue :
<% ' Parcours des déclinaisons du document dans toutes les langues
Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2 = "SELECT * FROM fichier WHERE IdDoc=" & rs("id")
rs2.Open sql2, conn, 1, 1
do while not rs2.eof
%>
Download
Documents promotionnels
