<%@LANGUAGE="VBSCRIPT"%> <% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_IACCDA_STRING 'MM_IACCDA_STRING = "Provider=SQLOLEDB;Initial Catalog=IADA_CC_DB;Data Source=192.168.1.15;Persist Security Info=True;User ID=iaccdadw5929;Password=7sYywwm~lovt" 'MM_IACCDA_STRING = "Provider=SQLOLEDB;Initial Catalog=IADA_CC_DB;Data Source=192.168.1.15;Persist Security Info=True;User ID=iaccdadw5929;Password=7sYywwm~lovt" MM_IACCDA_STRING = Application("MM_IACCDA_STRING") %> <% Dim News__MMColParam News__MMColParam = "1" If (Request.QueryString("NewsID") <> "") Then News__MMColParam = Request.QueryString("NewsID") End If %> <% Dim News Dim News_numRows Set News = Server.CreateObject("ADODB.Recordset") News.ActiveConnection = Application("MM_IACCDA_STRING") News.Source = "SELECT * FROM dbo.News WHERE NewsID = " + Replace(News__MMColParam, "'", "''") + " ORDER BY NewsDate DESC" News.CursorType = 0 News.CursorLocation = 2 News.LockType = 1 News.Open() News_numRows = 0 %> :: News Detail ::
[an error occurred while processing this directive]
  Noteworthy News
  Collectors Corner
  "" Then %>javascript:openChat('Chat/Login.asp','Chat');<% Else %>#<% End If %>" class="navleftlink">Live Chat
  Office of Ethics

<% Response.Write(Ad.GetAdvertisement("adside.txt")) %>
  «« Go Back
 
[an error occurred while processing this directive]

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