<%
Function Friend()
Dim FHtml
Set rs=Server.CreateObject("Adodb.Recordset")
Sqltext="Select * From [Link] Where [Show]=1 Order by ID Desc"
rs.Open Sqltext,Conn,1,1
Do While Not (rs.Eof or rs.Bof)
FHtml = FHtml & "<a href=" &rs("Link")& " title=" &rs("Note")& " target='_blank'>" &rs("Name")& "</a> | "
rs.MoveNext
Loop
Friend=FHtml
rs.Close
Set rs=Nothing
End Function
Dim BottomHtml
BottomHtml=application("JaBottom")
BottomHtml=Replace(BottomHtml,"{ÓÑÇéÁ¬½Ó}",Friend())
Response.Write BottomHtml
%>