<% nDays = Request.Cookies("NumDays") if Request("cookie") = "true" then Response.Cookies("NumDays") = Request("days") Response.Cookies("NumDays").expires = date + 365 nDays = Request("Days") End If if nDays = "" then nDays = 3650 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, Members.Member_id " 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 = "Producto Nuevo" 'Else isNew = "" 'End If End Function %>
&method=Topic&forum_title=<%=server.Urlencode(Request.QueryString("forum_title"))%>">
Pasillos&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 %>
<% If rs.Eof or rs.Bof then ' No categories found in DB Response.Write "" Else do until rs.Eof '## Display Forum Response.Write "" if rs("T_Status") <> false then Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" rs.MoveNext loop End If %>
No se encontraron Gondolas
" & isNew(rs("T_Last_Post")) & "" & vbcrlf Else Response.Write "Gondola Cerrada" & vbcrlf End if Response.Write "" Response.Write left(rs("T_Subject"), 50) & " " & rs("M_Name") & "" & (rs("T_Replies") + 1)& "" & left(rs("T_Last_Post"), 8) & "

&method=Topic&forum_title=<%=server.Urlencode(Request.QueryString("forum_title"))%>">

<% my_conn.Close set my_conn = nothing %>