제 생각엔...

ThumbGenerate.asp 부분에 무엇인가가 잘 못 된것 같습니다.
아래 부분을 소스에서 그래로 긁어서 옮겼습니다. 무엇이 잘못인지
확인 바랍니다.

전 페이지에서 이 화일로 넘기는 부분은 대부분 다음과 같습니다.
<img src="/nBuilder/Board/ThumbGenerate.asp?imageFile=<%= Server.URLEncode(CLUB_MAIN_IMAGE & CI.MainImage) %>&Width=200&Height=180&Quality=75&ShellThumbnails=&Stretch=" border="0"/>


<%
    Set fso = Server.CreateObject("Scripting.FileSystemObject")

    Response.ContentType = "image/jpeg"
    ' ---- parameter parsing ----'
    Dim boardId
    Dim imageFile
    Dim FilePath
    Dim Width
    Dim Height
    Dim Quality
    Dim ShellThumbnails
    Dim Stretch
    Dim Create
    
    imageFIle = Request.QueryString("imageFIle")
    boardId = Request.QueryString("boardId")
    width = Request.QueryString("width")
    height = Request.QueryString("height")
    quality = Request.QueryString("quality")
    shellThumbNails = Request.QueryString("shellThumbNails")
    stretch = Request.QueryString("Stretch")
    FilePath = Server.MapPath(imageFile)
    
    If Not fso.FileExists(FilePath) Then
        FilePath = Server.MapPath("/Images/default.gif")
    End If
    
    If Len(width) > 0 Then
        width = Ccur(width)
    Else
        width = 70
    End If
    
    If Len(height) > 0 Then
        height = Ccur(height)
    Else
        height = 70
    End If
    
    If Len(quality) > 0 Then
        quality = Ccur(quality)
    Else
        quality = 75
    End If
    
    If Len(shellThumbNails) > 0 Then
        shellThumbNails = True
    Else
        shellThumbNails = False
    End If
    
    If Len(stretch) > 0 Then
        stretch = True
    Else
        stretch = False
    End If
    
    Dim BinData
    
    If shellThumbNails Then
        ' Create COM Shell Thumbnail object
        Set objThumb = Server.CreateObject("ThumbExtract.FileThumbExtract")
        Call objThumb.SetPath(FilePath)
        Call objThumb.SetThumbnailSize(Width,Height)
        Call objThumb.ExtractThumbnail
        
        BinData = objThumb.ThumbJpgData(Quality)

        'Set Obj = Server.CreateObject("ThumbExtract.FileThumbExtract")
    Else
        Set Obj = Server.CreateObject("CxImageATL.CxImage")
        Call Obj.Load(FilePath, GetFileType(FIlePath))
        Call Obj.IncreaseBpp(24)
        
        If Not stretch THen
            widthOrig = CDbl(Obj.GetWidth())            ' /// 이미지 원래 넓이
            heightOrig = CDbl(Obj.GetHeight())            ' /// 이미지 원래 높이
            widthRatio = Ccur(widthOrig / width)
            heightRatio = Ccur(heightOrig / height)
            
            If widthRatio > heightRatio Then maxRatio = widthRatio Else maxRatio = heightRatio
            
            If maxRatio < 1 Then maxRatio = 1
            
            widthTh = Ccur(widthOrig / maxRatio)
            heightTh = Ccur(heightOrig / maxRatio)
        Else
            widthTh = width
            heightTh = height
        End If
        
        Call Obj.Resample(widthTh, heightTh, 2)
        BinData = Obj.ImageForASP(2, Quality)
    End If
    
    Response.BinaryWrite BinData
    
    Function GetFIleType(sFile)
        dot = InStrRev(sFile, ".")
        
        If dot > 0 Then ext = LCase(Mid(sFile, dot + 1, 3))
        
        If ext = "bmp" Then fileType = 0
        If ext = "gif" Then filetype = 1
        If ext = "jpg" Then filetype = 2
        If ext = "png" Then filetype = 3
        If ext = "ico" Then filetype = 4
        If ext = "tif" Then filetype = 5
        If ext = "tga" Then filetype = 6
        If ext = "pcx" Then filetype = 7
        If ext = "" Then filetype = 2
        
        GetFileType = fileType
    End Function
%>




에러 님이 쓴 글입니다.
--------------------------------------------------------------------
:앨범에서 리스트에서 이미지가 안 보이네요..
:
:이미지를 클릭을 하고 상세 내용으로 들어가서 이미지를 클릭을 하면..
:이미지가 원래 사이즈로 크게 나옵니다.
:
:왜 리스트에서 안 나올까요??
:
:
:다른 에러는 앨범에서 삭제를 하면 다음과 같은 에러가 나네요.
:
:Object required: ''
:/nBuilder/Board/Image/frmImgDel.asp, line 80
:
:
:다른 곳에선 안 나는데. 왜 이부분만 에러가 나나요?
:
:답변 부탁 드립니다.