<!--#include file ="connection.inc" -->
<!--#include file ="ADOVBS.INC" -->
<%
	set rs = Server.CreateObject("ADODB.RECORDSET")
		rs.open "select * from stock",conn,3,2
	rs.filter = " userpetid = " & session("petshare")
	if not rs.eof then
		Response.Redirect("muchostock.asp")
	end if 
	rs.addnew
	'	strsql = "insert into ipotable(pricepershare,userpetid,availableshares,txtdescription) values ("
	rs("issuedprice") = request("pricepershare") 
	rs("currentprice") = request("pricepershare") 
	rs("userpetid") = session("petshare") 
	rs("availableshares") = request("publicshares") 
	rs("totalshares") = request("totalshares") 
	rs("txtdescription") = request("txtdescription") 
	rs("ipodate") = Date 
	
	rs.update
	
	strsql = "insert into sharestable(Stockid,totalshares,userpetid,purchasedate,purchaseprice) values ("
	strsql = strsql & rs("Stockid") &","
	strsql = strsql & request("ceoshares") &","
	strsql = strsql & rs("userpetid") & ",'"
	strsql = strsql & date & "',"
	strsql = strsql & request("pricepershare")  
	strsql = strsql & ")"
	
	conn.execute strsql
	Response.Redirect("muchostock.asp")
%>