Por favor introduzca su email, para darse de baja del sistema de envios de Boletines y Newsletters
© rrhhMagazine. El portal de los profesionales de Recursos Humanos y del Management. rrhhmagazine@rrhhmagazine.com
- Acceso a Boletines - <% 'automatizacion 25/05/2004 Dim con_art, sql_art, rs_art sql_art="select * from boletines ORDER by fecha DESC" Set con_art = Server.CreateObject ("ADODB.Connection") Set rs_art = Server.CreateObject ("ADODB.RecordSet") con_art.Open Application("sqlserver") rs_art.Open sql_art, con_art, 1, 1 do while not rs_art.eof response.write(""&rs_art("fecha")&"") rs_art.movenext loop rs_art.close set rs_art=nothing con_art.close set con_art=nothing '%> -------------------
