Redirection impossible

Résolu
cs_tommie Messages postés 40 Date d'inscription jeudi 18 mars 2004 Statut Membre Dernière intervention 11 octobre 2005 - 16 sept. 2005 à 10:40
cs_tommie Messages postés 40 Date d'inscription jeudi 18 mars 2004 Statut Membre Dernière intervention 11 octobre 2005 - 16 sept. 2005 à 14:38
Bonjour j'ai un probleme avec une redirection d'une page ASP à une autre
en fait a partir d'une page ou j'affiche des infos concernant un enfant, je peux envoyer vers une page de traitement ou je vais pouvoir inserer des données le concernant dans une table mais le probleme que j'ai c'est qu'apres mon traitement et bien je redirige vers la premiere page mais le soucis c'est que je ne recupere pas les données de l'enfant en question. je n'arrive pas a repasser les infos les concernant
comment faire
merci de votre aide

je vous join les pages concernés: (saisie_enfant1.asp et saisie_enfant_traitement.asp)

page saisie_enfant1.asp :

<!--#include file= "session-verif.asp"-->
<%
Session.LCID = 1036 ' gestion des dates en francais


'connexion avec la base de données
set conn=Application("connexion")

cleenfant = request.querystring("cleenfant")
response.write cleenfant
numenfant = request.querystring("numenfant")
response.write numenfant



sql_verif="select * from enfant where matricule='"& request("cleenfant") &"' and numenfant='"& request("numenfant") &"'"
set verif=conn.execute(sql_verif)
'response.write sql_verif


if not verif.eof then
nomenfant = verif("nomenfant")
prenomenfant = verif("prenomenfant")
end if



sql_scolarite="select S.*, ET.idetablissementscolaire, ET.libetablissementscolaire, R.idregime, R.libregime, ST.idsituationetude, ST.libsituationetude, C.idclassescolaire, C.libelleclasse from scolarite S, Etablissementscolaire ET, RegimeScolaire R, situationetudes ST, Classescolaire C where S.matricule='"& request("cleenfant") &"' and S.numenfant='"& request("numenfant") &"' and S.idetablissementscolaire = ET.idetablissementscolaire(+) and S.idregime = R.idregime(+) and S.idsituationetude = ST.idsituationetude(+) and S.idclassescolaire = C.idclassescolaire(+)"


sql_scolarite sql_scolarite & " and S.idscolarite (SELECT MAX(S2.idscolarite) FROM Scolarite S2 WHERE S.matricule = S2.matricule)"


set scolarite=conn.execute(sql_scolarite)
'response.write sql_scolarite


if not scolarite.eof then
idscolarite = scolarite("idscolarite")
bourseetat = scolarite("bourseetat")
boursedept = scolarite("boursedept")
boursecapi = scolarite("boursecapi")
bourseIREC = scolarite("bourseIREC")
bourseAutre = scolarite("bourseAutre")
bourseSLV = scolarite("bourseSLV")
acompte = scolarite("acompte")
solde = scolarite("solde")
libetablissementscolaire = scolarite("libetablissementscolaire")
libregime = scolarite("libregime")
libsituationetude = scolarite("libsituationetude")
libelleclasse = scolarite("libelleclasse")
observation = scolarite("observation")
statut = scolarite("statut")
alternance = scolarite("alternance")
salarie = scolarite("salarie")
apprentissage = scolarite("apprentissage")
redoublement = scolarite("redoublement")
chgtorientation = scolarite("chgtorientation")
cotissecu = scolarite("cotissecu")
specialite = scolarite("specialite")
natureclasse = scolarite("natureclasse")


end if


%>
<html>
<head>
<title>Saisie Enfants</title>
<style type="text/css" media="screen">
@import "screen.css";
</style>
<script language="javascript">
function message()
{
return window.confirm("Attention: Vous allez modifier cet enregistrement ?");
}
</script>
<script language="javascript">
function logout()
{
if (window.confirm("Voulez vous quitter Bourses d'études ?") == true )
{
opener=self;
window.parent.close();
}
}
</script>
<script>
function limite(zone,max)
{
if(zone.value.length>=max){zone.value=zone.value.substring(0,max);}
}
</script>
</head>

