Convertir dato binario BLOB a Texto en ASP

[nichar]

Hola gurús, a ver que os parece esto:

A través de ASP me conecto a una BD en MySQL para obtener un campo binario tipo BLOB que contiene texto HTML(no un aimagen eh?)

Cuando trabajo en PHP no tengo problemas para convertir esos datos binarios, pero en ASP lo único que consigo es pintarlo a través de Response.BinaryWrite

En resumen, lo que quiero es guardar esos datos en otra variable que yo pueda manejar a mi antojo si que me de mensajes de "incompatibilidad de tipos" y cosas así

Gracias por vuestra ayuda

[Myakire]

Para convertirlos a qué? qué es lo que quieres decir con "manejarlos a mi antojo"?

ASP tiene un solo tipo de datos en sus variables, todas son variant, en ellas puedes meter hasta objetos, ¿qué quieres hacer con ese texto?

[nichar]

Gracias Myakire,

Como decía al principio, tengo un campo BLOB contiene noticias en HTML, por ejemplo un fragmento de lo que contiene sería:

<div>
<p>Jos&eacute; Ortega y Gasset (Madrid, 9 de mayo de 1883 - Madrid, 18 de octubre de 1955)</p><div> bla bla bla....

Bien, quiero pasarlo a otra BD MSSQL que contiene un campo tipo "NTEXT".

Lo que saco del BLOB se ve así de mal "'?????????????4??????...' y sólo consigo pintarlo haciendo un Response.binaryWrite, pero no guardarlo como texto HTML.

LA PREGUNTA ES: ¿Cómo puedo cambiar el formato de esos datos binarios a un formato de texto bien codificado? o ASCII por ejemplo?

No encuentro nada que pe permita hacer tal conversion de datos en ASP!!

[Myakire]

aaahhh, ok, ya caigo

Bueno, el asunto no es tanto con ASP sino con ADO, debes leer el campo con el método GetChunk, creo en el foro habrá ejemplos de uso, pero si no consigues leerlo, avisa para hacerte un ejemplo rápido.

Saludos

[nichar]

Gracias Maike,

Al final lo solucioné hace unos dias de la siguiente manera:

Código PHP:

  ADOCadenaSql.Open "SELECT articuloid, descripcion, fecha FROM articulos WHERE ...", ConexionMySQL // donde el campo descripcione es un tipo BLOB de MySQL

Dim mystream
Dim strDescripcion 

Set mystream = CreateObject("ADODB.Stream")
mystream.Type = adTypeBinary
mystream.Open
mystream.Write ADOEventos.fields("descripcion").value
mystream.Position = 0
mystream.Type = adTypeText
mystream.CharSet = "ascii"
strDescripcion = mystream.ReadText
mystream.Close 
   

Y YA ESTÁ!! EN "strDescripcion" TENGO GUARDADO EL TEXTO HTML EN BLOB PARA METERLO EN LA BD ACCESS.