By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
429,087 Members | 1,513 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 429,087 IT Pros & Developers. It's quick & easy.

ASP Jpeg

P: n/a
I have the following code:

*************************************

SavePath = Path & "\thumb_" & File.ExtractFileName

' AspJpeg always generates thumbnails in JPEG format.
' If the original file was not a JPEG, append .JPG ext.
If UCase(Right(SavePath, 3)) <"JPG" Then
SavePath = SavePath & ".jpg"
End If

jpeg.Save SavePath

*************************************

As the comments indicate, the thumbnails are created as .jpg files and
must be saved accordingly. Unfortunately, if the user uploads a .gif
file, the code above (taken directly from Persists web site) does not
remove the .gif extension and add the .jpg extension, it appends the
..jpg on the end of the file name, giving something like this.

thumb_porsche_911.gif.jpg

What would the code be to strip the .gif so that this line:

SavePath = SavePath & ".jpg"

creates the desired file name?

Thanks.

Brett

Jan 8 '07 #1
Share this Question
Share on Google+
1 Reply


P: n/a
Brett_A wrote on 08 jan 2007 in microsoft.public.inetserver.asp.general:
I have the following code:

*************************************

SavePath = Path & "\thumb_" & File.ExtractFileName

' AspJpeg always generates thumbnails in JPEG format.
' If the original file was not a JPEG, append .JPG ext.
If UCase(Right(SavePath, 3)) <"JPG" Then
SavePath = SavePath & ".jpg"
End If

jpeg.Save SavePath

*************************************

As the comments indicate, the thumbnails are created as .jpg files and
must be saved accordingly. Unfortunately, if the user uploads a .gif
file, the code above (taken directly from Persists web site) does not
remove the .gif extension and add the .jpg extension, it appends the
.jpg on the end of the file name, giving something like this.

thumb_porsche_911.gif.jpg

What would the code be to strip the .gif so that this line:

SavePath = SavePath & ".jpg"

creates the desired file name?
temp = lcase(right(SavePath,4))
if temp = ".gif" or temp = ".jpg" then
SavePath = left(SavePath,len(SavePath)-4)
end if
SavePath = SavePath & ".jpg"
--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)
Jan 8 '07 #2

This discussion thread is closed

Replies have been disabled for this discussion.