resizing of image while uploading ?

I am using some ASP code for uploading Images....I want to resize the images while uploading .... is it possible in ASP ? The code of uploading is as follows....I got it from net...

Server.ScriptTimeout = 500
Response.Buffer = TRUE
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Dim UploadRequest, strTitle, intHeight, intWidth, strAltText, ContentType, intType,intFormat
Dim filename1
set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest  RequestBin

Function UpLoadTheFileImage1
      contentType = UploadRequest.Item("THEFILE1").Item("ContentType")
      filepathname = UploadRequest.Item("THEFILE1").Item("FileName")
      filename1 = Right(filepathname,Len(filepathname)-InstrRev(filepathname,"\"))
      filename1 = "T_" & second(time) * minute(time) & filename1
      value = UploadRequest.Item("THEFILE1").Item("Value")
                Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
      pathEnd = Len(Server.mappath(Request.ServerVariables("PATH_INFO")))-17
      Set filesys = CreateObject("Scripting.FileSystemObject")
      bann= fPath & filename1
      Set MyFile = ScriptObject.CreateTextFile(bann)
      For i = 1 to LenB(value)
            MyFile.Write chr(AscB(MidB(value,i,1)))
End Function

Sub BuildUploadRequest(RequestBin)
      'Get the boundary
      PosBeg = 1
      PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
      boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
      boundaryPos = InstrB(1,RequestBin,boundary)
      'Get all data inside the boundaries
      Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
            'Members variable of objects are put in a dictionary object
            Dim UploadControl
            Set UploadControl = CreateObject("Scripting.Dictionary")
            'Get an object name
            Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
            Pos = InstrB(Pos,RequestBin,getByteString("name="))
            PosBeg = Pos+6
            PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
            Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
            PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
            PosBound = InstrB(PosEnd,RequestBin,boundary)
            'Test if object is of file type
            If  PosFile<>0 AND (PosFile<PosBound) Then
                  'Get Filename, content-type and content of file
                  PosBeg = PosFile + 10
                  PosEnd =  InstrB(PosBeg,RequestBin,getByteString(chr(34)))
                  FileName = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
                  'Add filename to dictionary object
                  UploadControl.Add "FileName", FileName
                  Pos = InstrB(PosEnd,RequestBin,getByteString("Content-Type:"))
                  PosBeg = Pos+14
                  PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
                  'Add content-type to dictionary object
                  ContentType = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
                  UploadControl.Add "ContentType",ContentType
                  'Get content of object
                  PosBeg = PosEnd+4
                  PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
                  Value = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
                  'Get content of object
                  Pos = InstrB(Pos,RequestBin,getByteString(chr(13)))
                  PosBeg = Pos+4
                  PosEnd = InstrB(PosBeg,RequestBin,boundary)-2
                  Value = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
            End If
            'Add content to dictionary object
                      UploadControl.Add "Value" , Value      
            'Add dictionary object to main dictionary
            uploadRequest.Add name, UploadControl      
            'Loop to next object
End Sub
'String to byte string conversion
Function getByteString(StringStr)
       For i = 1 to Len(StringStr)
            char = Mid(StringStr,i,1)
            getByteString = getByteString & chrB(AscB(char))
End Function
'Byte string to string conversion
Function getString(StringBin)
       getString =""
       For intCount = 1 to LenB(StringBin)
            getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
End Function

Or if there is any third party component(not ASPUPload) which can do image resizing..?
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

You cant do this in ASP and I've never found a free one.
Well.. I did a good study into the Image resizing and upload components recently... And heres a brief of what i found..

csIAMGEFile  & csASPUpload - Good Image Tool  (85$ & 135$) - Doesn't Support Multiple file uploads - Not recommended.
ASPIMAGE - Good Ratings by people who has used it. (69.95$ & 299.95$ for 5 server licence)
AutoImageSize (49$ & 245$) - Good!.
ASP JPEG & ASP UPLOAD - The Best Around......But Pricey - Excellent -But pricey @ 450$ for enterprise  & 150$  for single server licences. -Super Fast(1.4 Megs in 70 sec's over  intranet.. the same time taken for TRAX in the intranet. ), Support Multiple file uploads (149$ & 349$ for 5 server licence)
Try the Upload Demo @
SA Image Writer & SA Fileup - Good.....But way too pricey :0) (179$)$)
Plus there are a few free upload components, with being the best of the lot.
There is a free thumbnailing solution as well..
Gary... You might as well check the above link.

Hope this helps..

BTW.. you might want to check out the proportional image resizing code (Doesnt do a physical resize of the images.. just resizes them while displaying) from 4guysfromrolla site. Here's the URL..


Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Excellent list ap_sajith! and bookmarked :o)
Hi Gary,
Could you look at this question?

Hi Amita,
Any updates?
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today

From novice to tech pro — start learning today.