<%
action = request.querystring("logout")
if action="true" then
Session("mid")=""
Session("username")=""
end if
mdatenow =right(("20" & (year(now()))),4) & right(("00" & (month(now()))),2) & right(("00" & (day(now()))),2)
dtm = mid(mdatenow,5,2)
if dtm = "01" then
blogmonth = "Jan"
end if
if dtm = "02" then
blogmonth = "Feb"
end if
if dtm = "03" then
blogmonth = "March"
end if
if dtm = "04" then
blogmonth = "April"
end if
if dtm = "05" then
blogmonth = "May"
end if
if dtm = "06" then
blogmonth = "June"
end if
if dtm = "07" then
blogmonth = "July"
end if
if dtm = "08" then
blogmonth = "Aug"
end if
if dtm = "09" then
blogmonth = "Sep"
end if
if dtm = "10" then
blogmonth = "Oct"
end if
if dtm = "11" then
blogmonth = "Nov"
end if
if dtm = "12" then
blogmonth = "Dec"
end if
%>
<%
towner = Request.form("towner")
towner = Request("towner")
t_id = Request("t_id")
s_id = Request("s_id")
if s_id <> "" then
Set rs = Server.CreateObject("ADODB.Recordset")
str = "select * from blogger inner join subject on blogger.s_id=subject.s_id where blogger.s_id = '" & s_id & "'"
rs.Open str,DBConn,adOpenDynamic
if not rs.EOF then
towner1 = rs("tlink")
end if
rs.Close
end if
if t_id <> "" then
Set rs = Server.CreateObject("ADODB.Recordset")
str = "select * from blogger inner join subject on blogger.s_id=subject.s_id where t_id = '" & t_id & "'"
rs.Open str,DBConn,adOpenDynamic
if not rs.EOF then
towner = rs("towner")
end if
rs.Close
end if
if towner1 <> "" then
str = "select * from blogger inner join subject on blogger.s_id=subject.s_id where subject.tlink = '" & towner1 & "' order by t_id desc"
else
if towner = "" then
str="select * from blogger inner join subject on blogger.s_id=subject.s_id where blogger.register = 'Y' order by t_id desc"
else
str = " SELECT * " & _
" FROM blogger inner join subject on blogger.s_id=subject.s_id " & _
" WHERE ((subject.tlink) like '%" & towner & "%') " & _
" OR ((towner) like '%" & towner & "%') " & _
" OR ((blogmonth) like '" & towner & "') " & _
" OR ((mdate) like '%" & towner & "%') " & _
" order by t_id desc "
end if
end if
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open str,DBConn,adOpenDynamic
rctr = rs.RecordCount
if not rs.EOF then
c = 1
%>
<%
Do while not rs.EOF
register = rs("register")
mdate = rs("mdate")
mdate1 = mid(mdate,7,2)
mdate2 = mid(mdate,1,4)
Set rss = Server.CreateObject("ADODB.Recordset")
SQL = "Select * from blogger where m_id = '" & rs("m_id")& "' and s_id = '" & rs("s_id") & "' and towner <> '" & rs("towner") & "' "
rss.Open SQL,DBConn,adOpenDynamic
rctr = rss.RecordCount
if not rss.EOF then
rctr = rss.RecordCount
end if
rss.Close
if (c mod 2) <> 0 then
%>
<%
else
%>
<% end if %>
<% =rs("tlink") %> ( <%=rs("blogmonth")& " " & mdate1 & " , " & mdate2%> at <%=rs("rtime")%>)
|
<%if t_id <> "" then%> <%=rs("tmessage")%><%end if%><%if t_id = "" then%> <%=mid(rs("tmessage"),1,150) %>.......<%end if%>
<%if rs("register") = "Y" then%>Posted By<%end if%><%if rs("register") = "N" then%>Commented By<%end if%> <% =rs("towner") %>
<%if register = "Y" then%>>Read Details Comments (<%=rctr%>) <%end if%>Create New Blog
|
<%
rs.MoveNext
c= c+1
Loop
rs.Close
%>
|
<%
else
%>
<%if towner <> "" or t_id <> "" or s_id <> "" then%>
<%Response.write " Sorry No Blog found
" %>
<%else%>
<%Response.write " Sorry no blog found, Currently there is no blog in the blogger
To create a new blog please click on 'Create New Blog' (only administrator can create new blog)
" %>
<%end if%>
To create new blog click Create New Blog
|
<%end if
%>
|
|
Spotlight:
Transforming Students into Learners Using Classroom Assessment - Practice Fair
June 18, 2008
Physical & Health Education Institute
Fall - August 26, September 22, October 28 November 21 & December 9, 2008
|