<%@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]
  Members Only
  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
  <% If (News.Fields.Item("NewsByline").Value) <> "" Then %> <% End If %> <% If (News.Fields.Item("NewsLeadin").Value) <> "" Then %> <% End If %>
<%=(News.Fields.Item("NewsTitle").Value)%>
Date: <%= DoDateTime((News.Fields.Item("NewsDate").Value), 2, -1) %>
By: <%=(News.Fields.Item("NewsByline").Value)%>
Country: <%=(News.Fields.Item("NewsCountry").Value)%>
<%=(News.Fields.Item("NewsLeadin").Value)%>
<% If (News.Fields.Item("NewsPublic").Value) OR (Session("MM_Username") <> "") Then %>

<%=(News.Fields.Item("NewsDetail").Value)%>

<% ElseIf Session("MM_Username") = "" Then %>

Members Only, please login to read this article

<% End If %>
 
[an error occurred while processing this directive]

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