<%
Function maketailjs(url,ver,bbsname)
    copyyear=year(now())
    tailnl="document.write('<div align=""center"">')"& vbCrLf
    tailnl=tailnl&"document.write('<table width=99% align=center cellpadding=2 cellspacing=0 style=\""margin-top: 5px;border-top:1px solid #B3DDF8;\"">')"& vbCrLf
    tailnl=tailnl&"document.write('<tr><td height=8 bgcolor=""#F8F8F8""></td></tr>')"& vbCrLf
	tailnl=tailnl&"document.write('<tr>')"& vbCrLf
    tailnl=tailnl&"document.write('<td height=20 bgcolor=""#F8F8F8"">')"& vbCrLf 
    tailnl=tailnl&"document.write('<div align=center>Powered by <a href="""&url&""" target=_blank>"&ver&"</a> Code &copy; 2005-"&copyyear&" FTBBS.</div>')"& vbCrLf
    tailnl=tailnl&"document.write('</td>')"& vbCrLf
    tailnl=tailnl&"document.write('</tr>')"& vbCrLf    
    tailnl=tailnl&"document.write('<tr>')"& vbCrLf 
    tailnl=tailnl&"document.write('<td height=20 bgcolor=""#F8F8F8"">')"& vbCrLf 
    tailnl=tailnl&"document.write('<div align=center> Copyright &copy; 2005-"&copyyear&" "&bbsname&",All Rights Reserved.</div>')"& vbCrLf
    tailnl=tailnl&"document.write('</td>')"& vbCrLf
    tailnl=tailnl&"document.write('</tr>')"& vbCrLf
    tailnl=tailnl&"document.write('<tr>')"& vbCrLf 
    tailnl=tailnl&"document.write('<td height=8 bgcolor=""#F8F8F8"" valign=""middle"">')"& vbCrLf 
    tailnl=tailnl&"document.write('</td>')"& vbCrLf
    tailnl=tailnl&"document.write('</tr>')"& vbCrLf
    tailnl=tailnl&"document.write('</table>')"& vbCrLf
    tailnl=tailnl&"document.write('</div>')"& vbCrLf
	dhurl="../inc/htmtail.js"
    myFile = Server.MapPath(dhurl)

    Const ForReading = 1
    Const Forwriting = 2
    Const ForAppending = 8
    Set fileStreamObj = CreateObject("Scripting.FileSystemObject")
    fileStreamObj.CreateTextFile(myFile)
    set textStream = fileStreamObj.OpenTextFile(myFile,ForWriting,False)
    textStream.Write(tailnl)
    textStream.Close()
End Function
Function maketailhtm(url,ver,bbsname)
    copyyear=year(now())
    tailnl="<div align=""center"">"& vbCrLf
    tailnl=tailnl&"<table width=99% align=center cellpadding=2 cellspacing=0 style=""margin-top: 8px;border-top:1px solid #B3DDF8;"">"& vbCrLf
    tailnl=tailnl&"<tr><td height=8 class=""maintbtr3""></td></tr>"& vbCrLf
	tailnl=tailnl&"<tr>"& vbCrLf
    tailnl=tailnl&"<td height=20 class=""maintbtr3"">"& vbCrLf 
    tailnl=tailnl&"<div align=center>Powered by <a href="""&url&""" target=_blank>"&ver&"</a> Code &copy; 2005-"&copyyear&" FTBBS.</div>"& vbCrLf
    tailnl=tailnl&"</td>"& vbCrLf
    tailnl=tailnl&"</tr>"& vbCrLf    
    tailnl=tailnl&"<tr>"& vbCrLf 
    tailnl=tailnl&"<td height=20 class=""maintbtr3"">"& vbCrLf 
    tailnl=tailnl&"<div align=center> Copyright &copy; 2005-"&copyyear&" "&bbsname&",All Rights Reserved.</div>"& vbCrLf
    tailnl=tailnl&"</td>"& vbCrLf
    tailnl=tailnl&"</tr>"& vbCrLf
    tailnl=tailnl&"<tr>"& vbCrLf 
    tailnl=tailnl&"<td height=8 class=""maintbtr3"" valign=""middle"">"& vbCrLf 
    tailnl=tailnl&"</td>"& vbCrLf
    tailnl=tailnl&"</tr>"& vbCrLf
    tailnl=tailnl&"</table>"& vbCrLf
    tailnl=tailnl&"</div>"& vbCrLf
	dhurl="../inc/bbstail.htm"
    myFile = Server.MapPath(dhurl)

    Const ForReading = 1
    Const Forwriting = 2
    Const ForAppending = 8
    Set fileStreamObj = CreateObject("Scripting.FileSystemObject")
    fileStreamObj.CreateTextFile(myFile)
    set textStream = fileStreamObj.OpenTextFile(myFile,ForWriting,False)
    textStream.Write(tailnl)
    textStream.Close()
End Function
Function copyright(url,ver,bbsname)
    copyyear=year(now())
    tailnl="<div class=""Copyright""><div align=""center"">"& vbCrLf
    tailnl=tailnl&"Powered by <a href="""&url&""" target=""_blank"">"&ver&"</a> Code &copy; 2005-"&copyyear&" FTBBS.<br />"& vbCrLf
    tailnl=tailnl&"Copyright &copy; 2005-"&copyyear&" "&bbsname&", All Rights Reserved."& vbCrLf
    tailnl=tailnl&"</div></div>"& vbCrLf
	dhurl="../copyright.htm"
    myFile = Server.MapPath(dhurl)

    Const ForReading = 1
    Const Forwriting = 2
    Const ForAppending = 8

    Set fileStreamObj = CreateObject("Scripting.FileSystemObject")
    fileStreamObj.CreateTextFile(myFile)
    set textStream = fileStreamObj.OpenTextFile(myFile,ForWriting,False)
    textStream.Write(tailnl)
    textStream.Close()
End Function
%>