Tomad Para importar listas de correo

[Andr3s]

Este codigo nos permite generar una página con los campos (contacto y email) de una tabla separados por ";" y que podremos guardar en formato .txt para luego importarla a nuestro programa de outlook

<% ' conectamos a la base de datos
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open ("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("nombredata.mdb"))

sql = "SELECT * FROM nombretabla ORDER BY Id DESC"
set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql, conn

' funcion para sustituir caracteres (para evitar problemas en outlook
' sobre todo con las Ñ
Function FormatStr(String)
on Error resume next
String = Replace(String, CHR(13), "")
String = Replace(String, CHR(10) & CHR(10), "</P><P>")
String = Replace(String, CHR(10), "<BR>")
String = Replace(String, "Á", "A")
String = Replace(String, "É", "E")
String = Replace(String, "Í", "I")
String = Replace(String, "Ó", "O")
String = Replace(String, "Ú", "U")
String = Replace(String, "À", "A")
String = Replace(String, "È", "E")
String = Replace(String, "Ì", "I")
String = Replace(String, "Ò", "O")
String = Replace(String, "Ù", "U")
String = Replace(String, "à", "a")
String = Replace(String, "è", "e")
String = Replace(String, "ì", "i")
String = Replace(String, "ò", "o")
String = Replace(String, "ú", "u")
String = Replace(String, "á", "a")
String = Replace(String, "é", "e")
String = Replace(String, "í", "i")
String = Replace(String, "ó", "o")
String = Replace(String, "ú", "u")
String = Replace(String, "´", "")
String = Replace(String, "Ñ", "N")
String = Replace(String, " ", "")
FormatStr = String
End Function

' comienza el bucle
while (not RS.Eof)

response.write formatStr(RS("contacto"))
response.write ";"
response.write formatStr(RS("email"))&"<br& gt;"

RS.MoveNext
wend
' cerramos y punto
rs.Close
conn.close
%>