saeid taheri
پنج شنبه 24 خرداد 1386, 11:35 صبح
شما از دستور innerHTML هم می تونید استفاده کنید
Dim matn = "<TABLE id=xmk>" + "<TBODY>"
Do While dbReader.Read()
matn += "<thead dir=ltr>" + _
"<TH>" + "<input type=checkbox onmouseup=sqlT(this) id=" + dbReader("nam") + ">" + dbReader("user") + "</TH>" + _
"<TH>" + "<a target='_blank' href=" + dbReader("nam") + " title='" + dbReader("noe") + "' >" + dbReader("nam") + "</a>" + "</TH>" + _
"<TH>" + dbReader("mail") + "</TH>" + _
"</thead>"
Loop
matn += "</TBODY>" + "</TABLE>"
Asli.InnerHtml = matn