Re:이 오류점 봐 주세요...

이오류에 대한 답은 잘 모르겠는데요.. 제경험에 비춰보면, 사이트갤럭시는 대소문자를 가리더라구요^^;; 그러니까..변수명이나, 폼객체들의 이름을 동일하게 해주시고 해보세요 대소문자를 확실히 해주시는게 좋을듯하구요 ....성공바랍니다. --------------------- [원본 메세지] --------------------- 지금 뮤직박스 만들고 있는데요. 파일을 서버에 저장을 시키려고 하는데 다음과 같은 에러가 나네요. 좀 봐주세요. 어떤 님이 올리신 자료를 제가 수정을 하고 있는데, 잘 않되네요. 부탁합니다. ------------------------오류내용------------------------ 오류 형식: SiteGalaxyUpload.Form.1 (0x80070005) Failed to open the file /music01/write_ok.asp, line 50 브라우저 형식: Mozilla/4.0 (compatible; MSIE 5.5; Windows NT 5.0) 페이지: POST 1563403 bytes to /music01/write_ok.asp POST Data: error '80020009' 예외 오류가 발생했습니다. /iisHelp/common/500-100.asp, line 181 -----------------------코딩부분----------------------------- <% '파일을 업로드 할 수 있게 도와주는 프로그램을 설정 Set UploadForm = Server.CreateObject("SiteGalaxyUpload.Form") '파일 업로드 서버 Set FSO = CreateObject("Scripting.FileSystemObject") ' 서버내 파일이 저장되는 위치 strDirectory = Server.MapPath ("/") & "/www.lovemusic.pe.kr/download/" tname=UploadForm("tname") file=UploadForm("file") 'upload 파일 없는데 저장을 시키면 에러가 생기기 때문에 if Len(file) > 0 then '저장될 파일의 전체 경로를 변수에 저장해 얻는다. attach_file = UploadForm("file").FilePath filesize=file.size if filesize > (1024*1024*5) then %> <script language="javascript">  </script> <% else ' 파일명을 얻는다. filename = Mid(attach_file, InstrRev(attach_file, "\") + 1) ' 확장자를 제외한 파일명을 얻는다. strName = Mid(filename, 1, Instr(filename, ".") - 1) '확장자를 얻는다. strExt = Mid(filename, Instr(filename, ".") + 1) ' 우선 같은이름의 파일이 존재한다고 가정 bExist = True ' 저장할 파일의 완전한 이름을 만든다. strFilepath = file_dir & strName & "." & strExt countFileName = 0 Do While bExist If (FSO.FileExists(strFilepath)) Then countFileName = countFileName + 1 filename = strName & "_" & countFileName & "." & strExt strFilepath = strDirectory & filename Else bExist = False End If Loop UploadForm("file").SaveAs strFilepath '******databank의 download폴더에 저장하기 끝********** writer=UploadForm("writer") title=UploadForm("title") title=replace(title,"'","''") memo=UploadForm("memo") memo=replace(memo,"'","''") 'writeday=left(now(),11) writeday=year(date)&"-"&month(date)&"-"&day(date) Set Dbcon = Server.CreateObject("ADODB.Connection") Dbcon.Open "c7nema","c7nema","tjdrhd" sql = "insert into " & tname & "(file_name,file_size,title,content,writeday,readnum,writer) values " sql = sql & "('" & filename sql = sql & "','" & filesize sql = sql & "','" & title sql = sql & "','" & memo sql = sql & "','" & writeday sql = sql & "',0" sql = sql & ",'" & writer & "')" Dbcon.execute(sql) rs=close Dbcon=close set rs=nothing set Dbcon=nothing %> <html> <head> </head> <body> &nbsp; 자료실에 정보가 입력됐습니다. 리스트로 돌아가셔서 확인하시기 바랍니다. <a href="list.asp?tname=<%=tname%>">리스트</a> </body> </html> <% end if else response.redirect"write.asp?tname="&tname end if %>