<%Option Explicit%>
<%
Dim dbLinks, rsLinks
If OpenDataBase(dbLinks, Application("alakazoo_ConnectionString"), Application("alakazoo_RuntimeUserName"), Application("alakazoo_RuntimePassword")) Then
SQL = "SELECT Links.ID, Links.Name, Links.Link, Links.wwwOrNot, Links.Description" & Session("Langue") & " As Description, LinksCategory.Category" & Session("Langue") & " As Category FROM LinksCategory INNER JOIN Links ON LinksCategory.ID = Links.Category Order By LinksCategory.Category" & Session("Langue") & " , Links.Link"
If OpenRecordSet(dbLinks, rsLinks, SQL, adOpenForwardOnly, adLockReadOnly) Then
Dim Buff, LastCategory, Description
If rsLinks.EOF Then
If LCase (Session("Langue")) = "anglais" Then
Response.Write "Sorry, no links in database
"
Else
Response.Write "Désolé, aucun lien dans la base de données
"
End If
Else
Response.Write ""
Do While Not rsLinks.EOF
If LastCategory <> rsLinks("Category") Then
If LastCategory <> "" Then
Response.Write "| |
"
End If
LastCategory = rsLinks("Category")
Response.Write "| " & rsLinks("Category") & " |
"
End If
Description = rsLinks("Description")
Response.Write "| | " & rsLinks("Name") & " | " & Description & " |
"
rsLinks.MoveNext
Loop
Response.Write "
"
End If
Call CloseRecordSet (rsLinks)
Call CloseDataBase (dbLinks)
End If
End If
%>