<%
CritPrim = Request.QueryString("C1")
CCritPrim = Request.QueryString("CC1")
CritSecond = Request.QueryString("C2")
CCritSecond= Request.QueryString("CC2")
CritTert = Request.QueryString("C3")
Dernier = Request.QueryString("C4")
' recherche du code critère correspondant au 3eme libellé sélectionné
If CritTert <> "Choisir un critère" And CritSecond <> "Choisir un critère" And CritTert <> "" And CritSecond <> "" Then
fp_sQry = "select idcritere from criteres where idcriteresup = "& CCritSecond &" and libelle = '"& CritTert &"'"
set fp_rs = CreateObject("ADODB.Recordset")
fp_rs.Open fp_sQry, "DSN=cdg82"
CCritTert = fp_rs("idcritere")
fp_rs.Close
set fp_rs = Nothing
CritTert = ""
End If
%>
Liste des collectivités répondant à la requête
Revenir à la recherche
D'un "clic", visitez
virtuellement une commune.
|
Collectivité
|
Description
|
Situation
|
<%
If IsEmpty(CCritTert) Then
If IsEmpty(CCritSecond) Then
If IsEmpty(CCritPrim) Then
fp_sQry = "select NomHtml, Commentaire, LienHt1, LienHtCarte, SiteWeb from collectivites "& _
"order by NomHtml"
Else
fp_sQry = "select NomHtml, Commentaire, LienHt1, LienHtCarte, SiteWeb from collectivites, collectivitescriteres "& _
"where collectivitescriteres.idcollect = collectivites.idcollect "& _
"and collectivitescriteres.idcritere = "& CCritPrim & " order by NomHtml"
End if
Else
fp_sQry = "select NomHtml, Commentaire, LienHt1, LienHtCarte, SiteWeb from collectivites, collectivitescriteres "& _
"where collectivitescriteres.idcollect = collectivites.idcollect "& _
"and collectivitescriteres.idcritere = "& CCritSecond & " order by NomHtml"
End If
Else
fp_sQry = "select NomHtml, Commentaire, LienHt1, LienHtCarte, SiteWeb from collectivites, collectivitescriteres "& _
"where collectivitescriteres.idcollect = collectivites.idcollect "& _
"and collectivitescriteres.idcritere = "& CCritTert & " order by NomHtml"
End if
fp_sNoRecords = "Aucune collectivité ne correspond aux critères saisies"
Let1Prec = ""
On Error Resume Next
set fp_rs = CreateObject("ADODB.Recordset")
If fp_iMaxRecords <> 0 Then fp_rs.MaxRecords = fp_iMaxRecords
fp_rs.Open fp_sQry, "DSN=cdg82"
' Vérifie les cas sans enregistrement
If fp_rs.EOF And fp_rs.BOF Then
Response.Write fp_sNoRecords
Else
' Démarre une boucle While pour inclure chaque enregistrement dans l'ensemble de résultat
Do Until fp_rs.EOF
If Not IsEmpty(fp_rs) And Not (fp_rs Is Nothing) Then
NomCommune = CStr(fp_rs("NomHtml"))
Let1Cour = Left(NomCommune,1)
LienSite = CStr(fp_rs("LienHt1"))
LienCarte = CStr(fp_rs("LienHtCarte"))
Comment = CStr(fp_rs("Commentaire"))
SiteW = CStr(fp_rs("SiteWeb"))
End If
%>
| <%
If Let1Cour <> Let1Prec Then
Let1Prec = Let1Cour
%>
<%
End If
If SiteW Then
%> <%=NomCommune%>
|
<%=Comment%> |
|
<%else%> <%=NomCommune%>
| |
|
<%
End If
' Ferme la boucle de recherche d'enregistrements
fp_rs.MoveNext
Loop
End If
fp_rs.Close
set fp_rs = Nothing
%>