Saisie des données de l'enfant

[BE_menu_general.asp Retour au panneau d'actions] | [javascript:logout() Quitter l'application]



<%
if request.querystring("flag")=1 then
response.write "Le champ de l'année scolaire n'a pas été renseigné !"
end if
%>



<%
if request.querystring("flag")=2 then
response.write "Cette année scolaire existe déjà !"
end if
%>


<form name=traitement method="post" action="BE_saisie_enfant_traitement.asp">
" size="20">


&nbsp;&nbsp;&nbsp;&nbsp;
Matricule :,
" size="20" readonly="1" style="font-size: 8pt; height:25" onfocus="this.className='input_focus';" onblur="this.className='';">,

Nom :,
" readonly="1" size="35" style="font-size: 8pt; height:25" onfocus="this.className='input_focus';" onblur="this.className='';">,

----

&nbsp;&nbsp;&nbsp;&nbsp;
Prénom :,
" readonly="1" size="35" style="font-size: 8pt; height:25" onfocus="this.className='input_focus';" onblur="this.className='';">,

Numéro :,
" readonly="1" size="10" style="font-size: 8pt; height:25" onfocus="this.className='input_focus';" onblur="this.className='';">,
Année scolaire :,
" maxlength="4" size="10" style="font-size: 8pt; height:25" onfocus="this.className='input_focus';" onblur="this.className='';">

&nbsp;&nbsp;&nbsp;&nbsp; Bourse État :,
" size="20" style="font-size: 8pt; height:25" onfocus="this.className='input_focus';" onblur="this.className='';">,

Bourse Département :,
" size="20" style="font-size: 8pt; height:25" onfocus="this.className='input_focus';" onblur="this.className='';">,

----

&nbsp;&nbsp;&nbsp;&nbsp; Bourse CAPI :,
" size="20" style="font-size: 8pt; height:25" onfocus="this.className='input_focus';" onblur="this.className='';">,

Bourse IREC :,
" size="20" style="font-size: 8pt; height:25" onfocus="this.className='input_focus';" onblur="this.className='';">,

----

&nbsp;&nbsp;&nbsp;&nbsp; Bourse Autre :,
" size="20" style="font-size: 8pt; height:25" onfocus="this.className='input_focus';" onblur="this.className='';">,

Bourse Solvay :,
" size="20" style="font-size: 8pt; height:25" onfocus="this.className='input_focus';" onblur="this.className='';">,

----

&nbsp;&nbsp;&nbsp;&nbsp; Acompte :,
" size="20" style="font-size: 8pt; height:25" onfocus="this.className='input_focus';" onblur="this.className='';">,

Solde :,
" size="20" style="font-size: 8pt; height:25" onfocus="this.className='input_focus';" onblur="this.className='';">

&nbsp;&nbsp;Établissement
scolaire :,
<select name="liste_etablissement" id="liste_etablissement" style="color: #000000; font-size: 8pt; background-color: #D5EAFF; height:30">
<option value="">----</option>
<%

sql="select distinct * from etablissementscolaire order by libetablissementscolaire"
set liste_etablissement=Conn.Execute(sql)

%>
<%
while not liste_etablissement.eof
if CStr(liste_etablissement("libetablissementscolaire")) = libetablissementscolaire then
select_item = "selected"
else
select_item = ""
end if
%>

<option <%=select_item%> value="<%=liste_etablissement("idetablissementscolaire")%>"><%=liste_etablissement("libetablissementscolaire")%>&nbsp;&nbsp;<%=liste_etablissement("iddepartement")%>&nbsp;&nbsp;<%=liste_etablissement("ville")%></option>
<%liste_etablissement.movenext
wend
liste_etablissement.close
set liste_etablissement=NOTHING

%>
</select>,

Régime :,
<select name="liste_regime" id="liste_regime" style="color: #000000; font-size: 8pt; background-color: #D5EAFF; height:30">
<option value="">----</option>
<%

