<%
if session("userid")<>"" then
logtype="Log out"
else
logtype="Sign in"
end if
msg=""
newbook=request.querystring("new")
catname=request.querystring("catname")
cat_type="Lab"
if catname<>"" then
else
catname="Instruments and Experimental Materials"
end if
subcatname=request.querystring("subcatname")
if subcatname="" then
set recs=Server.CreateObject("ADODB.Recordset")
sql = "select * from products where cat_name='"&catname&"' order by sub_cat_name"
recs.open sql,conn,3
if recs.eof<>true then
subcatname=recs("sub_cat_name")
else
msg="Books Not Available for this category"
end if
end if
cpage=request.querystring("cpage")
spage=request.querystring("spage")
''''response.write "cpage= "&cpage
if cpage="" then
cpage=1
end if
if spage="" then
spage=10
end if
set rs=Server.CreateObject("ADODB.Recordset")
if newbook="" then
sql = "select * from products where cat_name='"&catname&"' and sub_cat_name='"&subcatname&"'order by srno asc"
rs.open sql,conn,3
if rs.eof<>true then
rs.pagesize=spage
rs.absolutepage=cINT(cpage)
else
msg="Books Not Available for this category"
end if
else
sql = "select * from products where new_book='Yes' "
rs.open sql,conn,3
subcatname=""
if rs.eof<>true then
rs.pagesize=spage
rs.absolutepage=cINT(cpage)
else
msg="Books Not Available for this category"
end if
end if
set rec=Server.CreateObject("ADODB.Recordset")
sql = "select * from category where cat_type='Lab'"
rec.open sql,conn,3
set reccart=Server.CreateObject("ADODB.Recordset")
sql = "select count (prod_code) as citem from cart where userid='"&session("userid")&"'"
reccart.open sql,conn,3
if reccart.eof<>true then
citem=reccart("citem")
else
citem=0
end if
%>
JustBooks: Book Shopping
<%
set sbpr=Server.CreateObject("ADODB.Recordset")
sql = "select * from products where cat_name='"&rec("cat_name")&"'"
sbpr.open sql,conn,3
%>
<%if sbpr.eof<>true then
%>
<%if catname=rec("cat_name") then %>
<%
set subc=Server.CreateObject("ADODB.Recordset")
sql = "select * from sub_cat where cat_name='"&catname&"' order by sub_cat_name"
subc.open sql,conn,3
do while subc.eof<>true
set sbp=Server.CreateObject("ADODB.Recordset")
sql = "select * from products where cat_name='"&catname&"' and sub_cat_name='"&subc("sub_cat_name")&"'"
sbp.open sql,conn,3
%>
<%if sbp.eof<>true then%>
Educational Technology lab
efficiently organizes the whole range of
teachers learning materials to the students and
teachers and thus enhancng them to reach their
curriculum goals.
<%end if%>
Projectors
Overhead
Projector
Slide
Projector
Programmed Instructional Material
Linear
Programmer on Direct Indirect Speech (
LPDIS )
Linear
Programmer on Active - Passive Voice (
LPAPV )
Branching
Programmer on Active Prssive Voice (
BPAPV )
Branching
Programmer on Direct Indirect Speech (BPDIS
)
Psychological and
Educational Charts
Audio
Visual Aids
Models of
Teaching
Types of
Modern Indian Education
History
and Development of Indian Education
School of
Psychology
Theories
of Personality
Theories
of Intelligence
Theories
of Learning
Major
Systems of Philosophy
School of
Indian Philosophy
Transparencies ( Each
set of 30 )
Teacher
in Emerging Indian Society
Educational Psychology
Development of Indian Education
Educational Techology
Psychlogical Tests and Apparatus
Teaching
Aids
Personlity Assessment- TAT
Personality Assessment- CAT
Research
Methodology
Acation
Research
Teaching
of Social Science
Teaching
of Science
Environmental Education
Educational CD's
Education
Psychology
Psychological Tests and Apparatus
Educational Technology
Personality Assessment TAT and CAT
Teacher
in Emerging Indian Society
History
and Development of Indian Education
Teaching
Aids
Flash Cards ( Each set
of 12 Cards )
Teaching
Aids
Eminest -
( a )I ndian ( b ) Weatern
Psychological Apparatus
Health
Education
Eminest
Psychologists
Supporting Material of
E. T. Lab
Advanced
Taxonomies of Educational Objective
Educational Technology
Information Communication Technology in
Teacher Education
Information Communication Technology
Modern
Teaching Aids
Modern
Teaching Strategy and Styles
Models of
Teaching
Educating
and Learning Through Computer
The
Writing Coach 0A /0B / 0X /1 /2 /3 /4 /5
Kit for Rs.
32,000/-
<%=msg%>
<%rsc=0%>
<%do while rs.eof<>true and rsc
<%rsc=rsc+1%>
