| |
<%
if Request.Cookies("user")("truelogin") = "true" then
Dim ruadmin
ruadmin = Request.Cookies("user")("ruadmin")
%>
<%
else
%>
<%
end if
%>
| | |
<%
Dim oRs, qry, count, commid, mscount
count = 0
Set oRs = Server.CreateObject("ADODB.Recordset")
if ruadmin = "yes" then
qry = "SELECT id,fdate,fuid,fmessage,fccount FROM btable ORDER BY id DESC"
else
qry = "SELECT id,fdate,fuid,fmessage,fccount FROM btable WHERE fshow='yes' ORDER BY id DESC"
end if
oRs.Open qry, oConn
While NOT oRs.EOF
if int(count/2) = (count/2) then
response.write("")
else
response.write(" ")
end if
for each x in oRs.Fields
if ruadmin = "yes" then
if x.name = "id" then
response.write("")
commid = x.value
end if
else
if x.name = "id" then
response.write("| | ")
commid = x.value
end if
end if
if x.name = "fdate" then
response.write("
Date: " & x.value & "
")
end if
if x.name = "fuid" then
response.write("Posted By: " & ucase(x.value) & "
")
end if
if x.name = "fmessage" then
response.write("" & x.value & "
")
end if
if x.name = "fccount" then
if vartype(x.value) = 1 then
mscount = 0
else
mscount = int(x.value)
end if
response.write("This message has " & mscount & " comments. View/Post Comments
")
end if
next
response.write(" | ")
oRs.Movenext
response.write("
| ")
count = count + 1
wend
set oRs = nothing
set oConn = nothing
%>
|
|