sql="select distinct * from regimescolaire order by libregime"
set liste_regime=Conn.Execute(sql)

%>
<%
while not liste_regime.eof
if CStr(liste_regime("libregime")) = libregime then
select_item = "selected"
else
select_item = ""
end if
%>

<option <%=select_item%> value="<%=liste_regime("idregime")%>"><%=liste_regime("libregime")%></option>
<%liste_regime.movenext
wend
liste_regime.close
set liste_regime=NOTHING

%>
</select>,

----

&nbsp;
Situation études :,
<select name="liste_etude" id="liste_etude" style="color: #000000; font-size: 8pt; background-color: #D5EAFF; height:30">
<option value="">----</option>
<%

sql="select distinct * from situationetudes order by libsituationetude"
set liste_etude=Conn.Execute(sql)

%>
<%
while not liste_etude.eof
if CStr(liste_etude("libsituationetude")) = libsituationetude then
select_item = "selected"
else
select_item = ""
end if
%>

<option <%=select_item%> value="<%=liste_etude("idsituationetude")%>"><%=liste_etude("libsituationetude")%></option>
<%liste_etude.movenext
wend
liste_etude.close
set liste_etude=NOTHING

%>
</select>,

Classe scolaire :,
<select name="liste_classe" id="liste_classe" style="color: #000000; font-size: 8pt; background-color: #D5EAFF; height:30">
<option value="">----</option>
<%

sql="select distinct * from classescolaire order by libelleclasse"
set liste_classe=Conn.Execute(sql)

%>
<%
while not liste_classe.eof
if CStr(liste_classe("libelleclasse")) = libelleclasse then
select_item = "selected"
else
select_item = ""
end if
%>

<option <%=select_item%> value="<%=liste_classe("idclassescolaire")%>"><%=liste_classe("libelleclasse")%></option>
<%liste_classe.movenext
wend
liste_classe.close
set liste_classe=NOTHING

%>
</select>



&nbsp;&nbsp;
Observations :,
<textarea name="observation" rows="4" cols="115" onKeyUp="limite(this,255);" onKeyDown="limite(this,255);" style="font-size: 9pt; font-family: MS Sans Serif; background-color: #D5EAFF" onfocus="this.className='input_focus';" onblur="this.className='';"><%=observation%></textarea>



&nbsp;&nbsp;
Statut :,
>,
&nbsp;&nbsp;
Salarié :,
>,

----

&nbsp;&nbsp;
Alternance :,
>,
&nbsp;&nbsp;
Apprentissage :,
>,

----

&nbsp;&nbsp;
Redoublement :,
>,
&nbsp;&nbsp;
Changement d'orientation :,
>,

----

&nbsp;&nbsp;
Cotisation Sécu :,
>




&nbsp;&nbsp;
Spécialité :,
<textarea name="specialite" rows="3" cols="40" onKeyUp="limite(this,60);" onKeyDown="limite(this,60);" style="font-size: 9pt; font-family: MS Sans Serif; background-color: #D5EAFF" onfocus="this.className='input_focus';" onblur="this.className='';"><%=specialite%></textarea>,
&nbsp;&nbsp;
Nature classe :,
<textarea name="natureclasse" rows="3" cols="40" onKeyUp="limite(this,60);" onKeyDown="limite(this,60);" style="font-size: 9pt; font-family: MS Sans Serif; background-color: #D5EAFF" onfocus="this.className='input_focus';" onblur="this.className='';"><%=natureclasse%></textarea>



</form>



<% sql_histo = "SELECT * FROM Scolarite where matricule='"& request("cleenfant") &"' and numenfant='"& request("numenfant") &"' order by idscolarite DESC"
set histo = conn.Execute(sql_histo)
if not(histo.EOF) then
idscolarite = histo("idscolarite")
end if
%>



<hr color="#000000" size="4"><hr color="#000000" size="4">




<center>


