<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% set rs=server.CreateObject("adodb.recordset") set conn=server.CreateObject("adodb.connection") 'conn.open g_strConnectionString 'rs.open "select * from tm_banner where isDeleted='N' and isArchived='N' and placement=28 and bannerdateupto>=getdate()",conn,3,3 set rs = Nothing set rs= Exec_pro_banner_select(lngRetVal,strErrDesc) if rs.recordcount<>0 then url=rs("url") imagepath=rs("imagepath") imagename=rs("imagename") end if rs.close 'CODE FOR PAGE DISPLAY Pagesize = session("PageSize") if pagesize = "" then pagesize = request("pagesize") if pagesize = "" then pagesize = 4 pagesize = cint(pagesize) Pageno = request("Pageno") if Pageno = "" then Pageno = request("Pageno") if Pageno = "" then Pageno = 1 pageno = cint(pageno) FromDate=request("FromDate") ToDate=request("ToDate") if FromDate="" or FromDate="--" then FromDate="1900-01-01" end if if ToDate="" or ToDate="--" then ToDate="9999-12-31" end if %> National Liver Foundation - Liver News
<%=session("Message")%>
 LIVER NEWS
<% 'strSql="select news_id,headline,replace(convert(varchar(11),news_date,106),' ','-')as news_date" & _ ' " from tm_news where isDeleted='N' and isArchived='N' " 'strSql=strSql & " and Convert(datetime,replace(convert(varchar(11),news_date,106),' ','-'),106)" & _ ' " between '" & FromDate & "' and '" & ToDate & "' order by news_date desc" ' rs.open strSql,conn,3,3 set rs = Nothing set rs =Exec_pro_news_select(FromDate, ToDate,strErrDesc) %> <% totalRecords = rs.Recordcount PageNo = request("pageno") rs.PageSize = pagesize totalPages = rs.Pagecount pgsize = rs.Pagesize 'response.write "pg" & PageNo if TRIM(PageNo) = "" or TRIM(PageNo) = "0" or isnull(Pageno) then pageno=1 else If cint(pageno) <= rs.pagecount then rs.AbsolutePage = cint(pageno) else pageno = rs.pagecount rs.AbsolutePage = rs.Pagecount end if end if ctr = 1 While not rs.eof and cint(ctr) <= rs.pagesize ctr = ctr+1 %> <%rs.movenext wend%> <%rs.close%>
Heading Date
" class="grayUnderline"><%=replace(rs("headline"),"`","'")%>
<%if totalRecords <> "" then%> <%response.write showpagelink (10,totalrecords,totalpages,pageno,"news.asp?FromDate=" &FromDate & "&ToDate=" & ToDate & "&pagesize=" & pgsize,pgsize)%> <%end if%>

Search for current updates
From / / To / /

If at any point of time, you wish to unsubscribeto the Liver Capsule, type in below and click on submit
Unsubscribe :

Click here to view the news archive

<%if imagepath<>"" then%> > <%end if%>
<%session("Message")=""%>