<%
CritPrim = Request.QueryString("C1")
CCritPrim = Request.QueryString("CC1")
CritSecond = Request.QueryString("C2")
CCritSecond= Request.QueryString("CC2")
CritTert = Request.QueryString("C3")
Dernier = Request.QueryString("C4") 'valorisé apres saisie de 3 critères
' Si aucun critère saisie, redirection vers liste alphabétique ________________
If CritPrim = "Choisir un critère" Then
Response.Redirect("listealpha.htm")
End if
' Si abandon en cours saisie 2ème critère, retour à la saisie du 1er __________
'If CritTert = "Revenir" Then 'valorisé après saisie 2 critères
' Response.Redirect("collect.asp")
'End if
' Recherche si nécessaire du code critère correspondant au 1er libellé sélectionné __________
If CritPrim <> "" And CCritPrim = "" Then
fp_sQry = "select idcritere from criteres where libelle ='"& CheckString(CritPrim) &"'"
set fp_rs = CreateObject("ADODB.Recordset")
fp_rs.Open fp_sQry, "DSN=cdg82"
CCritPrim = fp_rs("idcritere")
fp_rs.Close
set fp_rs = Nothing
End If
' Recherche si nécessaire du code critère correspondant du 2ème libellé sélectionné _________
If CritSecond <> "Choisir un critère" and CritSecond <> "Saisir" and CritSecond <> "Voir" and CCritSecond = "" and CCritPrim <> "" Then
fp_sQry = "select idcritere from criteres where idcriteresup = "& CCritPrim &" and libelle = '"& CheckString(CritSecond) &"'"
set fp_rs = CreateObject("ADODB.Recordset")
fp_rs.Open fp_sQry, "DSN=cdg82"
CCritSecond = fp_rs("idcritere")
fp_rs.Close
set fp_rs = Nothing
End If
' Demande résultat après saisie du 1er critère ________________________________
If CritSecond = "Voir" Then
RedirUrl = "listethema.asp?C1="&Server.URLEncode(CritPrim)&"&CC1="&Server.URLEncode(CCritPrim)
Response.Redirect(RedirUrl)
End if
' Demande résultat après saisie du 2ème critère ou abandon saisie 2ème critère ______________
If CritTert = "Voir" Or CritSecond = "Choisir un critère" Then
RedirUrl = "listethema.asp?C1="&Server.URLEncode(CritPrim)&"&CC1="&Server.URLEncode(CCritPrim)&"&C2="&Server.URLEncode(CritSecond)&"&CC2="&Server.URLEncode(CCritSecond)
Response.Redirect(RedirUrl)
End if
' Si abandon en cours saisie 3ème critère, retour à la saisie du 2ème _______________________
If Dernier = "Revenir" Then
CritSecond = "Saisir"
RedirUrl = "collect.asp?C1="&Server.URLEncode(CritPrim)&"&CC1="&Server.URLEncode(CCritPrim)&"&C2="&Server.URLEncode(CritSecond)
Response.Redirect(RedirUrl)
End if
' Redirection sur liste après saisie des 3 critères _________________________________________
If CritTert <> "Choisir un critère" And CritSecond <> "Choisir un critère" And CritSecond <> "Saisir" And CritTert <> "Saisir" And CritSecond <> "" Then
RedirUrl = "listethema.asp?C1="&Server.URLEncode(CritPrim)&"&CC1="&Server.URLEncode(CCritPrim)&"&C2="&Server.URLEncode(CritSecond)&"&CC2="&Server.URLEncode(CCritSecond)&"&C3="&Server.URLEncode(CritTert)
Response.Redirect(RedirUrl)
End If
%>
Centre de Gestion de la FPT du Tarn et Garonne (82 )Les Communes L'association des Maires