<% if(idscolarite<>\"\") then %>
----

Historique des études,

<% Do While Not(histo.EOF) %>
----

" size="11" readonly="1" style="font-size: 9; background-color:#D5EAFF; height:22" >,
<% histo.MoveNext
loop%>

<% else %>

Pas d'historique des études,
<%end if%>
<%histo.close
set histo=NOTHING
%>

</center>

</html>

page saisie_enfant_traitement.asp:

<!-- #include file ="fonctions.asp"-->
<% response.buffer=true %>
<%
'connexion avec la base de données
set conn=Application("connexion")
cleenfant = request.form("cleenfant")
numenfant = request.form("numenfant")
idscolarite = request.form("idscolarite")
response.write cleenfant
response.write numenfant
response.write idscolarite



bourseEtat = request.form("bourseEtat")
bourseEtat = replace(bourseEtat,",",".")
bourseDept = request.form("bourseDept")
bourseDept = replace(bourseDept,",",".")
bourseCAPI = request.form("bourseCAPI")
bourseCAPI = replace(bourseCAPI,",",".")
bourseIREC = request.form("bourseIREC")
bourseIREC = replace(bourseIREC,",",".")
bourseAutre = request.form("bourseAutre")
bourseAutre = replace(bourseAutre,",",".")
bourseSLV = request.form("bourseSLV")
bourseSLV = replace(bourseSLV,",",".")
acompte = request.form("acompte")
acompte = replace(acompte,",",".")
solde = request.form("solde")
solde = replace(solde,",",".")



if (Request.Form("bouton") = "Enregistrer") then
if request.form("idscolarite") = "" then
response.redirect("BE_saisie_enfant1.asp?flag=1")
'&clenfant="&cleenfant&numenfant="&numenfant")
end if



sql="SELECT * FROM scolarite WHERE matricule = '"&request("cleenfant") &"' AND numenfant = '"&request("numenfant") &"' AND idscolarite='" & Request("idscolarite") & "' "
set liste_annee=Conn.Execute(sql)
'response.write sql
If NOT liste_annee.eof then
response.redirect("BE_saisie_enfant1.asp?flag=2")


Else


sql="insert into scolarite(matricule, numenfant, idscolarite, bourseEtat, bourseDept, bourseCAPI, bourseIREC, bourseAutre, bourseSLV, acompte, solde, observation, specialite, natureclasse, statut, alternance, apprentissage, salarie, redoublement, chgtorientation, cotissecu, idEtablissementScolaire, idClasseScolaire, idRegime, idSituationEtude) values(" & request("cleenfant") &", " & request("numenfant") &",'" & dosql(Request("idscolarite")) & "', '" & dosql(bourseEtat) & "', '" & dosql(bourseDept) & "', '" & dosql(bourseCAPI) & "', '" & dosql(bourseIREC) & "', '" & dosql(bourseAutre) & "', '" & dosql(bourseSLV) & "', '" & dosql(acompte) & "', '" & dosql(solde) & "', '" & dosql(request("observation")) & "', '" & dosql(request("specialite")) & "', '" & dosql(request("natureclasse")) & "', '" & dosql(request("statut")) & "', '" & dosql(request("alternance")) & "', '" & dosql(request("apprentissage")) & "', '" & dosql(request("salarie")) & "', '" & dosql(request("redoublement")) & "', '" & dosql(request("chgtorientation")) & "', '" & dosql(request("cotissecu")) & "', '" & dosql(request("liste_etablissement")) & "', '" & dosql(request("liste_classe")) & "', '" & dosql(request("liste_regime")) & "', '" & dosql(request("liste_etude")) & "' )"
set liste_annee=Conn.Execute(sql)
response.redirect("BE_saisie_enfant1.asp")
'response.write sql
end if
end if


%>

1 réponse

cs_tommie Messages postés 40 Date d'inscription jeudi 18 mars 2004 Statut Membre Dernière intervention 11 octobre 2005
16 sept. 2005 à 14:38
response.redirect("BE_saisie_enfant.asp?flag=1&cleenfant="&cleenfant&"&numenfant="&numenfant)
3
Rejoignez-nous