<%@LANGUAGE="VBSCRIPT"%> <% Dim Recordset1__MMColParam Recordset1__MMColParam = "0" If (Request.QueryString("lcat") <> "") Then Recordset1__MMColParam = Request.QueryString("lcat") End If %> <% Dim Recordset1 Dim Recordset1_numRows Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.ActiveConnection = MM_conn_STRING if lang="fr" then Recordset1.Source = "SELECT liens, nom_liens_fr, decrip_fr FROM mmcanada.liens WHERE categorie_lien = " + Replace(Recordset1__MMColParam, "'", "''") + " ORDER BY ref_lien ASC" elseif lang="en" then Recordset1.Source = "SELECT liens, nom_liens_en, decrip_en FROM mmcanada.liens WHERE categorie_lien = " + Replace(Recordset1__MMColParam, "'", "''") + " ORDER BY ref_lien ASC" elseif lang="ar" then Recordset1.Source = "SELECT liens, nom_liens_ar, decrip_ar FROM mmcanada.liens WHERE categorie_lien = " + Replace(Recordset1__MMColParam, "'", "''") + " ORDER BY ref_lien ASC" elseif lang="ru" then Recordset1.Source = "SELECT liens, nom_liens_ru, decrip_ru FROM mmcanada.liens WHERE categorie_lien = " + Replace(Recordset1__MMColParam, "'", "''") + " ORDER BY ref_lien ASC" elseif lang="ro" then Recordset1.Source = "SELECT liens, nom_liens_ro, decrip_ro FROM mmcanada.liens WHERE categorie_lien = " + Replace(Recordset1__MMColParam, "'", "''") + " ORDER BY ref_lien ASC" elseif lang="esp" then Recordset1.Source = "SELECT liens, nom_liens_esp, decrip_esp FROM mmcanada.liens WHERE categorie_lien = " + Replace(Recordset1__MMColParam, "'", "''") + " ORDER BY ref_lien ASC" else Recordset1.Source = "SELECT liens, nom_liens_fr, decrip_fr FROM mmcanada.liens WHERE categorie_lien = " + Replace(Recordset1__MMColParam, "'", "''") + " ORDER BY ref_lien ASC" end if Recordset1.CursorType = 0 Recordset1.CursorLocation = 2 Recordset1.LockType = 1 Recordset1.Open() Recordset1_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 10 Repeat1__index = 0 Recordset1_numRows = Recordset1_numRows + Repeat1__numRows %> <%=welcome1%>
<%=home%> <%=board%> <%=contact%>
<%=canadal%>
<%=servicel%>
<%=lawyer%>
<%=forml%>
<%=linkl%>
 <%=linkl%>
<%=link2%>
<%=link3%> <%=link4%> <%=link5%>
<%=link6%> <%=link7%> <%=link8%>

<% Recordset1.Close() Set Recordset1 = Nothing %>