<%@ Language=VBScript %>
<%
Dim intMoisDebut
Dim rsProjet
Dim strErreur
Dim strFichierProjetType
Dim arrAnnee
Dim strAnnee
IntlsConnection
bolTemp = initRS()
intMoisDebut = param("DEBUT_ANNEE")
If isNumeric(intMoisDebut) Then
intMoisDebut = int(intMoisDebut)
Else
intMoisDebut = 1
End If
Select case Request("projetType")
case "Écritôt"
strFichierProjetType = "ecritot"
case "Histoire interactive"
strFichierProjetType = "HI"
case "Inspiration"
strFichierProjetType = "inspiration"
End Select
If Request("annee") = "" Then
strAnnee = RechrAnneeCourante()
Else
strAnnee = Request("annee")
End If
arrAnnee = RechrListeAnnee(Application("PREM_ANNEE"), RechrAnneeCourante())
Set rsProjet = RechrProjets(strAnnee, Request("projetType"), Request("ordre"), strErreur)
%>
Écritôt
