<% ' 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 Hands en Laparo

Curso Estimulacion en ovulacion

Curso Endometriosis

Curso IFFS

Curso Psicologia

Simposio

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_pre_congreso_hands_en_laparo") & "

" & rsLinks("curso_estimulacion_de_ovulacion") & "

" & rsLinks("curso_pre_congreso_de_endometriosis") & "

" & rsLinks("curso_pre_congreso_IFFS") & "

" & rsLinks("curso_pre_congreso_Psicologia") & "

" & rsLinks("simposios_de_la_industria") & "

" & rsLinks("congreso") & "

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