% BasePath = "../.." strPageTitle = "AMCEQ :: Ressources / Liens" 'Dim rsCat, rsLiens, sqlQuery 'Dim sectSelected, sqlWhere 'Get the selected selected 'sectSelected = request.querystring("Category") 'If sectSelected <> "" THEN ' sqlWhere = "CategoryID='" & sectSelected & "'" 'Else ' sqlWhere = "CategoryID='gouvque'" 'End If 'Set rsLiens = Server.CreateObject("ADODB.RecordSet") 'sqlQuery = "SELECT * FROM tb_Liens WHERE "& sqlWhere 'rsLiens.Open sqlQuery, dbAmceq_conn 'Get the Category listing 'Set rsCat = Server.CreateObject("ADODB.RecordSet") 'sqlQuery = "SELECT * FROM tb_Categories" 'rsCat.Open sqlQuery, dbAmceq_conn Call writePageHeader(SECT_RESSOURCES) Call writeSubMenu(SECT_RESSOURCES) 'Building Left Menu 'response.write("
")
'response.write("
| ")
'End Left Menu
' ******************
' Begin Page Content
' ******************
'response.write("
"& sectSelected &"") 'Do While Not rsLiens.eof ' response.write("
") 'rsLiens.movenext 'Loop %>
Conteneurs_Spécifications.doc [DÉC-06] Entente_Agent_Manufacturier_(ps29).pdf [DÉC-06] Entente_Distributeur_Exportation_(ps31).pdf [DÉC-06] Exporter_USA_Canada_Guide_2005_(71ps)_fr.pdf [DÉC-06] Export_plan_Alberta_(ps13).pdf [DÉC-06] Export_Plan_NSW_(60ps).doc [DÉC-06] Guide_Pas-a-Pas_Exportation_Cdn_(ps61).pdf [DÉC-06] Incoterms2000.pdf [DÉC-06] JAT_article_aout2005_(ps2).pdf [DÉC-06] Lean_Logistic_PFL-International.pdf [DÉC-06] Plan_Aff.Intl_GvtQbc-2004_(ps44).pdf [DÉC-06] |