cs_tommie
Messages postés40Date d'inscriptionjeudi 18 mars 2004StatutMembreDernière intervention11 octobre 2005
-
30 sept. 2005 à 11:34
cs_Nurgle
Messages postés1642Date d'inscriptionsamedi 6 novembre 2004StatutMembreDernière intervention28 avril 2011
-
30 sept. 2005 à 17:17
Bonjour a tous,
le probleme qui se pose c'est que j'affiche toutes sortes de données pour des enfants,
et ce qui peut se passer c'est que pour certains enfants il y ait certains champs qui ne soient pas renseignés et donc dans ce cas la ca me genere une erreur ce qui est niormal car ca me dit qu'il n'y aps d'enregistrement pour cette personne
donc je fais un petit test avant mais celui ne marche pas pourriez vous m'aider s'il vous plait
je vous joins mon morceau de code et le test qui ne fonctionne pas (en rouge):
<%requete_scolarite "SELECT ET.idetablissementScolaire, SC.idetablissementscolaire, ET.libetablissementscolaire, SC.idregime, R.idregime, R.libregime, SC.idclassescolaire, C.idclassescolaire, C.libelleclasse, SC.idscolarite FROM Scolarite SC, ClasseScolaire C, RegimeScolaire R, EtablissementScolaire ET where SC.idetablissementscolaire ET.idetablissementScolaire and SC.idclassescolaire = C.idclassescolaire and SC.idregime = R.idregime and SC.matricule = '"& matricule &"' and SC.numenfant = '"& numenfant &"' order by SC.idscolarite DESC"
set requete_scolarite = conn.execute(requete_scolarite)
if not requete_scolarite.eof then
libelleclasse = requete_scolarite("libelleclasse")
libetablissementscolaire = requete_scolarite("libetablissementscolaire")
libregime = requete_scolarite("libregime")
end if
response.write matricule%>
<%
response.write numenfant
%>
Situation familiale du salarié : O Marié(e)
O Vie Maritale O Remarié(e) O Séparé(e) O Divorcé(e) O Veuf(ve) ,
----
<%response.write nomenfant%> <%response.write prenomenfant%>,
Né(e) le :,
<%response.write datenaissance%>,
----
Situation de l'enfant : O Alternance
O Apprentissage O
Salarié
Année précédente,
<%if (requete_scolarite(\"libelleclasse\") <> \"\" or requete_scolarite(\"libetablissementscolaire\") <> \"\" or requete_scolarite(\"libregime\") <> \"\") then%>
----
Nature des études suivies :
<%response.write requete_scolarite("libetablissementscolaire")%>
,
----
Classe :
<%response.write requete_scolarite("libelleclasse")%>
,
Régime :,
<%response.write requete_scolarite("libregime")%>,
cs_Nurgle
Messages postés1642Date d'inscriptionsamedi 6 novembre 2004StatutMembreDernière intervention28 avril 20114 30 sept. 2005 à 17:17
Correction :
Ce que je t'ai donné peut t'aider à comprendre mais n'est pas la meilleur façon...
En fait la version la plus courte et optimisée serait :
<% If isnull(requete_scolarite("libelleclasse") Or isnull(requete_scolarite("libetablissementscolaire")) Or isnull(requete_scolarite("libregime")) Or requete_scolarite("libelleclasse") "" Or requete_scolarite("libetablissementscolaire") "" Or requete_scolarite("libregime") = "" Then%>
Non Renseigné (en gros : au moins un champ est égal à Null ou est égal à "" )
<% Else %>
[Toute ta page ici]
<% End If %>
(je sais, ça fait un If un peu long)
C'est légèrement mieux que celle que je viens de
te donner (je ne pense pas que tu vois pourquoi, mais en cherchant bien
tu devrais trouver...)
Nurgle
Il est plus aisé d'être sage pour les autres que pour soi-même ! (La Rochefoucauld)
cs_tommie
Messages postés40Date d'inscriptionjeudi 18 mars 2004StatutMembreDernière intervention11 octobre 2005 30 sept. 2005 à 14:43
et non ça ne fonctionne pas mieux avec des and!
et comment faire le test si ce sont des valeurs null?
car j'ai essayé comme ça mais cça ne marche pas mieux non plus:
<%if not(isnull(requete_scolarite("libelleclasse")) or ....%>
Situation familiale du salarié
: O Marié(e)
O Vie Maritale O
Remarié(e) O
Séparé(e) O
Divorcé(e) O
Veuf(ve) ,
cs_tommie
Messages postés40Date d'inscriptionjeudi 18 mars 2004StatutMembreDernière intervention11 octobre 2005 30 sept. 2005 à 15:55
peut etre voudriez vous le code de toute la page??
je vous le joins:
<!--#include file="session-verif.asp"-->
<%
Session.LCID = 1036 ' gestion des dates en francais
set conn = Application("connexion")
'e
' protège les &, ", < et > dans le code html
Function doinput(byRef ch)
If (ch <> "") Then
doinput = replace(ch, "&", "&")
doinput = replace(doinput, """", """)
doinput = replace(doinput, "<", "<")
doinput = replace(doinput, ">", ">")
Else
doinput = ""
End If
End Function
' paramètre : chaine date au format français 2/3/2004 ou 02/3/2004...
' retourne une chaine sous la forme lundi 7 février 2005
Function getDateFr(byRef uneDate)
Dim dateFormatee
Dim tab_date
Dim n_jour
Dim n_mois
Dim n_annee
Dim n_jour_semaine
Dim nom_mois
Dim nom_jour
Dim dateang
' on sépare les éléments de la date sur les /
tab_date = split(uneDate, "/")
' transformation du numéro de mois en nom de mois
Select Case n_mois
Case 1 nom_mois = "janvier"
Case 2 nom_mois = "février"
Case 3 nom_mois = "mars"
Case 4 nom_mois = "avril"
Case 5 nom_mois = "mai"
Case 6 nom_mois = "juin"
Case 7 nom_mois = "juillet"
Case 8 nom_mois = "août"
Case 9 nom_mois = "septembre"
Case 10 nom_mois = "octobre"
Case 11 nom_mois = "novembre"
Case 12 nom_mois = "décembre"
End Select
' on met la date au format anglais afin de récupérer un numéro de jour semaine juste
dateang = n_mois & "/" & n_jour & "/" & n_annee
' récupération du numéro de jour dans la semaine : 1er jour -> lundi...
n_jour_semaine = weekday(dateang, vbMonday)
' transformation du numéro de jour de la semaine en nom de jour
Select Case n_jour_semaine
Case 1 nom_jour = "lundi"
Case 2 nom_jour = "mardi"
Case 3 nom_jour = "mercredi"
Case 4 nom_jour = "jeudi"
Case 5 nom_jour = "vendredi"
Case 6 nom_jour = "samedi"
Case 7 nom_jour = "dimanche"
End Select
Pour l'impression, veuillez attendre la fin du chargement de la page, puis faites <tt>Fichier -> Mise en page</tt> Les entêtes et
les pieds de page doivent être vides. Ensuite, faites <tt>Fichier -> Imprimer</tt>. [# Retour à la page précédente].
<center>
<%
requete_limite = "select T.* from tranchedecompte T"
set limite = conn.execute(requete_limite)
if not(limite.eof) then
agemin = limite("agemin")
agemax = limite("agemax")
end if
requete "SELECT S.matricule, S.nom, S.prenom, S.civilite, e.etudeterminee, e.nomEnfant, e.prenomEnfant, e.sexeEnfant, e.datenaissance, e.numenfant ,A.datedebAdr, A.pays, A.nomderue, A.chez, A.complement, A.numerorue, A.codepostal, A.localite FROM enfant e, Salarie S, Adresse A WHERE S.matricule e.matricule and S.matricule = A.matricule"
requete=requete & " and A.DateDebAdr = (SELECT MAX(A2.DateDebAdr) FROM Adresse A2 WHERE A.matricule=A2.matricule) order by nom,prenom"
set resultat = conn.Execute(requete)
Dim datenaissance
Dim dateMoisSuivant
Dim moisAnciennete, anneeAnciennete
Dim retour
If anneeAnciennete > 1 Then
retour = retour
Else
retour = retour
End If
If NOT resultat.EOF Then
' on affiche la première ligne
If not isNull(resultat("nom")) Then
numenfant = resultat("numenfant")
nomenfant = resultat("nomenfant")
prenomenfant= resultat("prenomenfant")
matricule = resultat("matricule")
etudeterminee = resultat("etudeterminee")
nom = resultat("nom")
prenom = resultat("prenom")
If resultat("civilite") = "Madame" Then
civilite = "Madame"
Else
civilite = "Monsieur"
End If
End If
%>
<%if (etudeterminee = "n" or etudeterminee= "N") then%>
<%if (Cint(agemin) <= Cint(retour) and Cint(agemax) >= Cint(retour)) then%>
<%Response.Write("
" & Vbcrlf)%>
</center>
<%
requete_entete1= "SELECT entete1 FROM BE_questionnaire"
set resultat_entete1 = conn.Execute(requete_entete1)
If NOT resultat_entete1.EOF Then
Response.Write(doinput(resultat_entete1("entete1")))
End If
%>
<%
requete_entete2= "SELECT entete2 FROM BE_questionnaire"
set resultat_entete2 = conn.Execute(requete_entete2)
If NOT resultat_entete2.EOF Then
Response.Write(doinput(resultat_entete2("entete2")))
End If
%>
<%
requete_entete3= "SELECT entete3 FROM BE_questionnaire"
set resultat_entete3 = conn.Execute(requete_entete3)
If NOT resultat_entete3.EOF Then
Response.Write(doinput(resultat_entete3("entete3")) )
End If
%>
<center>
<%
response.write ("DEMANDE DE BOURSES D'ETUDES")
%>
<%response.write ("(à adresser au Service du Personnel - Bourses d'Etudes)")%>
<%
Response.Write("" & Vbcrlf)
Response.Write(doinput(civilite) & " " & doinput(prenom) & " " & doinput(nom) & "
" & Vbcrlf)
response.write("Matricule :")%> <%response.write (doinput(matricule))%>
<%
If resultat("chez") <> "" Then
Response.Write("<small>" & doinput(resultat("chez")) & "</small>
" & Vbcrlf)
End If
If resultat("nomDeRue") <> "" Then
Response.Write(doinput(resultat("numeroRue")) & " " & doinput(resultat("nomDeRue")) & "
" & Vbcrlf)
End If
If resultat("complement") <> "" Then
Response.Write("<small>" & doinput(resultat("complement")) & "</small>
" & Vbcrlf)
End If
If (resultat("pays") <> "" AND UCase(resultat("pays")) <> "FRANCE") Then
Response.Write("
<small>" & Vbcrlf & doinput(resultat("pays")) & "</small>")
End If
Response.Write("" & Vbcrlf)
%>
<%requete_scolarite "SELECT ET.idetablissementScolaire, SC.idetablissementscolaire, ET.libetablissementscolaire, SC.idregime, R.idregime, R.libregime, SC.idclassescolaire, C.idclassescolaire, C.libelleclasse, SC.idscolarite FROM Scolarite SC, ClasseScolaire C, RegimeScolaire R, EtablissementScolaire ET where SC.idetablissementscolaire ET.idetablissementScolaire and SC.idclassescolaire = C.idclassescolaire and SC.idregime = R.idregime and SC.matricule = '"& matricule &"' and SC.numenfant = '"& numenfant &"' order by SC.idscolarite DESC"
set requete_scolarite = conn.execute(requete_scolarite)
if not requete_scolarite.eof then
libelleclasse = requete_scolarite("libelleclasse")
libetablissementscolaire = requete_scolarite("libetablissementscolaire")
libregime = requete_scolarite("libregime")
end if
response.write matricule%>
<%
response.write numenfant
%>
Situation familiale du salarié : O Marié(e)
O Vie Maritale O Remarié(e) O Séparé(e) O Divorcé(e) O Veuf(ve) ,
----
<%response.write nomenfant%> <%response.write prenomenfant%>,
Né(e) le :,
<%response.write datenaissance%>,
----
Situation de l'enfant : O Alternance
O Apprentissage O
Salarié
Année : ,
<%'if (requete_scolarite(\"libelleclasse\") <> \"\" or requete_scolarite(\"libetablissementscolaire\") <> \"\" or requete_scolarite(\"libregime\") <> \"\" ) then%>
<%if (not isnull(requete_scolarite(\"libelleclasse\")) or not isnull(requete_scolarite(\"libetablissementscolaire\")) or not isnull(requete_scolarite(\"libregime\"))) then%>
----
Nature des études suivies :
<%response.write requete_scolarite("libetablissementscolaire")%>
,
----
Classe :
<%response.write requete_scolarite("libelleclasse")%>
,
Régime :,
<%response.write requete_scolarite("libregime")%>,
<%else%> Non reneigné
<%end if%>
----
Année en cours :,
,
,
<!-- #include file="BE_questionnaire.html"-->
<%
requete_BasdePage = "SELECT BasdePage FROM BE_questionnaire"
set resultat_BasdePage = conn.Execute(requete_BasdePage)
If anneeAnciennete > 1 Then
retour = retour
Else
retour = retour
End If
%>
<%if (etudeterminee = "n" or etudeterminee= "N") then%>
<%if (Cint(agemin) <= Cint(retour) and Cint(agemax) >= Cint(retour)) then
%>
<%Response.Write("<hr class=""separateur_page"" />" & Vbcrlf)%>
<%
Response.Write("
" )
%>
</center>
<%
requete_entete1= "SELECT entete1 FROM BE_questionnaire"
set resultat_entete1 = conn.Execute(requete_entete1)
If NOT resultat_entete1.EOF Then
Response.Write(doinput(resultat_entete1("entete1")))
End If
%>
<%
requete_entete2= "SELECT entete2 FROM BE_questionnaire"
set resultat_entete2 = conn.Execute(requete_entete2)
If NOT resultat_entete2.EOF Then
Response.Write(doinput(resultat_entete2("entete2")))
End If
%>
<%
requete_entete3= "SELECT entete3 FROM BE_questionnaire"
set resultat_entete3 = conn.Execute(requete_entete3)
If NOT resultat_entete3.EOF Then
Response.Write(doinput(resultat_entete3("entete3")) )
End If
%>
<center>
<%
response.write ("DEMANDE DE BOURSES D'ETUDES")
%>
<%response.write ("(à adresser au Service du Personnel - Bourses d'Etudes)")%>
<%
Response.Write("" & Vbcrlf)
Response.Write(doinput(civilite) & " " & doinput(prenom) & " " & doinput(nom) & "
" & Vbcrlf)
response.write("Matricule :")%> <%response.write (doinput(matricule))%>
<%
If resultat("chez") <> "" Then
Response.Write("<small>" & doinput(resultat("chez")) & "</small>
" & Vbcrlf)
End If
If resultat("nomDeRue") <> "" Then
Response.Write(doinput(resultat("numeroRue")) & " " & doinput(resultat("nomDeRue")) & "
" & Vbcrlf)
End If
If resultat("complement") <> "" Then
Response.Write("<small>" & doinput(resultat("complement")) & "</small>
" & Vbcrlf)
End If
If (resultat("pays") <> "" AND UCase(resultat("pays")) <> "FRANCE") Then
Response.Write("
<small>" & Vbcrlf & doinput(resultat("pays")) & "</small>")
End If
Response.Write("" & Vbcrlf)
%>
<%requete_scolarite "SELECT ET.idetablissementScolaire, SC.idetablissementscolaire, ET.libetablissementscolaire, SC.idregime, R.idregime, R.libregime, SC.idclassescolaire, C.idclassescolaire, C.libelleclasse, SC.idscolarite FROM Scolarite SC, ClasseScolaire C, RegimeScolaire R, EtablissementScolaire ET where SC.idetablissementscolaire ET.idetablissementScolaire and SC.idclassescolaire = C.idclassescolaire and SC.idregime = R.idregime and SC.matricule = '"& matricule &"' and SC.numenfant = '"& numenfant &"' order by SC.idscolarite DESC"
set requete_scolarite = conn.execute(requete_scolarite)
if not requete_scolarite.eof then
libelleclasse = requete_scolarite("libelleclasse")
libetablissementscolaire = requete_scolarite("libetablissementscolaire")
libregime = requete_scolarite("libregime")
end if
Situation familiale du salarié : O Marié(e)
O Vie Maritale O Remarié(e) O Séparé(e) O Divorcé(e) O Veuf(ve) ,
----
<%response.write nomenfant%> <%response.write prenomenfant%>,
Né(e) le :,
<%response.write datenaissance%>,
----
Situation de l'enfant : O Alternance
O Apprentissage O
Salarié
Année : ,
<%'if (requete_scolarite(\"libelleclasse\") <> \"\" or requete_scolarite(\"libetablissementscolaire\") <> \"\" or requete_scolarite(\"libregime\") <> \"\" ) then%>
<%if (not isnull(requete_scolarite(\"libelleclasse\")) or not isnull(requete_scolarite(\"libetablissementscolaire\")) or not isnull(requete_scolarite(\"libregime\"))) then%>
----
Nature des études suivies :
<%response.write requete_scolarite("libetablissementscolaire")%>
,
----
Classe :
<%response.write requete_scolarite("libelleclasse")%>
,
Régime :,
<%response.write requete_scolarite("libregime")%>,
<%else%> Non reneigné
<%end if%>
----
Année en cours :,
,
,
<!-- #include file="BE_questionnaire.html"-->
<%
requete_BasdePage = "SELECT BasdePage FROM BE_questionnaire"
set resultat_BasdePage = conn.Execute(requete_BasdePage)
If NOT resultat_BasdePage.EOF Then
Response.Write("
" & doinput(resultat_BasdePage("BasdePage")) & "
cs_Nurgle
Messages postés1642Date d'inscriptionsamedi 6 novembre 2004StatutMembreDernière intervention28 avril 20114 30 sept. 2005 à 17:11
Salut,
<% If isnull(requete_scolarite("libelleclasse") Or isnull(requete_scolarite("libetablissementscolaire")) Or isnull(requete_scolarite("libregime")) Then%>
Non Renseigné (en gros : au moins un champ est égal à Null )
<% ElseIf requete_scolarite("libelleclasse")
<> "" and requete_scolarite("libetablissementscolaire") <>
"" and requete_scolarite("libregime") <> "" then%>
[Toute ta page ici]
<% End If %>
Je n'ai pas testé, mais un truc dans ce genre là devrait fonctionner ...
A+++
Nurgle
Il est plus aisé d'être sage pour les autres que pour soi-même ! (La Rochefoucauld)