<% sql="select distinct t1.cid,t2.cid,t2.seqno from tblcasestudies t1,tblcategory t2 where t1.fldstatus=0 and t1.cid=t2.cid order by t2.seqno" set rs=conn.execute(sql) %> <% sqlmaxcontact="select max(Id) from tblusers" set rsmaxcontact=conn.execute(sqlmaxcontact) maxidcontact=cint(rsmaxcontact.fields(0)) if(maxidcontact>=1)then sqlcontact="select * from tblusers where id="& maxidcontact set rscontact=conn.execute(sqlcontact) end if %> <% status=request.QueryString("log") if status = "out" then Session("username")="" end if %>
design
master master master master links master master
 
User Name : 
Password : 
 
read
Forgot Password New User
design
header
<% if rs.fields("t1.cid") <> 0 then while(not rs.eof) aaa=rs.fields("t1.cid") sqlcat="select * from tblcategory where cid=" & rs.fields("t1.cid")&" order by seqno desc" set rscat=conn.execute(sqlcat) while (not rscat.eof)%> <% rscat.movenext() wend rs.movenext() wend end if sqlcase="select * from tblcasestudies where cid=0 and sid=0 and fldstatus=0 order by cid desc" set rscase=conn.execute(sqlcase) while (not rscase.eof) %> <% rscase.movenext() wend %>
header );"> <%=rscat.fields("cname")%>
" style="display:none;"> <% //sql1="select distinct(sid) from tblcasestudies where cid=" & rs.fields("t1.cid") //set rs1=conn.execute(sql1) sql1="select distinct t1.sid,t2.sid,t2.seqno from tblcasestudies t1,tblsubcategory t2 where t1.cid=" & rs.fields("t1.cid")&" and t1.sid=t2.sid order by t2.seqno desc" set rs1=conn.execute(sql1) while (not rs1.eof) sqlsubcat="select * from tblsubcategory where sid=" & rs1.fields("t1.sid") set rssubcat=conn.execute(sqlsubcat) while (not rssubcat.eof)%> <% rssubcat.movenext() wend rs1.movenext() wend sqlcase="select * from tblcasestudies where cid=" & rs.fields("t1.cid") & " and sid=0 and fldstatus=0" set rscase=conn.execute(sqlcase) while (not rscase.eof)%> <% rscase.movenext() wend %>

);"> <%=rssubcat.fields("subcatname")%>

" style="display:none;"> <% sqlcase="select * from tblcasestudies where cid=" & rs.fields("t1.cid")& " and sid=" & rs1.fields("t1.sid") & " and fldstatus=0" set rscase=conn.execute(sqlcase) while (not rscase.eof)%> <% rscase.movenext() wend %>
"> <%=rscase.fields("title")%>
"> <%=rscase.fields("title")%>
header "> <%=rscase.fields("title")%>