» Other Publicaion
Other Publicaion

Other Publicaion
Other Publicaion

To view the downloaded documents, you need AdobePDF Reader.
Get it free Here
<% if Request.QueryString("page")<>"" then nPage=Request.QueryString("page") else nPage=1 End if set dbconn=getDB() DIM sqlStr sqlStr = "SELECT * FROM other_publication order by pdate desc" Set rs = Server.CreateObject("ADODB.Recordset") rs.cursortype=1 rs.Open sqlStr, dbconn if rs.Recordcount>0 then nRecordCnt=rs.recordcount if Request.QueryString("allpage")=1 then nItemsperPage=rs.Recordcount else nItemsperPage=20 end if rs.PageSize=nItemsperPage nPageCount=rs.PageCount rs.AbsolutePage=npage end if %>
 
 Total Publicaions:<%response.write(rs.Recordcount)%>  All
<% if nPageCount >= 2 then%> <% if npage<>1 then%> <%end if%> <%end if%> <% if nPageCount >= 2 then%> <% dim forthis,forthat if (cint(npage) mod 5)=0 then divVal=cint(npage)/5 if divVal<=1 then forthis=1 forthat=cint(forthis)+4 else forthis=((split(divVal,".")(0)-1)*5)+1 forthat=cint(forthis)+4 end if else divVal=cint(npage)/5 if divVal<1 then forthis=1 forthat=cint(forthis)+4 else forthis=((split(divVal,".")(0))*5)+1 forthat=cint(forthis)+4 end if end if if cint(forthat)>=nPageCount then forthat=nPageCount %> <%for j=forthis to forthat%> <% if cint(j)=cint(npage) then%>
<%=j%>
<%else%>
<%=j%>
<%End if %> <%next %> <%end if%> 		<% if nPageCount >= 2 then%> <% if cint(npage)<>cint(nPageCount) then%> <%end if%> <%end if%>
<% if rs.recordcount>0 then i=0 While not rs.EOF and i"" then else %> <% end if i=i+1 rs.MoveNext wend %> <%else%> <%end if%>
Date Topic Author Publication View
<%=rs("pdate")%> <%=rs("pevent")%> <%=rs("author")%> <%=rs("publication")%> <% if rs("pdffile")<>"" then %>" title="<%=rs("pevent")%>" target="_blank"> <%=rs(" title="<%=rs("pevent")%>" width="26" height="26" border="0" /> <%end if if rs("single_image")<>"" then %>" target="_blank"><%=rs(" title="<%=rs("pevent")%>" width="26" height="26" border="0" /> <% end if%> <% if rs("htmllink")<>"" then %> " target="_blank"><%=rs(" title="<%=rs("pevent")%>" width="26" height="26" border="0" /> <% end if%>
Publicaions are not Found
 
  <% if nPageCount >= 2 then%> <% if npage<>1 then%> <%end if%> <%end if%> <% if nPageCount >= 2 then%> <% if (cint(npage) mod 5)=0 then divVal=cint(npage)/5 if divVal<=1 then forthis=1 forthat=cint(forthis)+4 else forthis=((split(divVal,".")(0)-1)*5)+1 forthat=cint(forthis)+4 end if else divVal=cint(npage)/5 if divVal<1 then forthis=1 forthat=cint(forthis)+4 else forthis=((split(divVal,".")(0))*5)+1 forthat=cint(forthis)+4 end if end if if cint(forthat)>=nPageCount then forthat=nPageCount %> <%for j=forthis to forthat%> <% if cint(j)=cint(npage) then%>
<%=j%>
<%else%>
<%=j%>
<%End if %> <%next %> <%end if%> 		<% if nPageCount >= 2 then%> <% if cint(npage)<>cint(nPageCount) then%> <%end if%> <%end if%>