CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 11 02:07:35

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil > Forum >

code asp probleme ! ! HELP !!

Poser une question dans le forum ou lancer une discussion

code asp probleme ! ! HELP !!

vendredi 30 septembre 2005 à 11:34:41 | code asp probleme ! ! HELP !!

tommie

35 msg

45 msg CS

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
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="39">
<tr>
 <td width="101%" style="border-left-style: solid; border-left-width: 1; border-top-style: solid; border-top-width: 1; border-right-style:solid; border-right-width:1" colspan="3" height="17">
 Situation familiale du salarié :   O Marié(e)   
 O Vie Maritale    O Remarié(e)    O Séparé(e)    O Divorcé(e)    O Veuf(ve)    </td>
</tr>
<tr>
 <td width="37%" style="border-left-style: solid; border-left-width: 1; border-top-style: none; border-top-width: medium" height="17"><%response.write nomenfant%> <%response.write prenomenfant%></td>
 <td width="11%" style="border-top-style: none; border-top-width: medium" height="17">
 Né(e) le :</td>
 <td width="53%" style="border-right-style: solid; border-right-width: 1; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" height="17"><%response.write datenaissance%></td>
</tr>
<tr>
 <td width="101%" style="border-left-style: solid; border-left-width: 1; border-top-style: none; border-top-width: medium; border-right-style:solid; border-right-width:1" height="18" colspan="3">
 Situation de l'enfant :     O Alternance         
 O Apprentissage          O
 Salarié</td>
</tr>
</table>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="10">
<tr>
<td width="101%" style="border-style:solid; border-width:1; " colspan="4" height="16">
Année précédente</td>
</tr>

<%if (requete_scolarite("libelleclasse") <> "" or requete_scolarite("libetablissementscolaire") <> "" or requete_scolarite("libregime") <> "") then%>

<tr>
 <td width="100%" style="border-left-style: solid; border-left-width: 1; border-top-style:solid; border-top-width:1; border-right-style:solid; border-right-width:1" colspan="4" height="20">
 Nature des études suivies :
 <%response.write requete_scolarite("libetablissementscolaire")%>
 </td>
</tr>

<tr>
 <td width="59%" style="border-left-style: solid; border-left-width: 1; border-bottom-style:solid; border-bottom-width:1" colspan="2" height="20">
 Classe :
 <%response.write requete_scolarite("libelleclasse")%>
 </td>
 <td width="6%" style="border-right-style: none; border-right-width: medium; border-left-style:none; border-left-width:medium; border-bottom-style:solid; border-bottom-width:1" height="20">
 Régime :</td>
 <td width="36%" style="border-right-style: solid; border-right-width: 1; border-left-style:none; border-left-width:medium; border-bottom-style:solid; border-bottom-width:1" height="20">
  <%response.write requete_scolarite("libregime")%></td>
</tr>
<tr>
 <td width="37%" style="border-left-style: solid; border-left-width: 1; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20">
 Année en cours :</td>
 <td width="22%" style="border-right-style: none; border-right-width: medium; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20"> </td>
 <td width="6%" style="border-right-style: none; border-right-width: medium; border-left-style:none; border-left-width:medium; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20">
  </td>
 <td width="36%" style="border-right-style: solid; border-right-width: 1; border-left-style:none; border-left-width:medium; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20"> </td>
</tr>

<%else%>
Non reneigné
<%end if%>

</table>

vendredi 30 septembre 2005 à 11:59:37 | Re : code asp probleme ! ! HELP !!

tikrimi

175 msg

178 msg CS

Bonjour,

A mon avis, remplace tes "or" par des "and" ... là si un seul de tes 2 champs n'est pas vide, tu passes dans ton if.
Ensuite, tu peux aussi avoir le cas d'un champ null.

TiK

[ Lien ]

vendredi 30 septembre 2005 à 14:43:11 | Re : code asp probleme ! ! HELP !!

tommie

35 msg

45 msg CS

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 ....%>

auriez vous d'autres idées?
merci

vendredi 30 septembre 2005 à 15:18:03 | Re : code asp probleme ! ! HELP !!

tikrimi

175 msg

178 msg CS

Peux tu essayer le code suivant et nous donner le message d'erreur stp ?

<%

