display values with headers from database table using VBscript

Question

Here i am append the data to div....i want to display values with headers also... but now i am getting only values using this below code... pls help me

 

 

 

Set rs2 =CreateObject("ADODB.RecordSet")

 

strQuery_xxxxxxxxxxxx = "Select * from XXXXXXXXXXXXXX" 

 

rs2.Open strQuery_xxxxxxxxxxxx ,objconnection

 

Set e = document.getElementById("eventAPP")

 

e1.innerHTML = "<table><tr><td>" & rs2.GetString(2, , "</td><td>", "</td></tr><tr><td>") & "</td></tr></table>"