<% chkmenu=3 %>  
<% chkmenu=11 %>
" >
  Company Press Releases
<% dim rs,i set rs = Server.CreateObject("Adodb.RecordSet") rs.Open "select * from pressrelease where stockid="&request("id"), conn, 3, 2 if not rs.eof then %> <% dim aa aa = 0 string1 = Array(1,2,3,4,5) %> <% if not session("totalnews") > rs.RecordCount then session("totalnews") = session("totalnews") + request("total") else session("totalnews") = rs.RecordCount - 5 end if if session("totalnews") < rs.RecordCount then if session("totalnews") < 1 then session("totalnews") = 0 else rs.Move session("totalnews"),1 end if diff = rs.RecordCount - session("totalnews") if diff > 4 then val = 4 else val = diff - 1 end if for i = session("totalnews") to session("totalnews") + val %> <% aa = aa + 1 rs.MoveNext %> <% next end if end if %>
DateKey StatementClick for more detail
<%=rs("pDate")%> <%=rs("Pressheading")%>
  <%=rs("keyStatement")%> "> More Detail

disabled<%end if%> onClick="return value_backward()"> = rs.RecordCount then %> disabled<%end if%> onClick="return value_forward()">

<% if not session("username")="" then %>
<% if not session("petitemid")="" then set rsp =Server.CreateObject("adodb.recordset") rsp.open "SELECT UserPetTable.userpetName, PetTable.petName, UserPetTable.energylevel, PetTable.smallimg FROM PetTable INNER JOIN UserPetTable ON PetTable.petId = UserPetTable.petId WHERE (((UserPetTable.userPetId)=" & session("petitemid") & "));",conn if not rsp.eof then %>
" width="34" height="34">
Pet Name <%=rsp("userpetname")%>
Pet Type <%=rsp("petname")%>
Energy Level <%=rsp("energylevel")%>
 
<%end if end if %>
<%set rsi = Server.CreateObject("adodb.recordset") rsi.open "SELECT sharestable.*, UserPetTable.Companyname FROM UserPetTable INNER JOIN sharestable ON UserPetTable.userPetId = sharestable.userpetid WHERE (((UserPetTable.userpetid)=" & session("petitemid")&"));",conn ,adOpenStatic, adLockReadOnly if not rsi.eof then rsi.move clng(request("total"))+0,1 %> 0 <%else%> <%=request("total")%> <%end if%> " > <%for i=0 to 4 if not rsi.eof then %> <% rsi.movenext end if next%>
Company Name Shares qty
<% set rsstockcompany = Server.CreateObject("ADODB.RECORDSET") rsstockcompany.open "SELECT UserPetTable.Companyname FROM UserPetTable INNER JOIN stock ON UserPetTable.userPetId = stock.userpetid WHERE (((stock.Stockid)="&rsi("stockid")&"));",conn if not rsstockcompany.eof then Response.Write(rsstockcompany("Companyname")) end if %> <%=rsi("totalshares")%>
<%=total %>
<%if rsi.recordcount > 5 then%> Back Next <%end if%> <%end if%>  
<% end if %>