<!--#include file="boardconn.asp"-->
<%
dim foolcat,title
dim js,strsql
set js = server.CreateObject("ADODB.RecordSet")
strSql = "select top 10 * from QiQiBoy_Topic_Disp where ParentID=0 and Status=5 Order By TopicID Desc"
set js = conn.Execute (StrSql)
do until js.eof
title=""&js("Title")&" - "&js("DateAndTime")&""
if len(title)>35 then
title=left(title,35)+"..."
else
title=title
end if

tmp = "http://" & request.servervariables("SERVER_NAME") & _
left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("/js/dot_js.asp"))
foolcat = foolcat + "·<a href="&tmp&"/p.asp?/="&js("RootID")&">" & title & "</a><br>"
i=i+1
if i>=10 then exit do
js.MoveNext
loop
foolcat = "" + foolcat + ""
foolcat = "document.write('" & foolcat & "')"
FolderPath = Server.MapPath("../")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(FolderPath&"\dot_js.js")
fout.WriteLine foolcat

fout.close
set fout = nothing
js.close
set js = nothing
conn.close
set conn=nothing
%>