0 then response.Write(rsNews("MetaTitle")) end if end if %> " /> 0 then response.Write(rsNews("MetaDescription")) end if end if %> " /> 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 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 Releases


<% 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 %>

go to toptop

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