سؤال على رفع الملفات

السلام عليكم جميعا

انا عندى مشكلة ولم أعرف كيف أتعقب المشكلة لعمل حل مناسب

http://www.gazaco.com/ToFileSystem.asp

على هذا الرابط تظهر مشكلة

HTTP 500 - Internal server error

Internet Explorer

ولم اعرف كيف احل المشكلة و ماهى أساس المشكلة رغم اننى رفع الملف بالصفحة المذكورة تعمل جيدا على جهازى العادى ولكن عندما أعمل على الإنترنت تظهر المشكلة التى ذكرتها

ولى سؤال اخر كيف استطيع إستخدام او شرح عن كود

 
<%
session.codepage=1256
Server.ScriptTimeout=3600

Set theForm = Server.CreateObject("ABCUpload4.XForm")
theForm.Overwrite = false



theForm.MaxUploadSize = 8000000
theForm.ID = Request.QueryString("fID")



set fs=server.createobject("scripting.filesystemobject")

Set theField = theForm("file")(1)



If (fs.FileExists(server.mappath("imagefolfer/"&theField.FileName)))=true Then
	  response.write("<p align=center>The file is already existing...</p>")
Else


If theField.FileExists Then theField.Save "../public/pic_hams/" & theField.FileName
session("bpath")=theField.FileName

End If

%>

هذا الكود صحيح ويعمل على السيرفر الخاص بنا

عند الضغط على زر التحميل

واسم الفنكش الخاصة بتحخميل موجود بالأعلى

ABCUpload4

هذا الكود الأخير طريقة ثانية ولكن غير واضح كيف إستخدمووو و يعطينى نفس المشكلة التى ذكرتها

هل يوجد حل ؟؟ اى إستفسار أكثر انا منتظر بكل صبر لحل المشكلة

وشكرا