<% set rsps = Server.CreateObject("ADODB.Recordset") rsps.open "select * from userpettable",conn while not rsps.eof dte = datediff ("d",Cdate(rsps("laccessdate")),Now) if dte > 0 then dte = clng(rsps("hungerlevel")) + dte * 10 if trim(rsps("status")) = "Grown Up" then conn.execute "update userpettable set strength = 100,hungerlevel = " & dte & " where userpetid = " & rsps("userpetid") END IF if rsps("hungerlevel") >= 100 and not rsps("status") = "Run Away" then conn.execute "update userpettable set status = 'Run Away',deadon= #" & date & "# where userpetid = " & rsps("userpetid") end if if trim(rsps("status")) = "Growing" then diff = datediff ("d",Cdate(rsps("creationDate")),Now) if diff > 13 then conn.execute "update userpettable set status = 'Grown Up',creationdate = #"& date &"# where userpetid = " & rsps("userpetid") end if end if if trim(rsps("status")) = "Run Away" then diff = datediff ("d",Cdate(rsps("deadon")),Now) conn.execute "delete * from weaponpettable where userpetid = " & rsps("userpetid") conn.execute "delete * from petitemtable where userpetid = " & rsps("userpetid") conn.execute "delete * from userBusinessTable where userpetid = " & rsps("userpetid") conn.execute "delete * from stock where userpetid = " & rsps("userpetid") if diff > 7 then conn.execute "delete * from userpettable where userpetid = " & rsps("userpetid") end if end if end if rsps.movenext wend conn.execute "update userpettable set laccessdate = #" & date & "#,energylevel = 100" %>

<% chkmenu=0 %>
Welcome to MuchoPets The greatest virtual pet site on the internet! My name is Fred and I will guide you through your journey here at Muchopets.com Take on one of your fellow Muchopet owners in a battle at the Arena.. Or visit one of the 9 MuchoStores to buy and sell Muchoitems.. Or you can even own your own MuchoBusiness..    Click Here to see how Muchopets began..     We hope you enjoy your time here, and please email any comments to comments@muchopets.com You can use this space to provide your vision statement or explain your site. You can use this space to provide your vision statement or explain your site.