Upload con Persits.Upload, no puedo hacer que se vean mas pequeñas ya en el server

[speedy]

Hola a todo el Foro, investigando como podiamos subir imagenes al servidor, encontre este objeto de Persits.Upload, en el server que utilízo esta funcionando muy bien lo de subir las imagenes ahora, no se si alguno de ustedes utilizen este objeto para subir sus imagenes al server, bueno esto lo baje de:

http://support.persits.com/jpeg/pick_jpeg.asp

ahi mismo pueden hacer la prueba de subir imagenes, despues de subir su imagen aparece otra pantalla como esta:



Ok, hasta aquí todo bien, pero le da uno a continue y aparece la siguiente pantalla, y aqui le da uno otro clic al boton para que la imgen que subimos se pueda hacer mas pequeña, no de vista sino tambien de tamaño (peso para minorizar el tiempo de carga)



desde el sitio del fabricante funciona muy bien pero desde mi pagina solo sale ese tache rojo, haciendo referencia a que no se ha encontrado la imagen, el codigo que baje y no he podido encontrar para que funcione bien es el siguiente, gracias por sus comentarios:

Código:

<%
If Request("Create") <> "" Then

	Path = Request("Path")

	If Request("Quality") <> "" Then
		Interpolation =	1 ' use Bilinear interpolation
	Else
		Interpolation =	0 ' use Nearest-neighbor algorithm
	End If
	
	If Request("Sharpen") <> "" Then
		Sharpen = "1"
		
		SharpenValue = Request("SharpenValue")
		If SharpenValue <= 100 Then
			Response.Write "<FONT FACE=""Arial""><B>Sharpening value must be greater than 100</B></FONT>"
			Response.End
		End If
	Else 
		Sharpen = "0"
	End If

	' resize according to user selection

	' Percentage scaling
	If Request("ResizeOption") = 1 Then
		Scale = Request("scale") / 100
		Height = Request("Height") * Scale
		Width = Request("Width") * Scale
	End If

	' user-specified width
	If Request("ResizeOption") = 2 Then
		If IsNumeric(Request("NewWidth")) Then Width = Request("NewWidth") Else Width = 0
		If Width > 0 and Width < 2000 Then
			Height = Request("Height") * Width / Request("Width")
		Else
			Response.Write "<FONT FACE=""Arial""><B>Invalid Width value</B></FONT>"
			Response.End
		End If
	End If

	' user-specified height
	If Request("ResizeOption") = 3 Then
		If IsNumeric(Request("NewHeight")) Then Height = Request("NewHeight") Else Height = 0
		If Height > 0 and Height < 2000 Then
			Width = Request("Width") * Height / Request("Height")
		Else
			Response.Write "<FONT FACE=""Arial""><B>Invalid Height value</B></FONT>"
			Response.End
		End If
	End If

	Rotate = Request("Rotate")

	' Display image
%>
<IMG SRC="send_binary.asp?Path=<% = Server.URLEncode(Path) %>&Width=<% = Width%>&Height=<% = Height %>&Interpolation=<% = Interpolation %>&sharpen=<% = Sharpen %>&sharpenvalue=<% = SharpenValue%>&Rotate=<% = Rotate %>">
<%
End If
%>

O si existe alguna otra forma para hacer esto, soy todo ojos muchas gracias y SALUDOS.

[AlZuwaga]

Me parece que colocste el código de upload_jpeg.asp (primer imagen) en vez de thumbnail.asp (segunda imagen)

[AlZuwaga]

Ummm.. igual, aparentemente el problema está en la página send_binary.asp. Está intentando mostrar la imagen Hopscotch1.jpg (que subí yo) así:

Código:

http://ahoraen.com.mx/jpeg/send_binary.asp?Path=c:\domains\ahoraen.com.mx\wwwroot\uploaddir\jpeg\Hopscotch1.jpg&Width=112.5&Height=137.5&Interpolation=1&sharpen=0&sharpenvalue=&Rotate=0

y debe ser que el par´ñametro PATH no es correcto. Pero la imagen http://ahoraen.com.mx/uploaddir/jpeg/Hopscotch1.jpg si existe

[speedy]

Hola Al Zuwaga gracias por constestar y tienes toda la razon subi el codigo equivocado, en la parte de arriba ya lo corregi. Si las imgenes si se suben en el server, la cosa es que al momento de quere hacerlas chicas nomas no desde mi server y desde la pagina del fabricante a la perfeccion. Comentavas algo de que

aparentemente el problema está en la página send_binary.asp

Este es el codigo de send_binary.asp pero hay no veo nada mal, aun asi lo pongo.

Código:

	Response.Expires = 0
	
	' create instance of AspJpeg
	Set jpg = Server.CreateObject("Persits.Jpeg")
	
	' Open source file
	jpg.Open( Request("path") )

	' Set resizing algorithm
	jpg.Interpolation = Request("Interpolation")

	' Set new height and width
	jpg.Width = Request("Width")
	jpg.Height = Request("Height")
	
	' Sharpen resultant image
	If Request("Sharpen") <> "0" Then 
		jpg.Sharpen 1, Request("SharpenValue")
	End If

	' Rotate if necessary. Only available in version 1.2
	If Request("Rotate") = 1 Then jpg.RotateL
	If Request("Rotate") = 2 Then jpg.RotateR

	' Perform resizing and 
	' send resultant image to client browser
	jpg.SendBinary

Y con respecto al boton que no esta haciendo bien su chamba es el siguiente del archivo thumbnail.asp:

Código:

<IMG SRC="send_binary.asp?Path=<% = Server.URLEncode(Path) %>&Width=<% = Width%>&Height=<% = Height %>&Interpolation=<% = Interpolation %>&sharpen=<% = Sharpen %>&sharpenvalue=<% = SharpenValue%>&Rotate=<% = Rotate %>">

Que se puede hacer...???

[AlZuwaga]

Pues ni idea, tendría que probarlo pero no tengo el Persits.Upload como para hacerlo

[speedy]

No estoy casado con la opacion de Persits.Jpeg alguna otra opcion para hacer las imagenes mas pequeñas en el servidor

[Rafael Valle]

Estoy probando el código de ejemplo, e incluso e instaldo el Persist.Upload.. pero me da error desde la segunda página. Desde que cojo la imagen y la envío. ¿qué puede ser?
Lo único que he modificado es la dirección de carpetas... pero nada.

[sjam7]

no sera que no tienes instalado el persist.jpeg que es el que modifica las imagenes? segun yo el upload nomas las sube y el jpeg las modifica

[speedy]

no sera que no tienes instalado el persist

Si sjam7 creo que no esta instalado por que para subir las imagenes si funciona el codigo de persist

[sjam7]

es que son 2 componentes diferentes, que se pueden integrar pero debes tener los 2 para hacerlo