<%
Canton = Request.QueryString("C1")
%>
liste des collectivités répondant à la requête
Revenir à la recherche
D'un "clic", visitez
virtuellement une commune.
|
Collectivité
|
Description
|
Situation
|
<%
fp_sQry = "select NomHtml, Commentaire, LienHt1, LienHtCarte, SiteWeb from collectivites "& _
"where Canton = '"& Canton &"' order by NomHtml"
fp_sNoRecords = "Aucune collectivité pour ce canton"
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
%>
