| Added: May/07/2005 at 9:16am | IP Logged
|
|
|
I am having an issue with the Thumbnailing process. My host does not support ASPImage so I have to use something called asp thumbnailer which is similar to ASPImage. I am trying to modify the Dundas upload to automatically reduce the images to create thumbnails. I ripped out the asp image code and replaced with the bottom. The main issue I believe is grabbing the image files. I am not sure how to name the actual image file that is already uploaded by the dundas upload. the code is below:
The peices in red are where the issue is I believe. What you see below is my attempt to identify the exact image and then rename it tthumbnail. My optimal solution would be to take the picture, resize it and rename it exactly what it was named before.
Any ideas
Thanks
<% Else %>
<% Dim thumbObj Set thumbObj = Server.CreateObject("ASPThumbnailer2.Thumbnail") If thumbObj.LoadFromWeb("../pictures/" & Filename) Then thumbObj.ThumbMaxDimension = 140 If thumbObj.CreateThumbnailToWeb("../pictures/Thumbnail.jpg") Then Response.Write("Thumbnail successfully created.") Else Response.Write("There was an error creating the thumbnail.") End If Else Response.Write("<p><hr><b>Unable to load the original image.</b><hr>") End If
Set ConnClassified = Server.CreateObject("ADODB.Connection") ConnClassified.Open ConnectionString Set cmdTemp = Server.CreateObject("ADODB.Command") Set CmdSetImageInfo = Server.CreateObject("ADODB.Recordset") cmdTemp.CommandText = "UPDATE Ads SET Image" & PicNumber & "_Uploaded = 1, Image" & PicNumber & "_FileExtension = '" & FileExtension & "' WHERE (Ad_ID = " & Ad_ID & ")" cmdTemp.CommandType = 1 Set cmdTemp.ActiveConnection = ConnClassified CmdSetImageInfo.Open cmdTemp, , 1, 3 %>
|