<% Dim conexion_map Dim datos_map dim strTextArticle dim Cdestino2 Set conexion_map=Server.CreateObject("ADODB.Connection") Set datos_map=Server.CreateObject("ADODB.RecordSet") conexion_map.open sqlcon %>