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.Expires=0
Response.Buffer = TRUE
Response.Clear
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
intFormat=UploadRequest.Item("THEFILE1").Item("Value")
UpLoadTheFileImage1

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
      Title_filename=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")
      fPath="C:\Inetpub\wwwroot\marlinrealestate\amor\Images\"
      bann= fPath & filename1
      path=bann
      Set MyFile = ScriptObject.CreateTextFile(bann)
      For i = 1 to LenB(value)
            MyFile.Write chr(AscB(MidB(value,i,1)))
      Next
      MyFile.Close
      UpLoadTheFileImage1=Title_filename
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)
            Else
                  '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
            BoundaryPos=InstrB(BoundaryPos+LenB(boundary),RequestBin,boundary)
      Loop
      
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))
       Next
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)))
       Next
End Function

Or if there is any third party component(not ASPUPload) which can do image resizing..?
AmitaAsked:
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.

GaryCommented:
You cant do this in ASP and I've never found a free one.
http://www.aspjpeg.com/download.html
ap_sajithCommented:
Well.. I did a good study into the Image resizing and upload components recently... And heres a brief of what i found..

csIAMGEFile  & csASPUpload
http://www.chestysoft.com/imagefile/default.asp - Good Image Tool  (85$ & 135$)
http://www.chestysoft.com/upload/default.asp - Doesn't Support Multiple file uploads - Not recommended.
 
ASPIMAGE
http://www.serverobjects.com/products.htm#aspimage - Good Ratings by people who has used it. (69.95$ & 299.95$ for 5 server licence)
 
AutoImageSize (49$ & 245$) - Good!.
http://www.unitedbinary.com/AutoImageSize.aspx
 
ASP JPEG & ASP UPLOAD - The Best Around......But Pricey
http://www.aspupload.com/aspjpeg.html - Excellent -But pricey @ 450$ for enterprise  & 150$  for single server licences.
http://www.aspupload.com/manual_intro.html -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 @ http://support.persits.com/upload/progress.asp
 
**HIGHLY RECOMMEND THE PERSISTS ASP JPEG & ASP UPLOAD COMPONENTS **
 
SA Image Writer & SA Fileup - Good.....But way too pricey :0)
http://www.softartisans.com/imgwriter.html (179$)
http://fileup.softartisans.com/default.aspx?PageID=131(299$)
 
Plus there are a few free upload components, with http://www.dundas.com/other/dundasupload/index.aspx?section=DundasUpload&body=body.htm being the best of the lot.
 
There is a free thumbnailing solution as well.. http://www.codeproject.com/asp/ThumbTools2.asp
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..
http://www.4guysfromrolla.com/webtech/011201-1.shtml

Cheers!!

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
GaryCommented:
Excellent list ap_sajith! and bookmarked :o)
ap_sajithCommented:
Hi Gary,
Could you look at this question?

http://www.experts-exchange.com/Web/Web_Languages/ASP/Q_20714670.html

Cheers!!
ap_sajithCommented:
Hi Amita,
Any updates?
Cheers!!
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
ASP

From novice to tech pro — start learning today.