<% pStr = "private, no-cache, must-revalidate" Response.ExpiresAbsolute = #2000-01-01# Response.AddHeader "pragma", "no-cache" Response.AddHeader "cache-control", pStr %> <% DIM objConn SET objConn = server.CreateObject("ADODB.Connection") 'if objConn.state = 1 then objConn.close objConn.mode = 3 objConn.Open strConnString 'objConn.mode = 3 dim rsNews,sqlNews set rsNews = Server.CreateObject("ADODB.RecordSet") sqlNews = "select top 3 * 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 dim rsMedia,sqlMedia set rsMedia = Server.CreateObject("ADODB.RecordSet") sqlMedia = "select top 3 * from media where published='Y' and MediaId in (select distinct MediaId from MediaMap where GroupId= 1 ) order by publishedDate desc" DIM rsMediaPublicationMap,sqlMediaPublicationMap set rsMediaPublicationMap = Server.CreateObject("ADODB.RecordSet") 'response.Write(sqlMedia) 'response.End() if rsMedia.state =1 then rsMedia.close rsMedia.open sqlMedia,objConn,adOpenKeySet, adLockOptimistic %>

Media Room

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