Paste code

<%
Sub ShowArticles_None()
	%>
	<p>&ETH;&ETH;&deg; &ETH;&acute;&ETH;&deg;&ETH;&frac12;&ETH;&frac12;&Ntilde;‹&ETH;&sup1; &ETH;&frac14;&ETH;&frac34;&ETH;&frac14;&ETH;&micro;&ETH;&frac12;&Ntilde;‚ &Ntilde;€&ETH;&deg;&ETH;&middot;&ETH;&acute;&ETH;&micro;&ETH;&raquo; &ETH;&frac12;&ETH;&micro; &Ntilde;&ETH;&frac34;&ETH;&acute;&ETH;&micro;&Ntilde;€&ETH;&para;&ETH;&cedil;&Ntilde;‚ &ETH;&frac14;&ETH;&deg;&Ntilde;‚&ETH;&micro;&Ntilde;€&ETH;&cedil;&ETH;&deg;&ETH;&raquo;&ETH;&frac34;&ETH;&sup2;.</p>
	<%
End Sub
Sub ShowArticles_Content(id,dt,title,subtitle,info,img,note)
	%>
	<p><%=img%>[<%=Left(dt,10)%>] <a href="<%=location%>?ID=<%=ID%>" target="_blank"><%=title%></a><br><i><%=info%></i><br><%=note%></p>
	<%
End Sub
Sub ShowArticles_Number(path,numID,nGlobal,nLocal,numDT)
	%>
	<div align="center" style="font-size: 11pt; font-weight: bold; color: white; background-color: deepskyblue;">&acirc;„– <%=nLocal%> (<%=nGlobal%>) <%=GetFullDate(numDT)%> <a href="<%=path%>?ID=<%=numID%>">&Acirc;&raquo;</a></div>
	<%
End Sub
Sub ShowArticles_Pages(recsCount,pageCount,pageSize,page)
	Dim i, istart, istop, iflag
	If pageCount > 1 Then
		%><p>&ETH;’&Ntilde;&ETH;&micro;&ETH;&sup3;&ETH;&frac34; &ETH;&middot;&ETH;&deg;&ETH;&iquest;&ETH;&cedil;&Ntilde;&ETH;&micro;&ETH;&sup1; <%=recsCount%> | <%
		istart = (((page-1)10)*10+1)
		iflag = (pageCount10-(page-1)10)
		
		If iflag >= 1 Then
			istop = (((page-1)10)*10+10)
		Else
			istop = (pageCount)
		End If
		
		If page > 10 Then
			%> <a href="?page=<%=istart-1%>" class="page"><<</a> <%
		End If
		
		For i=istart To istop
			If i<>page Then
				%> <a href="?page=<%=i%>" class="page"><%=i%></a> <%
			Else
				%> <span class="page"><%=i%></span> <%
			End If
		Next
		
		If iflag >= 1 Then
			%> <a href="?page=<%=istop+1%>" class="page">>></a> <%
		End If
		%></p><%
	End If
End Sub
Sub ShowArticles_ContentArchive(id,dt,title,subtitle,info,img,note)
	%>
	<p><%=img%>[<%=Left(dt,10)%>] <a href="<%=location%>?ID=<%=ID%>" target="_blank"><%=title%></a><br><i><%=info%></i><br><%=note%></p>
	<%
End Sub
%>