<% 'response.Write(IsObject(rsNews)) 'response.End() if flgFound ="true" then if IsObject(rsNews) and rsNews.recordcount<>0 then response.Write(rsNews("MetaTitle")) end if end if %> <% if flgFound ="true" then if IsObject(rsNews) and rsNews.recordcount<>0 then response.Write(rsNews("MetaDescription")) end if end if %> <% if flgFound ="true" then if IsObject(rsNews) and rsNews.recordcount<>0 then response.Write(rsNews("MetaKeyword")) end if end if 'response.End() %> <% Dim strNewsId,flgFound strNewsId = request.QueryString("NewsId") DIM objConn SET objConn = server.CreateObject("ADODB.Connection") objConn.mode =3 'objConn.Open strConnString objConn.Open "Driver={Microsoft Access Driver (*.mdb)};" & _ "Dbq=" & Server.MapPath(".") & "..\..\db\CalsoftGroup.mdb;" & _ "Uid=;" & _ "Pwd=;" flgFound ="false" dim rsNews,sqlNews set rsNews = Server.CreateObject("ADODB.RecordSet") sqlNews = "select * from News where NewsId =" & strNewsId 'response.Write(IsNumeric(strNewsId) &"
") 'response.Write( strNewsId <> "" ) 'response.Write(rsNews.recordcount) 'response.End() if strNewsId <> "" and IsNumeric(strNewsId) then if rsNews.state =1 then rsNews.close rsNews.open sqlNews,objConn,adOpenKeySet, adLockOptimistic dim rsPRDetails,sqlPRDetails set rsPRDetails = Server.CreateObject("ADODB.RecordSet") sqlPRDetails = "select * from PRDetails" if rsPRDetails.state =1 then rsPRDetails.close rsPRDetails.open sqlPRDetails,objConn,adOpenKeySet, adLockOptimistic flgFound ="true" end if %>

Press Release

<% if flgFound ="true" then if IsObject(rsNews) and rsNews.recordcount<>0 then %>

<%response.write(rsNews("Title"))%>

<% Dim strContent strContent = rsNews("content") strContent = Replace(strContent,"''","'") response.Write(strContent) %>

For further details,

<% response.Write(rsPRDetails("PRDetails")) %>   <% if rsNews("RelatedInfo")<>"" then %>

Related Media Info

<% response.Write(rsNews("RelatedInfo")) end if %>   <% end if end if %>

top

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