<% Dim strNewsId strNewsId = request.QueryString("NewsId") DIM objConn SET objConn = server.CreateObject("ADODB.Connection") objConn.mode = 3 objConn.Open strConnString dim rsNews,sqlNews set rsNews = Server.CreateObject("ADODB.RecordSet") sqlNews = "select top 20 * from News where published='Y' and NewsId in (select distinct NewsId from NewsMap where GroupId= 1 ) order by publishedDate desc" if rsNews.state =1 then rsNews.close rsNews.open sqlNews,objConn,adOpenKeySet, adLockOptimistic %>

Press Releases

<%while NOT rsNews.EOF%>

<% if rsNews("PublshedPlaceId") <>"" and rsNews("PublshedPlaceId") <>0 then dim rsPublishedPlace,sqlPublishedPlace set rsPublishedPlace = Server.CreateObject("ADODB.RecordSet") sqlPublishedPlace = "select * from PublishedPlace where PublishedPlaceId=" & rsNews("PublshedPlaceId") if rsPublishedPlace.state =1 then rsPublishedPlace.close rsPublishedPlace.open sqlPublishedPlace,objConn,adOpenKeySet, adLockOptimistic 'response.Write(rsPublishedPlace("PublishedPlaceName") & ", " ) response.Write(rsPublishedPlace("PublishedPlaceName") & "
" ) end if response.Write( monthname(month(rsNews("PublishedDate"))) &" " & day(rsNews("PublishedDate")) & " " & year(rsNews("PublishedDate"))) %>

<% rsNews.movenext wend %>

more press releasemore on press releases

go to toptop

Home nextMedia Room next Press releases
<% if objConn.state = 1 then objConn.close set objConn = nothing end if %>