Este script muestra la forma de convertir una consulta a base de datos a un archivo .csv ( Comma Separated Value) archivos entrantes de valores separados por comas utilizados por la libreta de direcciones de Microsoft Outlook
Debes aplicar la conexion y consulta a tu base de datos, y obtener los datos que quieras exportar al archivo .csv
Para la ejecucion de este script la carpeta donde se este ejecutando debe tener permisos de escritura
CODIGO
<% 'Codigo ofrecido por Tutores.org %>
<%
Dim RS, SQL, Conn
SQL ="Tu conexion a la base de datos"
Set RS = Conn.Execute(SQL)
Dim F, Head
ForEach F In RS.Fields
Head = Head &", "& F.Name
Next
Head = Mid(Head,3)& vbCrLf
Response.ContentType="text/plain"
Response.Write Head
Response.Write RS.GetString(,,", ",vbCrLf,"")
%>
ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Convertir un recordset a archivo .csv" href="http://www.tutores.org/codigo/621/" target="_blank">Convertir un recordset a archivo .csv</a>
<!-- Final enlace Tutores.org -->
