<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% forum = CLASSIFIEDID pg = request.querystring("pg") if pg = vbnullstring then pg = 1 sql = "select * from Forum where forumID = " & forum set rsf = conn.execute(sql) forumname = rsf("forumName") session("sourcepage") = "classified.asp" sub GenerateThread() sql = "select * from Thread where forumID = " & forum & " order by threadStickie Desc, threadDate Desc" set rs = conn.execute(sql) response.write("") response.write("") response.write("") response.write("") response.write("") if not rs.eof then if pg > 1 then for j = 1 to (pg - 1) * THREAD_PER_PAGE rs.movenext next end if n = 0 do while not rs.eof response.write("") response.write("") if minute(rs("threadDate")) < 10 then zero="0" else zero = "" end if response.write("") rs.movenext n = n + 1 if n = THREAD_PER_PAGE then exit do loop end if response.write("
SujetDate
" & rs("threadName") & "" & day(rs("threadDate")) & "-" & month(rs("threadDate")) & "-" & year(rs("threadDate"))) response.write("
") response.write("
") sql = "select count(threadID) as MaxCount from Thread where forumID = " & forum set rs = conn.execute(sql) c = rs("MaxCount") p = c \ THREAD_PER_PAGE if c mod THREAD_PER_PAGE > 0 then p = p + 1 if p > 1 then response.write("Pages :") for j = 1 to p if j = clng(pg) then response.write("  " & j & "") else response.write("  " & j & "") end if next end if response.write("
") end sub %>

<%= forumname %>
 
<% GenerateThread() %>