ASPJpeg

[smez]

Salve salve galera, estou quebrando a cabeça aqui no seguinte

tenho uma pagina no meu site que lista todos os usuarios cadastrados com foto

queria fazer o seguinte, exibir a foto do usuario em preto e branco com o componente ASPJpeg mas sem salvar a foto em preto e branco

somente exibir, porque quando clicar na foto vai para o perfil do usuario com a foto colorida

como poderei fazer isso

estou tentando fazer assim, mas não funciona

<%
          strSQL = "SELECT * FROM membro WHERE Aprovado = 's' AND Foto <> '' ORDER BY Rand()"
          set rsMembro = server.CreateObject("adodb.recordset")
          rsMembro.open strSQL,abredb
          %>
            <%while not rsMembro.eof and counter < 18
            set rsContaFoto = abredb.execute("select Count(*) AS Total from album WHERE CdMembro = "&rsMembro("CdMembro")&"")
                
                if rsMembro("Foto") <> "" Then
                    foto2 = "imagensDinamicas/Membro/"&rsMembro("Foto")&""
                else
                    foto2 = "imagens/semFoto.jpg"
                end if
                
                if counter <> "" then
                    classMenbro = "membros"
                    tamanhoFoto = "126"
                    tamanhoImg = "membros_img"
                    NomeFoto = "membros_nome"
                else
                    classMenbro = "membros_destaque"
                    tamanhoFoto = "254"
                    tamanhoImg = "membros_imgDestaque"
                    NomeFoto = "membros_nomeDesatque"
                end if
                
                Set Jpeg = Server.CreateObject("Persits.Jpeg")
                Jpeg.Open Server.MapPath(foto2)
                Jpeg.Sepia 50, 1.4
            %>
                <div id="<%=classMenbro%>">
                    <div id="<%=tamanhoImg%>">
                    <div id="<%=NomeFoto%>">&nbsp;
                    <%If rsMembro("Apelido") <> "" then%>
                        <%
                        if Len(rsMembro("Apelido")) > "15" Then
                            Response.Write mid(rsMembro("Apelido"),1,15)&"..."
                        else
                            Response.Write rsMembro("Apelido")
                        end if
                    Else
                        if Len(rsMembro("Nome")) > "15" Then
                            Response.Write mid(rsMembro("Nome"),1,15)&"..."
                        else
                            Response.Write rsMembro("Nome")
                        end if
                    End If%>
                    </div>
                    <%If rsMembro("DtNascimento") <> "" Then%>
                    <div id="membros_idade"><%=idade(cdate(rsMembro("DtNascimento")))%></div>
                    <%End If%>
                    <img src="<%=foto2%>" width="<%=tamanhoFoto%>" border="0" />
                    <%Jpeg.SendBinary%>
                    </div>
                    
                    
                </div>
            <%
            counter = counter + 1
            rsMembro.movenext
            wend
            %>

mas não funciona, como poderei fazer???

[bareta]

use a propriedade do aspjpeg

Jpeg.Grayscale 2

[smez]

use a propriedade do aspjpeg

Jpeg.Grayscale 2

sim, mas como que eu faço para aplicar na foto sem precisar salvar no servidor?

[bareta]

chame a imagem.asp

exemplo

img.asp

<%
Set Jpeg = Server.CreateObject("Persits.Jpeg")
Jpeg.Open Server.MapPath("clock.jpg")
Jpeg.Width = Jpeg.OriginalWidth * .8
Jpeg.Height = Jpeg.OriginalHeight * .8

If Request("Grayscale") = "1" Then
   Jpeg.Grayscale 1
End If

If Request("Sharpen") = "1" Then
   Jpeg.Sharpen 1, 250
End If

If Request("Horflip") = "1" Then
   Jpeg.FlipH
End If

If Request("Verflip") = "1" Then
   Jpeg.FlipV
End If

Jpeg.Quality = Request("Quality")
Jpeg.Interpolation = Request("Interpolation")

If Request("Crop") = 1 Then
   Jpeg.Crop 30, 30, 470, 320
End If

Jpeg.SendBinary
%>

exibindo

<img src=img.asp />

[chai0304]

sem precisar salvar no servidor?

[bareta]

exato