| |
<%select case f
case "m":
sql = "select * from exoflor_article where nid='" & trim(Request.QueryString("id")) & "'"
set rs = conn.execute(sql)
tempmessage = replace(trim(rs.fields("message")),"~&~","'")
tempurl = trim(rs.fields("url"))
tempurltitle = trim(rs.fields("urltitle"))
%>
|
Articles |
| <%=trim(rs.fields("title"))%> |
| <%=tempmessage%> |
| <%=tempurltitle%> |
| <%=trim(rs.fields("postedby"))%> posted on <%=changedateformat(rs.fields("posteddate"))%>
|
|
|
|
<%case "l":
sql = "select nid,title,posteddate from exoflor_article order by posteddate desc"
set rs = conn.execute(sql)
%>
| Article
List |
| SNo |
Title |
Posted
On |
<%i = 0
while rs.eof = false
i = i + 1%>
| <%=i%> |
<%=trim(rs.fields("title"))%> |
<%=changedateformat(trim(rs.fields("posteddate")))%> |
<%rs.movenext
wend%>
|
|
<%end select%>
|
