Error al subir archivos

[pepelucho]

Hola a todos, tengo un problema al querer subir una imagen a una carpeta me sale este error, puede ser que no este el componente o algo?

Código PHP:

  
Active Server Pages error 'ASP 0115' 
Unexpected error 
/db/servicios_upload2.asp A trappable error (C0000005) occurred in an external object. The script cannot continue running.  
   

Código PHP:

  <!--#INCLUDE FILE="clsUpload.asp"-->
<%
Dim objUpload
Dim strFileName
Dim strPath
On Error Resume Next
Dim RandomFractionalNumber
Randomize
RandomNumber = Rnd
'Set objFoto = New clsUpload
'strFileName = RandomNumber & objFoto.Fields("ffoto").FileName
'********************************************************
xid   = Request.QueryString("id")
xtipo = Request.QueryString("tipo")
xnom  = strFileName
SET cn  = Server.CreateObject("ADODB.Connection")
SET rs0= Server.CreateObject("ADODB.Recordset")
SET rs = Server.CreateObject("ADODB.Recordset")
cn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("eapcontrol.mdb")
sql = "UPDATE servicios SET foto='"&xnom&"' WHERE id="&xid
'*** Borrar foto antigua
sql0 = "SELECT " & xfoto &  " AS lafoto FROM servicios WHERE id ="&xid
rs0.open sql0, cn, 2, 2
xold = rs0("lafoto")
xfile = Server.MapPath("servicios/") & "\" & xold
rs0.close
'Create the FileSystemObject
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile xfile, True
Set objFSO = Nothing
'*** Borrar foto antigua
'response.write(sql)
''rs.open sql, cn, 2, 2
cn.execute sql, cn
'rs.close
cn.close
set rs = nothing
set cn = nothing
'********************************************************
'strPath = Server.MapPath("servicios") & "" & strFileName
'objFoto("ffoto").SaveAs strPath
'Set objFoto = Nothing
%>
<script language="Javascript">
document.location='servicios.asp?tipo=<%=xtipo%>';
</script>