<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from leaveword where reID='0' order by ID desc","dsn=gvoptonew",3,3
if rs.eof=false then
rs.pagesize=10
rs.absolutepage=1
end if
%>
<%
public function HtmlOut(str)
dim guest
if isEmpty(str) or str="" then
htmlOut=""
exit function
end if
guest=str
guest=Replace(Guest," ","””")
guest=Replace(Guest," ","`nbsp;")
Guest=server.htmlencode(Guest)
guest=Replace(Guest,"`nbsp;"," ")
guest=Replace(Guest,vbcrlf," ")
HtmlOut=guest
end function
%>
