<%
nDays = Request.Cookies("NumDays")
if Request.form("cookie") = "true" then
Response.Cookies("NumDays") = Request.Form("days")
Response.Cookies("NumDays").expires = date + 365
nDays = Request.Form("Days")
End If
if nDays = "" then
nDays = 30
End If
defDate = dateadd("d", -cint(nDays), now)
dim dia
dim mes
dim ano
busca = 1
i=1
do while (i<12)
test = mid(defDate, i, 1)
if test = "/" then
if busca = 1 then
dia = i
busca = 2
elseif busca = 2 then
mes = i
busca = 3
end if
end if
if test = " " then
fin = i
i = 12
end if
i=i+1
loop
valDia = left(defDate, dia - 1)
valMes = mid(defDate, dia + 1, mes - (dia + 1))
valAno = mid(defDate, mes + 1, 4)
kk = left(defDate, fin)
defDate = valMes & "/" & valDia & "/" & valAno & " 00:00:00"
'defDate = "7/11/2001 00:00:00 "
'## Open DataBase Connection
'## (Change to include file soon!)
set my_conn= Server.CreateObject("ADODB.Connection")
my_Conn.Open ConnString
'## Get all topicsFrom DB
'strSql ="SELECT Topics.T_Status, Topics.Forum_ID, Topics.Topic_ID, Topics.T_subject,Topics.T_Mail, Topics.T_Originator, Topics.T_Replies, Topics.T_Last_Post, Members.M_Name "
'strSql = strSql & "FROM Members INNER JOIN Topics ON Members.Member_id = Topics.T_Originator "
'strSql = strSql & "where Topics.Forum_ID = " & Request.QueryString("forum_id") & "and T_Last_Post >#" & defDate & "# order by Topics.T_Last_Post DESC"
strSql ="SELECT Topics.T_Status, Topics.Forum_id, Topics.Topic_ID, Topics.T_subject, Topics.T_Mail, Topics.T_Originator, Topics.T_Replies, Topics.T_Last_Post, Members.M_Name "
strSql = strSql & "FROM Members INNER JOIN Topics ON Members.Member_id = Topics.T_Originator "
strSql = strSql & "WHERE (((Topics.Forum_id)= " & Request.QueryString("forum_id") & " ) AND ((Topics.T_Last_Post)>#" & defDate & "#)) ORDER BY Topics.T_Last_Post DESC;"
'strSql = strSql & "WHERE (((Topics.Forum_id)= 1 ) AND ((Topics.T_Last_Post)>#6/29/2001 20:43:25#)) ORDER BY Topics.T_Last_Post DESC;"
set rs = my_conn.Execute (StrSql)
'## Function to display new icon
Function isNew(dt)
if datediff("s", session("last_here_date"), dt) > 1 then
isNew = "
"
Else
isNew = "
"
End If
End Function
%>
Foros | &forum_title=<%=server.Urlencode(Request.QueryString("forum_title"))%>"><%=Request.QueryString("forum_title")%>
<%
if ndays=1 then
response.write "Del último día"
else
response.write "De los últimos " & ndays & " días"
end if
%>
&method=Topic&forum_title=<%=server.Urlencode(Request.QueryString("forum_title"))%>">
Crear un tema nuevo
| |
Tema |
Autor |
Respuestas |
Ultimo
Envío |
<%
If rs.Eof or rs.Bof then ' No categories found in DB
Response.Write "| No se encontraron Temas |
"
Else
do until rs.Eof '## Display Forum
Response.Write ""
if rs("T_Status") <> false then
Response.Write "| " & isNew(rs("T_Last_Post")) & " | " & vbcrlf
Else
Response.Write " | " & vbcrlf
End if
Response.Write ""
Response.Write left(rs("T_Subject"), 50) & " | "
Response.Write "" & rs("M_Name") & " | "
Response.Write "" & rs("T_Replies") & " | "
Response.Write "" & rs("T_Last_Post") & " | "
Response.Write "
"
rs.MoveNext
loop
End If
%>
Mostrar
Todos los Foros | &method=Topic&forum_title=<%=server.Urlencode(Request.QueryString("forum_title"))%>">Crear
un Tema Nuevo