help!!!! please

[monkyta]

Lo que pasa es que tienes que usar por el lado de ASP el appendchunck y por el lado del server lo que estas usando....yo se que hice todo eso alguna vez pero solo tengo a mano el extraer foto ....y para eso hice lo siguiente

1.- Un procedimiento almacenado que me traia el tamaño de la foto... este

create procedure spa_size_foto (
@cd_empresa int,
@nr_ficha int
)
as
declare @cant integer
select @cant = datalength(foto_trabajador)
from XXXX_FOTOS
where cod_empresa = @cd_empresa
and nro_trabajador = @nr_ficha
if @cant is NULL
select @cant = 0
select @cant CN_BYTES

2.- Despues tenia otro proc para sacar la foto

create procedure spa_exporta_foto (
@cd_empresa int,
@nr_ficha int,
@inicio smallint,
@final int
)
as
declare @punt varbinary(16)
select @punt = textptr(foto_trabajador) from XXX_FOTOS
where cod_empresa = @cd_empresa
and nro_trabajador = @nr_ficha
READTEXT XXX_FOTOS.foto_trabajador @punt @inicio @final using bytes
go


Y en el ASP los llamaba asi.

<% OPTION EXPLICIT
Server.ScriptTimeout = 200
Response.Buffer = true
Response.Expires = 0
Response.ContentType = "image/jpg"
%>
<!--#INCLUDE FILE="include/org_sesion.asp" -->
<%
' EXTRAE FOTOS
dim imagen, cd_empresa, nr_ficha, cn_bytes, mensaje

cd_empresa = request("cd_empresa")
nr_ficha = request("nr_ficha")

connect(" ")

ejecuta("spa_size_foto " & cd_empresa & "," & nr_ficha)
cn_bytes = rs("CN_BYTES")


ejecuta("spa_exporta_foto " & cd_empresa & "," & nr_ficha & "," & 21 & "," & cn_bytes)
imagen = rs("foto_trabajador").GetChunk(cn_bytes)

disconnect()

response.BinaryWrite imagen
response.end
%>
<!--#INCLUDE FILE="include/org_shared.asp" -->

Olvidate del 21;lo que pasa es que las fotos se grabaron con centura y les pone un delta de 21.... eso es....

Lo que si me acuerdo es que para grabar use el appendchunck y otro proc que tenia el writetext

Espero te haya ayudado