<html>
<body>

<%
Dim i 

for i = 1 to 6
      response.write("<h" & i & ">Esta es la cabecera  " & i & "</h" & i & ">")
next
%>

</body>
</html>