Bonjour

ce code marche, il affiche un tableau quand on lance la fonction
Mais ya pas de bordure. Sauriez vous comment en faire? merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
<SCRIPT language="VBscript">
Function afficher(mas2)
dim paul :Set paul = Document.GetElementById(mas2)
 Set Table = Document.CreateElement("table")
 
    'Génère les lignes de la table
    For i = 1 To 50
        Set TR = Table.InsertRow
        Set TD = TR.insertCell
        TD.innerText = CStr(i)
 
    Next 
 
    paul.appendChild Table  
end function 
</SCRIPT>
 
<BODY>
 
<div ID=content2>
 </div>
 
<FORM NAME="form2">
 
<INPUT TYPE="button" NAME="bouton" VALUE="Afficher" onClick="afficher('content2')"><BR>
</FORM>