<%@ Language=VBScript%> <% Dim ngDate,currentDate gDate = Year(gDate)&"-"&Right("0" & Month(gDate), 2)&"-"&Right("0" & Day(gDate), 2) mySQL = "SELECT * FROM JUKS09_16032009" 'response.write mySQL Call OpenDBSymposiumFB() Set objRS = objConn.Execute(mySQL) ' Save it as an .xsl document Response.ContentType = "application/vnd.ms-excel" 'Response.ContentType = "text/html" ' List all the chosen columns in the table Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" If objRS.eof then response.write "" Call CloseConn Else ' Grab all the records alldata=objRS.getrows Call CloseConn 'response.write "" 'numcols=ubound(alldata,1) numrows=ubound(alldata,2) FOR rowcounter= 0 TO numrows response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf response.write "" & vbcrlf NEXT End If Response.Write "

Number	Title	First Name	Family Name	Designation	Organization	Email	Contact No.
No records found.
"&(rowcounter+1)&"	"&alldata(0,rowcounter)&"	"&alldata(1,rowcounter)&"	"&alldata(2,rowcounter)&"	"&alldata(3,rowcounter)&"	"&alldata(4,rowcounter)&"	"&alldata(5,rowcounter)&"	"&alldata(6,rowcounter)&"

" %>