<%@LANGUAGE="VBSCRIPT"%> <% Dim rsData Dim rsData_cmd Dim rsData_numRows Set rsData_cmd = Server.CreateObject ("ADODB.Command") rsData_cmd.ActiveConnection = MM_Conn_STRING rsData_cmd.CommandText = "SELECT * FROM cie.oocie ORDER BY Oid ASC" rsData_cmd.Prepared = true Set rsData = rsData_cmd.Execute rsData_numRows = 0 %> <% Dim rsNews Dim rsNews_cmd Dim rsNews_numRows Set rsNews_cmd = Server.CreateObject ("ADODB.Command") rsNews_cmd.ActiveConnection = MM_Conn_STRING rsNews_cmd.CommandText = "SELECT Messages FROM NewsCIE WHERE nId=(select Max(nID) from NewsCIE)" rsNews_cmd.Prepared = true Set rsNews = rsNews_cmd.Execute rsNews_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsData_numRows = rsData_numRows + Repeat1__numRows %> C I E Main Page
AP Logo
Cie Banner
 
 
Click Here thank you
Designed and Developed by IEG
<% rsData.Close() Set rsData = Nothing %> <% rsNews.Close() Set rsNews = Nothing %>