<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_objConn_STRING MM_objConn_STRING = "dsn=bsei;" %> <% Dim rs_GetLinks Dim rs_GetLinks_numRows Set rs_GetLinks = Server.CreateObject("ADODB.Recordset") rs_GetLinks.ActiveConnection = MM_objConn_STRING rs_GetLinks.Source = "SELECT * FROM News ORDER BY Order_Num ASC" rs_GetLinks.CursorType = 0 rs_GetLinks.CursorLocation = 2 rs_GetLinks.LockType = 1 rs_GetLinks.Open() rs_GetLinks_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_GetLinks_numRows = rs_GetLinks_numRows + Repeat1__numRows %> Business Solutions Enterprises International
 
 
 


Latest News from BSEI!
<% While ((Repeat1__numRows <> 0) AND (NOT rs_GetLinks.EOF)) %>
  • "><%=(rs_GetLinks.Fields.Item("NewsText").Value)%>

    • <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_GetLinks.MoveNext() Wend rs_GetLinks.Close() Set rs_GetLinks = Nothing %>

    BSEI, P.O. Box 833531, Richardson, TX 75083