<% if session("username")="" then Response.Redirect("login.asp") end if if session("UserId")="" then Response.Redirect("login.asp") end if %> <%if session("username") = "" then response.Redirect("login.asp") End if %> <% Function RandomNumber(intHighestNumber) Randomize RandomNumber = Int(Rnd * intHighestNumber) + 1 End Function set rsdecrease = server.CreateObject("ADODB.RECORDSET") rsdecrease.open "select * from city",conn,2,2 while not rsdecrease.eof p_inc_dec = RandomNumber(40) 'Response.Write("
Percentage : " & p_inc_dec) rsdecrease("percentage") = p_inc_dec - 20 rsdecrease.update rsdecrease.movenext wend rsdecrease.close %> Select a Category
 
<% chkmenu=9 %>
 <%=session("cityname")%>

<% dim rs,i set rs = Server.CreateObject("Adodb.RecordSet") rs.Open "categoryTable", conn, adOpenStatic, adLockReadOnly, adCmdTable rs.Filter = "selfFunctionality <= 0" if not rs.eof then %> <% dim aa aa = 0 string1 = Array(1,2,3,4,5,6) strcat = Array(1,2,3,4,5,6) %> <% if not session("totalcat") > rs.RecordCount then session("totalcat") = session("totalcat") + request("total") else session("totalcat") = rs.RecordCount - 6 end if if session("totalcat") < rs.RecordCount then if session("totalcat") < 1 then session("totalcat") = 0 else rs.Move session("totalcat"),1 end if diff = rs.RecordCount - session("totalcat") if diff > 5 then val = 5 else val = diff - 1 end if for i = session("totalcat") to session("totalcat") + val %> <% aa = aa + 1 if aa = 3 then Response.Write("") end if rs.MoveNext %> <% next end if end if %>
  <% str = "#" & rs("itemtypename") str1 = rs("itemTypename") string1(aa) = "categoryinfo.asp?cat=" & rs("itemtypeid") strcat(aa) = "subcat.asp?cat=" & rs("itemtypeid") & "&catty=" & rs("selfFunctionality") %>   " width="98" height="119" border="1">
> <%=rs("itemTypeName")%>

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

<% 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%>
<%set rsi = Server.CreateObject("adodb.recordset") rsi.open "SELECT itemtable.itemName, PetItemTable.Cost, PetItemTable.quantity FROM (UserPetTable INNER JOIN PetItemTable ON UserPetTable.userPetId = PetItemTable.userpetid) INNER JOIN itemtable ON PetItemTable.itemId = itemtable.itemId 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 total = total + rsi("cost") %> <% rsi.movenext end if next%>
Item Qty Cost
<%=rsi("itemname")%> <%=rsi("quantity")%> <%=rsi("cost")%>
<% set rst = Server.CreateObject("Adodb.Recordset") rst.open "SELECT sum(petitemtable.cost) as total FROM (UserPetTable INNER JOIN PetItemTable ON UserPetTable.userPetId = PetItemTable.userpetid) INNER JOIN itemtable ON PetItemTable.itemId = itemtable.itemId WHERE (((UserPetTable.userPetId)=" & session("petitemid") & "));",conn ,adOpenStatic, adLockReadOnly if not rst.eof then %> Total: <%=rst("total")%> <%end if%>
<%if rsi.recordcount > 5 then%> Back Next <%end if%>  
<%end if%>