Enregisterer une image

Fermé
SAMI - 23 févr. 2010 à 16:23
 SAMI - 23 févr. 2010 à 16:46
Bonjour,

je cherche a sauvegarder une image dans un dossier, la ou j'ai mis des point d'interrogation je dois ajouter quelque chose je crois ? ce code il affiche seulement l'image dans le navigateur après la modification de la taille . mois je cherche a garder l'image dans un dossier . (((( saves ..... )))))))))))

voici le code
<%
Dim Path, File, rapport

Set ctrl = server.createobject("GflAx.GflAx")
Path ="\\SGG-INTRA-DEV\Sharing\imageserver\RemoteGadgets\SGS_PhotoLibrary\Upload\"
File = Request.QueryString("File2Zip")
If File <> "" Then

const AX_JPEG = 3
const AX_Tol6Colors = 16

With ctrl
.LoadBitmap Path & File
rapport = 600/ .Width
.Resize 600, .Height * rapport
.Saveformat = AX_JPEG

response.ContentType = "image/jpeg"
response.BinaryWrite .SendBinary
?????????????????????????????????????? ici je dois fair save je avec le path d'un dossier

End With
End If
Set ctrl = Nothing
%>

Merci pour votre aide
A voir également:

1 réponse

slt

voila le code qui manque
.SaveBitmap Path & File2
0