Exportar datos a excel desde una asp

[u_goldman]

Puedes adecuar esta funcion que acabo de hacer..

Código:

	Public Function GetReport()
		ds = algun_recordset.GetRows()
		if isArray(ds) then
			Dim strGetReport
                        'Tus campos aqui separados por ","
			strGetReport = "First name,Last Name,Company Name,E-mail,Date Registered" & vbCrLf
			for j = 0 to uBound(ds,2)
                                'Modifica aqui los campos para listar en el CSV
				strGetReport = strGetReport & ds(2,j) & "," & ds(3,j) & "," & ds(4,j) & "," & ds(5,j) & "," & ds(6,j) & vbCrlf
			next
			erase ds
			Response.Buffer = True
			Response.ContentType = "text/plain"
			Response.AddHeader "Content-Disposition", "attachment;filename=attendees.csv"
			Response.Write(strGetReport)
			Response.Flush
			Response.End
		else
			GetReport = Null
		end if
	End Function

Salu2,