<%if session("username") = "" then response.Redirect("login.asp") End if set r=Server.CreateObject("ADODB.RECORDSET") r.open "select * from stock where ipo=true",conn,3,2 while not r.eof set rr = Server.CreateObject("adodb.recordset") rr.open "select sum(purchaseprice) as sumofpurchase,sum(totalshares) as totalshare,count(purchaseprice) as countofpurchase from sharestable where stockid="&r("stockid"),conn av = cdbl(rr("sumofpurchase")) / cdbl(rr("totalshare")) r("currentprice") = av r.update r.movenext wend %> Press Releases
<% chkmenu=11 %>
" > <% For I = 1 To request("id").Count id=request("id")(I) tmp="ck_"& id if Request(tmp)="on" then strQry="DELETE FROM pressrelease WHERE prid =" & id conn.Execute strQry end if next %> <% sqlstr = "SELECT * FROM pressrelease order by pDate desc " dim rs set rs = server.CreateObject("ADODB.RecordSet") rs.open sqlstr,conn, adOpenStatic, adLockReadOnly if rs.eof then %> <% else rs.move clng(request("totalchk"))+0,1 %> <% dim chk chk = clng(request("totalchk")) + 0 dim i for i = 1 to 10 if not rs.eof then chk = chk + 1 response.write(" " ) response.write("") RS.MoveNext end if next %> 0 <%else%> <%=request("totalchk")%> <%end if%> " > <%end if%>
<% Response.Write("There are no item to show") %>
Press Releases
Date Press Release Delete
" & rs("pDate") & " " & RS("Pressheading") & "
       
     
disabled <%end if%>> disabled <%end if%> onClick="forward1();return false;">
<% 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%>