on error resume next

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
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="39">
<tr>
 <td width="101%" style="border-left-style: solid; border-left-width: 1; border-top-style: solid; border-top-width: 1; border-right-style:solid; border-right-width:1" colspan="3" height="17">
 Situation familiale du salarié :   O Marié(e)   
 O Vie Maritale    O Remarié(e)    O Séparé(e)    O Divorcé(e)    O Veuf(ve)    </td>
</tr>
<tr>
 <td width="37%" style="border-left-style: solid; border-left-width: 1; border-top-style: none; border-top-width: medium" height="17"><%response.write nomenfant%> <%response.write prenomenfant%></td>
 <td width="11%" style="border-top-style: none; border-top-width: medium" height="17">
 Né(e) le :</td>
 <td width="53%" style="border-right-style: solid; border-right-width: 1; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" height="17"><%response.write datenaissance%></td>
</tr>
<tr>
 <td width="101%" style="border-left-style: solid; border-left-width: 1; border-top-style: none; border-top-width: medium; border-right-style:solid; border-right-width:1" height="18" colspan="3">
 Situation de l'enfant :     O Alternance         
 O Apprentissage          O
 Salarié</td>
</tr>
</table>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
</table>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="10">
<tr>
 <td width="101%" style="border-style:solid; border-width:1; " colspan="4" height="16">
 Année précédente</td>
</tr>

<%if (requete_scolarite("libelleclasse") <> "" or requete_scolarite("libetablissementscolaire") <> "" or requete_scolarite("libregime") <> "") then%>

<%
if err.number<>0 then
Response.Write ("Erreur dans le if : " & err.Description)
Response.End
end if
%>

<tr>
 <td width="100%" style="border-left-style: solid; border-left-width: 1; border-top-style:solid; border-top-width:1; border-right-style:solid; border-right-width:1" colspan="4" height="20">
 Nature des études suivies :
 <%response.write requete_scolarite("libetablissementscolaire")%>
 </td>
</tr>

<%
if err.number<>0 then
Response.Write ("Erreur libetablissementscolaire : " & err.Description)
Response.End
end if
%>

<tr>
 <td width="59%" style="border-left-style: solid; border-left-width: 1; border-bottom-style:solid; border-bottom-width:1" colspan="2" height="20">
 Classe :
 <%response.write requete_scolarite("libelleclasse")%>
<%
if err.number<>0 then
Response.Write ("Erreur libelleclasse: " & err.Description)
Response.End
end if
%>
 </td>
 <td width="6%" style="border-right-style: none; border-right-width: medium; border-left-style:none; border-left-width:medium; border-bottom-style:solid; border-bottom-width:1" height="20">
 Régime :</td>
 <td width="36%" style="border-right-style: solid; border-right-width: 1; border-left-style:none; border-left-width:medium; border-bottom-style:solid; border-bottom-width:1" height="20">
  <%response.write requete_scolarite("libregime")%></td>
</tr>
<%
if err.number<>0 then
Response.Write ("Erreur libregime: " & err.Description)
Response.End
end if
%>
<tr>
 <td width="37%" style="border-left-style: solid; border-left-width: 1; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20">
 Année en cours :</td>
 <td width="22%" style="border-right-style: none; border-right-width: medium; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20"> </td>
 <td width="6%" style="border-right-style: none; border-right-width: medium; border-left-style:none; border-left-width:medium; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20">
  </td>
 <td width="36%" style="border-right-style: solid; border-right-width: 1; border-left-style:none; border-left-width:medium; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20"> </td>
</tr>

<%else%>
Non reneigné
<%end if%>

</table>

TiK

[ Lien ]

vendredi 30 septembre 2005 à 15:54:19 | Re : code asp probleme ! ! HELP !!

tommie

35 msg

45 msg CS

j'ai juste ça qui apparait:

Erreur dans le if :

que dois je faire??
merci de votre aide

vendredi 30 septembre 2005 à 15:55:49 | Re : code asp probleme ! ! HELP !!

tommie

35 msg

45 msg CS

peut etre voudriez vous le code de toute la page??

je vous le joins:


<%
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, "/")

  ' récupération des valeurs
  n_jour = tab_date(0)
  n_mois = tab_date(1)
  n_annee = tab_date(2)

  ' 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

dateFormatee = n_jour & " " & nom_mois & " " & n_annee

getDateFr = dateFormatee

End Function

' transforme la ligne vide en paragraphe et remplace les caractères spéciaux
Function paragrapheFormate(byRef texte)

Dim texteTemp
Dim tab_para

