<% ' if you've got a large DB, you might want to increase ' the server timeout here 'set up the database/ recordset Dim strProvider, strSQL, rsLinks strProvider = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("bases/inscripcion.mdb") strSQL = "SELECT * FROM inscriptos ORDER BY id DESC" set rsLinks = Server.CreateObject("ADODB.Recordset") rsLinks.Open strSQL, strProvider, 1, 3, adCmdTable 'setup the excel file Dim objFSO, objExcelFile Set objFSO = CreateObject("Scripting.FileSystemObject") Set objExcelFile = objFSO.CreateTextFile(Server.MapPath("inscripcion.xls ")) 'Do the header information objExcelFile.writeline ("") objExcelFile.writeline ("") 'heading objExcelFile.writeline ("") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline ("") 'loop through the recordsets and fill in the cells Dim intRowCount ' used for calculation at the end intRowCount = 1 if not (rsLinks.eof and rsLinks.bof) then rslinks.movefirst while not rsLinks.eof objExcelFile.writeline ("") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline (" ") objExcelFile.writeline ("") intRowCount = intRowCount +1 rslinks.movenext wend end if 'close up shop objExcelFile.writeline ("

id

Apellido

Nombre

Edad

Telefono

Ciudad

Provincia

Pais

Mail

Mail confirma

Institucion

Profesion

Especialidad

Curso IFFS

Curso de Medicina Reproductiva: Clinica

Curso de Medicina Reproductiva: Cirugia e Imagenes

Curso de Biologia de la Reproduccion

Curso Intracongreso de Psicologia

Curso Intracongreso de Enfermeras e Instrumentadoras

Congreso

" & rsLinks("Id") & "

" & rsLinks("apellido") & "

" & rsLinks("nombre") & "

" & rsLinks("edad") & "

" & rsLinks("telefono") & "

" & rsLinks("ciudad") & "

" & rsLinks("provincia") & "

" & rsLinks("pais") & "

" & rsLinks("mail") & "

" & rsLinks("mail_reconfirma") & "

" & rsLinks("institucion") & "

" & rsLinks("profesion") & "

" & rsLinks("especialidad") & "

" & rsLinks("curso_interactivo_iffs") & "

" & rsLinks("curso_clinica") & "

" & rsLinks("curso_cirugia_imagenes") & "

" & rsLinks("curso_biologia") & "

" & rsLinks("curso_intracongreso_Psicologia") & "

" & rsLinks("curso_intracongreso_enfermeras") & "

" & rsLinks("congreso") & "

") objExcelFile.writeline ("") 'redirect to the download link. response.redirect ("inscripcion.xls") %>