vbs上传文件出现如下错误，急

用这段代码上传文件后显示如下错误，该怎么解决啊
500 - Internal server error.
There is a problem with the resource you are looking for, and it cannot be displayed.

<%@LANGUAGE="VBSCRIPT"%> 
<%
'On error resume next
Dim mysmartupload
Dim intcount
Dim FILE
intcount=0
Set mysmartupload = Server.CreateObject("aspSmartUpload.SmartUpload")
mysmartupload.allowedfileslist="Jpg,bmp,pdf"
mysmartupload.Maxfilesize=700000
mysmartupload.Upload
'intcount = mysmartupload.save("/car/photos")
For each file In mysmartupload.files
    if not file.ismissing then
    file.saveas("Photos/" & file.fileName)
'if err then
'
'else 
'Response.write("<b>Wrong selection: </b>"&err.description)
'then 
    Response.write("<b><font color=#000066 face=Verdana, Arial, Helvetica, sans-serif size=2>File Name= " & file.fileName & "<BR>")
    Response.write("size= "& file.size & " bytes <BR></b>")
    intcount = intcount + 1
    end if
Next
Response.write("<br>"& mysmartupload.files.count & " files could be upload.<BR>")
Response.write("<b>" & intcount & "   file(s) uploaded<br><br><br></font>")
%>

设置iis开启asp错误提示看具体的，要不也不清楚那里出了问题

无法设置iis，检查aspSmartUpload.SmartUpload是否已经注册到系统，Photos这目录是否存在（当前的asp页面目录下是否存在），存在检查photos是否允许运行网站的用户的写入权限
要么On error resume next开启，代码处理错误

<%@LANGUAGE="VBSCRIPT"%>
<%
On error resume next
Dim mysmartupload
Dim intcount
Dim FILE
intcount=0
Set mysmartupload = Server.CreateObject("aspSmartUpload.SmartUpload")
if err<>"" then
  response.write "创建aspSmartUpload.SmartUpload组件失败"
  response.end
end if
mysmartupload.allowedfileslist="Jpg,bmp,pdf"
mysmartupload.Maxfilesize=700000
mysmartupload.Upload
'intcount = mysmartupload.save("/car/photos")
For each file In mysmartupload.files
    if not file.ismissing then
    file.saveas("Photos/" & file.fileName)
if err<>"" then
response.write "保存文件失败"
Response.end
end if
'if err then
'
'else 
'Response.write("<b>Wrong selection: </b>"&err.description)
'then 
    Response.write("<b><font color=#000066 face=Verdana, Arial, Helvetica, sans-serif size=2>File Name= " & file.fileName & "<BR>")
    Response.write("size= "& file.size & " bytes <BR></b>")
    intcount = intcount + 1
    end if
Next

Response.write("<br>"& mysmartupload.files.count & " files could be upload.<BR>")

Response.write("<b>" & intcount & "   file(s) uploaded<br><br><br></font>")
    %>