Code de mon site web

<html>
<head>
</head>
<body>

<%
DIM MONTEXTE, I, RESULTAT,MYCOULEUR,MYCOLOR
    MONTEXTE="BONJOUR"

    FOR I=0 TO 6
        RESULTAT= mid(MONTEXTE, 1, I+1)
        //RESPONSE.WRITE(RESULTAT)  &  "<BR>"
    NEXT

    FOR I=0 TO 6 STEP 1
        RESULTAT= mid(MONTEXTE, I+1, 1)
        //RESPONSE.WRITE(RESULTAT)  &  "<BR>"
    NEXT

    FOR I=0 TO 6
        RESULTAT=mid(MONTEXTE, 7-I, 1)
        //RESPONSE.WRITE(RESULTAT)  &  "<BR>"
    NEXT

    MYCOULEUR=REQUEST("P")
    SELECT CASE UCASE(MYCOULEUR)
        CASE "ROUGE"
            MYCOLOR="#FC1010"
        CASE "BLEU"
            MYCOLOR="#33FFE9"
        CASE "VERT"
            MYCOLOR="#68FF33"
    End select
%>

<BR/>
<BR/>
<BR/>
<BR/>
<BR/>
<BR/>
<BR/>
<BR/>
    <a style="color: <%=MYCOLOR%>; text-align: center; font-size: 50px">Ma couleur est le <%=MYCOULEUR%></a>
<BR/>
<BR/>
<BR/>
<BR/>
<BR/>
<BR/>
<BR/>

<link href="../css/styles2.css" rel="stylesheet" type="text/css" />

<table>
<tr>
<td>
<a href="./MonCode.asp?p=BLEU"; style="color: #33FFE9; text-decoration: none;">BLEU</a>
</td>
<td>
<a href="./MonCode.asp?p=ROUGE"; style="color: #FC1010; text-decoration: none;">ROUGE</a>
</td>
<td>
<a href="./MonCode.asp?p=VERT"; style="color: #68FF33; text-decoration: none;" >VERT</a>
</td>
</tr>

</body>
</html>