<%
Dim s
If IsAuthorizedBin(ROLE_ADMINISTRATOR) Then
s = createBlocks()
s = replace(s, "<", "<")
s = replace(s, vbCRLF, "
")
CreateTopTable "CreateBlocks", GetTranslation("LANG_CREATEBLOCKS")
Response.Write "" & GetTranslation("LANG_CREATEBLOCKS_RESULT") & "" & vbCRLF
Response.Write "" & s & "
" & vbCRLF
CreateBottomTable ""
Else
CreateTable "Role", "", GetTranslation("LANG_MUST_HAVE_ROLE"), ""
End If
%>