Liens Utiles
<%
'
fp_sQry = "SELECT LienSite.NomLien, LienSite.AdresseLien, LienSite.Commentaire, ThemeLien.NomTheme "& _
"FROM ThemeLien INNER JOIN LienSite ON ThemeLien.IdTheme = LienSite.IdTheme "& _
"ORDER BY ClassementTheme, LienSite.ClassementSite"
fp_sNoRecords = "Aucun lien défini"
ThemePrec = ""
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
NomLien = CStr(fp_rs("NomLien"))
Theme = CStr(fp_rs("NomTheme"))
ThemeCour = Theme
LienSite = CStr(fp_rs("AdresseLien"))
Comment = CStr(fp_rs("Commentaire"))
End If
If ThemeCour <> ThemePrec Then
ThemePrec = ThemeCour
%>
| <%=Theme%> |
|
|
|
<% End If %>
|
<%=NomLien%> |
<%=Comment%> |
|
|
|
<%
' Ferme la boucle de recherche d'enregistrements
fp_rs.MoveNext
Loop
End If
fp_rs.Close
set fp_rs = Nothing
%>
