Subir imagen?

[Melissa]

No sé si esto puede considerarse subir imagen o no... :cantar:

Bueno, éste es mi problema:
Tengo un formulario, en el que quiero permitir al usuario que añada una imagen, lo hago a través de un enlace que me abre una nueva página (pero no importa si tengo que hacerlo de otra forma) la cuestión es que no sé por donde cogerlo :( , ¿podríais echarme una mano?

Ya sé como se pone el botón para que explore el disco duro, pero me gustaría limitarlo a los archivos *.jpg y *.gif

GRACIAS de antemano

[urjose]

Entra a www.aspfacil.com y bajate el xelupload.

Saludos

<center>
<a href=http://comunidadguru.com><img border=0 src=http://comunidadguru.com/imagenes/logos/logo.gif></a>
</center>

[lives]

otro sitio, en este momento me está problemas de proxy, no sé si es sólo a mi o si es general, guardalo por si acaso.


<a href='ir.asp?http://www.asptutor.com/asp/vart.asp?id=67' target='_blank'>http://www.asptutor.com/asp/vart.asp?id=...</a>

saludos

atte

alfredo

[Oneyda]

Yo no pude adaptar stardeveloper. Pienso que es más sencillo xelupload

[Melissa]

Gracias colegas, lo intentaré.

[Melissa]

MUCHÍIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIISIMA S GRACIAS A TODOS, ahora solo falta adaptarlo... pero de eso me encargo yo!!!

GRACIASSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS

P.D. Lives, es exactamente lo que estaba buscando. GRACIAS ;)

[Melissa]

:) Otra cosilla, ¿hay algún modo de permitir que solo me deje cargar imágenes?, no quiero que me suban programas ni documentos ni nada.

Muuchas gracias!

[FredGar]

Objfich es un on objeto de tipo xelUpload ok?
Pues bien para saber si el fichero es una imagen solo debes comprobar que en la objFich.TipoContenidocadena esté contenido la cadena &quot;IMAGE&quot;.Esta es la forma que yo uso:
if (instr(1,ucase( objFich.TipoContenido), &quot;IMAGE&quot;,0)&lt;&gt;0) then
Espero te sirva. Un saludo

FredGar

pD:desconozco si hay otra forma, si es así adelante compañeros mostrarmela.

[Melissa]

Muchas gracias FredGar ;) , lo voy a probar.

Pero ya que estamos..., ¿sabrían decirme porque en unos pcs me funciona y en otros me da error la siguiente intrucción??

Código:

 Set file = fso.CreateTextFile(path)

Thank you!!

[FredGar]

Has comprobado si tienes permiso de escritura en el directorio?.

Saludos FredGar :)

[Melissa]

Anda! pero que tonta estoy, no tengo, porque es una intranet y no todo el mundo tiene permiso de escritura!

GRACIAS!