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

<% chkmenu=11 %>

<% chkmenu=11 %> <% dim fl fl=request("flag") if fl=1 then set rs = Server.CreateObject("ADODB.RecordSet") rs.open "pressrelease",conn, adOpenForwardOnly,adLockOptimistic,adCmdTable rs.Filter = "prid = " & request("Id") str=request("txtDate") str2=split(str,"/") tstr3 = str2(2) & "-" & str2(1) & "-" & str2(0) response.write(str3) 'response.End() rs("Pressheading") = request("txtHead") rs("keyStatement") =request("txtStm") rs("pDate")= tstr3 rs("prelease") = request("txtDetail") 'strQry="UPDATE news SET newsDate= '" & tstr3 & "', NewsHeading='" & request("txtHead") & "', NewsKeyStatement= '" & request("txtStm") & "', NewsDetail= '" & request("txtDetail") & "' where NewsId = " & request("Id") rs.Update response.Redirect("companypressre.asp") end if %> <% set rs1 = Server.CreateObject("ADODB.RECORDSET") rs1.open "pressrelease",conn, adOpenForwardOnly,adLockOptimistic,adCmdTable rs1.Filter = "prid = " & request("Id") mdate=RS1("pDate") dim str3 if isnull(mdate) then response.write("date is null") else str2=split(mdate,"/") str3 = str2(1) & "/" & str2(0) & "/" & str2(2) end if 'end if %> " onSubmit="return chkValid()" method="post" name="frm12"> Edit Press Release         Date (mm/dd/yyyy)   Head line " size="20" maxlength="50">   Key Statement " size="20" maxlength="150">   Detail <% =RS1("prelease") %> <% 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%>