Rhnegative

<% Option Explicit Dim ConnectString,sql,conn,rsEntries,count,replies ConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../db/rhdata.mdb") Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnectString sql = "SELECT subject, replies, id FROM MessageBoard WHERE replyto = 0 ORDER BY datetime DESC" Set rsEntries = Server.CreateObject("ADODB.Recordset") rsEntries.Open sql, conn, 3, 3 %> Rhnegative

Konu Başlıkları
Subject Headers

Bütün Konular
All Subjects

Yeni konu / New Subject

<% rsEntries.Movefirst for count = 1 to 30 if rsEntries("replies") = 0 then replies = False else replies = True end if %>

&root=<%=rsEntries("id")%>&replies=<%=replies%>"><%=rsEntries("subject")%> (<%=rsEntries("replies")%> yanıt / replies)

<% rsEntries.Movenext if rsEntries.EOF then exit for end if next %>

<% rsEntries.close set rsEntries = nothing conn.close set conn = nothing %>

Konu Başlıkları Subject Headers

Konu Başlıkları
Subject Headers