%@LANGUAGE="VBSCRIPT"%>
<%
Dim rs_glossaire
Dim rs_glossaire_numRows
Set rs_glossaire = Server.CreateObject("ADODB.Recordset")
rs_glossaire.ActiveConnection = MM_cn_STRING
rs_glossaire.Source = "SELECT * FROM tglossaire_en"
rs_glossaire.CursorType = 0
rs_glossaire.CursorLocation = 2
rs_glossaire.LockType = 1
rs_glossaire.Open()
rs_glossaire_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rs_glossaire_numRows = rs_glossaire_numRows + Repeat1__numRows
%>
SIT-Systèmes Informatiques Tunisie
|
 |
Standard courses |
 |
|
| |
|
|
|
|
|
Glossary |
| |
<%
While ((Repeat1__numRows <> 0) AND (NOT rs_glossaire.EOF))
%>
| <%=(rs_glossaire.Fields.Item("titre").Value)%> |
<%=(rs_glossaire.Fields.Item("texte").Value)%> |
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs_glossaire.MoveNext()
Wend
%>
| |
|
| © Copyrights 2004 Systèmes Informatiques Tunisie |
| |
|
<%
rs_glossaire.Close()
Set rs_glossaire = Nothing
%>