display values with headers from database table using VBscript

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 = "

" & rs2.GetString(2, , "	", "
") & "

"