Michael Rachow
|
| Posted: 03/21/2002, 8:48 AM |
|
I got the trick using as image source a script.
But using Perl I do not know what stuff I have to "print"
from that called script.
Using ASP I have
Response.Expires = 0
Response.Buffer = TRUE
Response.Clear
Response.ContentType = "image/jpeg"
pAzuId = GetParam("AZU_ID")
Dim rs : Set rs = cn.Execute("SELECT pic FROM AzuPic WHERE AZU_ID=" &
ToSql(pAzuId, "Number"))
Response.BinaryWrite rs("pic")
Response.End
So what is
Response.Expires = 0
Response.Buffer = TRUE
Response.Clear
Response.ContentType = "image/jpeg"
Response.End
producing?
Thnaks
Michael
|
|
|
 |
Alexey Alexapolsky
|
| Posted: 03/25/2002, 5:09 AM |
|
Main purpose of this code is to set ContentType in http header,
you should use perl specific ways to set http header variables.
response.end just finishes this script.
--
Alex
CodeCharge Developer
"Michael Rachow" <mrachow@BeraCom.de> wrote in message
news:a7d2tm$84s$1@news.codecharge.com...
> I got the trick using as image source a script.
> But using Perl I do not know what stuff I have to "print"
> from that called script.
> Using ASP I have
>
> Response.Expires = 0
> Response.Buffer = TRUE
> Response.Clear
>
> Response.ContentType = "image/jpeg"
>
> pAzuId = GetParam("AZU_ID")
> Dim rs : Set rs = cn.Execute("SELECT pic FROM AzuPic WHERE AZU_ID=" &
> ToSql(pAzuId, "Number"))
>
> Response.BinaryWrite rs("pic")
> Response.End
>
> So what is
> Response.Expires = 0
> Response.Buffer = TRUE
> Response.Clear
>
> Response.ContentType = "image/jpeg"
> Response.End
>
> producing?
>
> Thnaks
> Michael
>
>
>
|
|
|
|
|