tab_para = split(texte, VbCrLf & VbCrLf)

paragrapheFormate = ""

For i = 0 To UBound(tab_para)

paragrapheFormate = paragrapheFormate & "" & tab_para(i) & "" & VbCrLf
Next
End Function
%>

<head>
<title>Bourses d'études - Impression des questionnaires</title>
<link rel="stylesheet" type="text/css" media="all" href="mailing-questionnaire-impression-screen.css" />
<link rel="stylesheet" type="text/css" media="print" href="mailing-questionnaire-impression-print.css" />
</head>
<body>
<div id="infoImpression">
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>. <a href="#" onclick="history.go(-1);">Retour à la page précédente</a>.


</div>
<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

datenaissance = resultat("datenaissance")
dateMoisSuivant = dateserial(year(dateadd("m", 1, now)), month(dateadd("m", 1, now)), 1)

moisAnciennete = DateDiff("m", datenaissance, dateMoisSuivant) mod 12
anneeAnciennete = DateDiff("yyyy", datenaissance, dateMoisSuivant)

retour = "" & anneeAnciennete

            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("<div class=""unCourier"">" & 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("<address>" & Vbcrlf)
 Response.Write(doinput(civilite) & " " & doinput(prenom) & " " & doinput(nom) & " " & Vbcrlf)
 response.write("Matricule :")%> <%response.write (doinput(matricule))%> <%
 If resultat("chez") <> "" Then
 Response.Write("" & doinput(resultat("chez")) & " " & Vbcrlf)
 End If

If resultat("nomDeRue") <> "" Then
 Response.Write(doinput(resultat("numeroRue")) & " " & doinput(resultat("nomDeRue")) & " " & Vbcrlf)
 End If

If resultat("complement") <> "" Then
 Response.Write("" & doinput(resultat("complement")) & " " & Vbcrlf)
 End If

Response.Write(doinput(resultat("codePostal")) & " " & doinput(resultat("localite")) & Vbcrlf)

If (resultat("pays") <> "" AND UCase(resultat("pays")) <> "FRANCE") Then
 Response.Write(" " & Vbcrlf & doinput(resultat("pays")) & "")
 End If

Response.Write("</address>" & 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 (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%>

<%else%> Non reneigné
<%end if%>
<tr>
 <td width="37%" style="border-left-style: solid; border-left-width: 1; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20">
 Année en cours :</td>
 <td width="22%" style="border-right-style: none; border-right-width: medium; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20"> </td>
 <td width="6%" style="border-right-style: none; border-right-width: medium; border-left-style:none; border-left-width:medium; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20">
  </td>
 <td width="36%" style="border-right-style: solid; border-right-width: 1; border-left-style:none; border-left-width:medium; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20"> </td>
</tr>

</table>

<%
requete_BasdePage = "SELECT BasdePage FROM BE_questionnaire"
set resultat_BasdePage = conn.Execute(requete_BasdePage)

If NOT resultat_BasdePage.EOF Then

Response.Write("<div class=""BasdePage"">" & doinput(resultat_BasdePage("BasdePage")) & "</div>" & Vbcrlf)
%><%
 End If%>

A                             le                             


<center>
 
                                                                  Signature,

<%Response.Write("</div>" & Vbcrlf)
end if
end if
resultat.MoveNext

        ' puis les suivantes en ajoutant un saut de page
        ' afin de ne pas sortir une page vierge à la fin

        While NOT resultat.EOF

            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


    datenaissance = resultat("datenaissance")
            dateMoisSuivant = dateserial(year(dateadd("m", 1, now)), month(dateadd("m", 1, now)), 1)

moisAnciennete = DateDiff("m", datenaissance, dateMoisSuivant) mod 12
anneeAnciennete = DateDiff("yyyy", datenaissance, dateMoisSuivant)

retour = "" & anneeAnciennete

            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("<div class=""unCourier"">" )
%>

</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_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("<address>" & Vbcrlf)
 Response.Write(doinput(civilite) & " " & doinput(prenom) & " " & doinput(nom) & " " & Vbcrlf)
 response.write("Matricule :")%> <%response.write (doinput(matricule))%> <%
 If resultat("chez") <> "" Then
 Response.Write("" & doinput(resultat("chez")) & " " & Vbcrlf)
 End If

If resultat("nomDeRue") <> "" Then
 Response.Write(doinput(resultat("numeroRue")) & " " & doinput(resultat("nomDeRue")) & " " & Vbcrlf)
 End If

If resultat("complement") <> "" Then
 Response.Write("" & doinput(resultat("complement")) & " " & Vbcrlf)
 End If

Response.Write(resultat("codePostal") & " " & resultat("localite") & Vbcrlf)

If (resultat("pays") <> "" AND UCase(resultat("pays")) <> "FRANCE") Then
 Response.Write(" " & Vbcrlf & doinput(resultat("pays")) & "")
 End If

Response.Write("</address>" & 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)

response.write matricule%> <%
response.write numenfant%> 
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="39">
<tr>
 <td width="101%" style="border-left-style: solid; border-left-width: 1; border-top-style: solid; border-top-width: 1; border-right-style:solid; border-right-width:1" colspan="3" height="17">
 Situation familiale du salarié :   O Marié(e)   
 O Vie Maritale    O Remarié(e)    O Séparé(e)    O Divorcé(e)    O Veuf(ve)    </td>
</tr>
<tr>
 <td width="37%" style="border-left-style: solid; border-left-width: 1; border-top-style: none; border-top-width: medium" height="17"><%response.write nomenfant%> <%response.write prenomenfant%></td>
 <td width="11%" style="border-top-style: none; border-top-width: medium" height="17">
 Né(e) le :</td>
 <td width="53%" style="border-right-style: solid; border-right-width: 1; border-top-style: none; border-top-width: medium; border-bottom-style: none; border-bottom-width: medium" height="17"><%response.write datenaissance%></td>
</tr>
<tr>
 <td width="101%" style="border-left-style: solid; border-left-width: 1; border-top-style: none; border-top-width: medium; border-right-style:solid; border-right-width:1" height="18" colspan="3">
 Situation de l'enfant :     O Alternance         
 O Apprentissage          O
 Salarié</td>
</tr>
</table>

<%'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%>

<tr>
 <td width="59%" style="border-left-style: solid; border-left-width: 1; border-bottom-style:solid; border-bottom-width:1" colspan="2" height="20">
 Classe :
 <%response.write requete_scolarite("libelleclasse")%>
 </td>
 <td width="6%" style="border-right-style: none; border-right-width: medium; border-left-style:none; border-left-width:medium; border-bottom-style:solid; border-bottom-width:1" height="20">
 Régime :</td>
 <td width="36%" style="border-right-style: solid; border-right-width: 1; border-left-style:none; border-left-width:medium; border-bottom-style:solid; border-bottom-width:1" height="20">
  <%response.write requete_scolarite("libregime")%></td>
</tr>
<%else%> Non reneigné
<%end if%>
<tr>
 <td width="37%" style="border-left-style: solid; border-left-width: 1; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20">
 Année en cours :</td>
 <td width="22%" style="border-right-style: none; border-right-width: medium; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20"> </td>
 <td width="6%" style="border-right-style: none; border-right-width: medium; border-left-style:none; border-left-width:medium; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20">
  </td>
 <td width="36%" style="border-right-style: solid; border-right-width: 1; border-left-style:none; border-left-width:medium; border-top-style:solid; border-top-width:1; border-bottom-style:solid; border-bottom-width:1" height="20"> </td>
</tr>

</table>

<%
 requete_BasdePage = "SELECT BasdePage FROM BE_questionnaire"
 set resultat_BasdePage = conn.Execute(requete_BasdePage)
 If NOT resultat_BasdePage.EOF Then
 Response.Write("<div class=""BasdePage"">" & doinput(resultat_BasdePage("BasdePage")) & "</div>" & Vbcrlf)
%><%
 End If%>

<% Response.Write("</div>" & Vbcrlf)
end if
end if
 resultat.MoveNext
 Wend
End If%>
</center>
</body>
</html>

vendredi 30 septembre 2005 à 16:51:54 | Re : code asp probleme ! ! HELP !!

tikrimi

175 msg

178 msg CS

Tu dois avoir un de tes champs qui est null.
Ajout ce bout de code avant le if :

<%
response.write ("libelleclasse : " & isnull(requete_scolarite("libelleclasse")) & " ")
response.write ("libetablissementscolaire : " & isnull(requete_scolarite("libetablissementscolaire")) & " ")
response.write ("libregime : " & isnull(requete_scolarite("libregime")) & " ")
if err.number<>0 then
Response.Write ("Mais c quoi cette erreur de m... : " & err.Description)
Response.End
end if
%>

Tu vas normalement voir un des 3 qui sera vrai.

Si c'est ça, ensuite, il faudra que tu testes avant tes champs pour voir s'il ne sont pas null avant de regarder s'ils n'ont pas une chaine vide

TiK

[ Lien ]

vendredi 30 septembre 2005 à 17:11:10 | Re : code asp probleme ! ! HELP !!

Nurgle

1250 msg

1630 msg CS

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)

vendredi 30 septembre 2005 à 17:17:17 | Re : code asp probleme ! ! HELP !!

Nurgle

1250 msg

1630 msg CS

Réponse acceptée !
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)

Cette discussion est classée dans : requete, sc, nbsp, scolarite, idetablissementscolaire

Répondre à ce message

Sujets en rapport avec ce message

probleme de tri dans mes requetes [ par tommie ] bonjour a tous!voila mon probleme je fais plusieurs requetes pour ramener diverses infos de différentes tables (je suis obligé de faire plusieurs requ redirection impossible [ par tommie ] Bonjour j'ai un probleme avec une redirection d'une page ASP à une autreen fait a partir d'une page ou j'affiche des infos concernant un enfant, je pe Message d'erreur lors de l'exécution d'une page aspx [ par inforock ] Bonjour tout le monde,Je crée des pages aspx avec Visual Studio 2005 Béta 2. Ces pages utilisent les objets "menus", "calendar", "accessdatasource". L help aide requete !!! [ par tommie ] bonjour j'ai un petit soucis avec une requete sous oracle, je vous explique le probleme:j'ai trois tables de la forme:-- TABLE SALARIE: CREATE TABLE S Probleme de requete [ par g_tony ] Bonjour je travail en asp 3 et je dois utiliser une requete, mais celle ci est trop longue et je suis obligé de faire un retour à la ligne, mais cela Probleme avec une requete sql en ASP [ par g_tony ] Bonjour, j'ai un probleme avec ma requete, elle fonctionne avec Access mais quand je m'en sert pour mon code Iexplorer me dit Fin d'instruction attend resultat d'une requete avec un ordre aléatoire [ par hgozlan ] Je cherche a faire une requête qui à l’air toute simple : exemple select * from nom_de_ma_table Mais je veux que mes champs apparaissent de manière Cibler un rang du recordset [ par oinant ] Bonjour tout le monde!bon, je débute en asp alors je prends tout les conseils possibles!Je me pose une question existentielle: j'ai crai un script de Requete en 2 étapes / ASP-SQL Server [ par titoune76 ] J'ai une table contenant les ventes d'articles par semaine. Je veux afficher sur une page asp les ventes par famille d'article, intervalle de temps (p Gestion des acces a votre base de données [ par matlocker ] Bonjour à tous,Je suis en train de developper un site web et j'effectue sur chaque page 3,4 requete en moyenne. Et j'aimerai savoir comment vous faite

Livres en rapport

JavaScript

WiFi

Internet pour les nuls (version mini référence)

Architecture et technologie des ordinateurs

Tous les livres pour Requete, Sc, Nbsp, Scolarite, Idetablissementscolaire

Nos sponsors

Derniers Blogs

[SHAREPOINT] LES SESSIONS TECHDAYS 2012. par Patrick Guimonet

TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice

MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko

[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi

WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson

Forum

PROBLèME DE CONNEXION à UNE BADE DE DONNéES par sowlas

MANIPULER LES MENU DYNAMIC par parad15

GéRER UN TREEVIEW COMME MENU ASCENCEUR OU ACCORDION par parad15

RE : RECHERCHE COMPOSANT DIAGRAMME AVEC INTERACTION AU CLIC, DéPLACEMENT SOURIS … par Megafan

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Passerelle Pericles sur site Joomla 17
Budget : 499€
Infogerance Serveur Debian Linux
Budget : 2 400€
Developpeur applications iphone - ipad - android
Budget : 800€

Logiciels

Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning
COLLECTOR PLUS (3.00B)
COLLECTOR PLUS (3.00B)

COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par : - L...

Cliquez pour télécharger COLLECTOR PLUS
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
LettresFaciles 2011 (8.0.0.1)
LETTRESFACILES 2011 (8.0.0.1)

LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types. Son inte...

Cliquez pour télécharger LettresFaciles 2011