<% 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.Open "Driver={Microsoft Access Driver (*.mdb)};" & _ "Dbq=" & Server.MapPath(".") & "..\..\db\CalsoftGroup.mdb;" & _ "Uid=;" & _ "Pwd=;" 'objConn.mode = 3 dim rsNews,sqlNews set rsNews = Server.CreateObject("ADODB.RecordSet") sqlNews = "select top 8 * from News where published='Y' and NewsId in (select distinct NewsId from NewsMap where GroupId= 3 ) 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 8 * from media where published='Y' and MediaId in (select distinct MediaId from MediaMap where GroupId= 3 ) 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 %>

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") & "" ) end if response.Write( monthname(month(rsNews("PublishedDate"))) &" " & day(rsNews("PublishedDate")) & " " & year(rsNews("PublishedDate"))) %>

<% rsNews.movenext wend %>

Calsoft Labs in Media