Select a pet for which you wish to buy food for

<% set rs = server.CreateObject("ADODB.recordset") sqlstr = "select * from userpetTable where status = 'Grown Up' and userid = " & session("userid") & " order by petid" rs.open sqlstr,conn if not rs.eof then comp1 = rs("petid") end if %> <%while not rs.eof%> "> <%=rs("userpetName")%> <%rs.moveNext wend rs.close%>     ');">