asp쇼핑몰을 이전하고 있습니다.

문제는 이전에서는 원활히 사용하던부분들이 오류가 나기시작했는데요.

호스팅서버와 관련이 있는건지 여쭙고 싶네요.

삭제기능입니다. 삭제를 클릭시 페이지 500오류가 나오게 되는데요. 페이지에 문제가 있지는 않다고 저는 판단했습니다. ;

문제의 소스내용입니다.

<!-- #include virtual="/include/connect.asp" -->
<%
Set Rs = Server.CreateObject("ADODB.Recordset")

        sql = "select goods_img, goods_simg, goods_img_c, goods_mimg,goods_saimg from goods"
        sql = sql & " WHERE goods_id = '" & Request("index") & "'"
        
        Rs.Open sql,dbConn

                Set fso = CreateObject("Scripting.FileSystemObject")

                urlDirectory = Server.MapPath("goodspds") + ""         

                if not isnull(rs("goods_img")) then
                        urlfilename = urlDirectory & rs("goods_img")
                        fso.DeleteFile(urlfilename)
                        filen = rs("goods_img")
                        strFile2 = Mid(filen ,1,  Instr(filen , ".")-1)
                        ' 파일 확장자를 제거한 파일 이름을 구함.
                        strExt = Mid(filen ,Instr(filen , ".")+1)
                        '확장자를 구함.
                        if isnull(rs("goods_img_c")) or rs(2) = 1 then
                                urlfilename = urlDirectory &strFile2&"1"&"."&strExt
                                If (fso.FileExists(urlfilename)) Then
                                fso.DeleteFile(urlfilename)
                                end if
                                
                        else
                                for i=1 to rs(2)
                                        urlfilename = urlDirectory &strFile2&i&"."&strExt
                                        If (fso.FileExists(urlfilename)) Then
                                        fso.DeleteFile(urlfilename)
                                        end if
                                next
                        end if
                        
                end if
                if not isnull(rs("goods_mimg")) then
                        urlfilename = urlDirectory & rs("goods_mimg")
                        
                        If (fso.FileExists(urlfilename)) Then
                        fso.DeleteFile(urlfilename)
                        end if
                end if
                
                if not isnull(rs("goods_simg")) then
                        urlfilename = urlDirectory & rs("goods_simg")
                        If (fso.FileExists(urlfilename)) Then
                        fso.DeleteFile(urlfilename)
                        end if
                end if
                
                if not isnull(rs("goods_saimg")) then
                        urlfilename = urlDirectory & rs("goods_saimg")
                        If (fso.FileExists(urlfilename)) Then
                        fso.DeleteFile(urlfilename)
                        end if
                end if

                Set fso=Nothing

        sql = "DELETE from goods"
        sql = sql & " WHERE goods_id = '" & Request("index") & "'"
        DbConn.execute sql


        
        Rs.close
        Set Rs=Nothing        
        DbConn.Close
        Set DbConn=nothing

Response.Redirect "/goods/goods_list.asp"
%>

include의 connect부분은 다른 프로그래밍에서는 올바로 작동되기에 문제가없네요 ;
이 소스자체가 서버에서 어떠한 제한에 걸친건지 원인을 알수가 없어서 이렇게 고수님들의 도움을 요청합니다.

고수님들의 간단한 답변이라도 있으면 감사하게 받겠습니다.