<% Dim strMediaId strMediaId = request.QueryString("MediaId") DIM objConn SET objConn = server.CreateObject("ADODB.Connection") objConn.mode = 3 objConn.Open strConnString dim rsMedia,sqlMedia set rsMedia = Server.CreateObject("ADODB.RecordSet") sqlMedia = "select top 20 * from Media where published='Y' and MediaId in (select distinct MediaId from MediaMap where GroupId= 1 ) order by publishedDate desc" if rsMedia.state =1 then rsMedia.close rsMedia.open sqlMedia,objConn,adOpenKeySet, adLockOptimistic DIM rsMediaPublicationMap,sqlMediaPublicationMap set rsMediaPublicationMap = Server.CreateObject("ADODB.RecordSet") %>

Calsoft in the Media

<% dim rsPublication,sqlPublication set rsPublication = Server.CreateObject("ADODB.RecordSet") while NOT rsMedia.EOF sqlMediaPublicationMap = "select PublicationName from PublicationMedia where PublicationId in (select Distinct PublicationId from MediaPublicationMap where MediaId=" & rsMedia("MediaId") & ")" if rsMediaPublicationMap.state =1 then rsMediaPublicationMap.close rsMediaPublicationMap.open sqlMediaPublicationMap,objConn,adOpenKeySet, adLockOptimistic %>

<% response.Write( monthname(month(rsMedia("PublishedDate"))) &" " & day(rsMedia("PublishedDate")) & ", " & year(rsMedia("PublishedDate"))) %>

<% if rsMedia("ExtLinkFlag") = "Y" then response.write(rsMedia("Title") ) else %> " rel="gb_page_fs[]" title="<%response.write(rsMedia("Title"))%>"> <%response.write(rsMedia("Title"))%> <%end if%> <% if rsMediaPublicationMap.recordcount >=1 then rsMediaPublicationMap.movefirst if rsMediaPublicationMap.recordcount >=2 then response.write("
-") for i = 1 to rsMediaPublicationMap.recordCount response.Write( ""&rsMediaPublicationMap("PublicationName")) if i < rsMediaPublicationMap.recordcount then response.write(", ") rsMediaPublicationMap.Movenext response.Write("") next else for i = 1 to rsMediaPublicationMap.recordCount response.write("
- "&rsMediaPublicationMap("PublicationName")) if i < rsMediaPublicationMap.recordcount then response.write(", ") rsMediaPublicationMap.Movenext response.Write("") next end if end if %>

<% rsMedia.movenext wend %>

calsoft business strategymore on calsoft in the media

go to toptop

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