No Response from the server!!!!

[Kishore]

Hi,
I am trying to convert a XML file (MS Project readble format)
into MPP file. It is not running.... But conversion from MPP to XML works
perfectly...
Plz help...

bye,
Kishore
code is as follows:
<%
Dim a
Set a= Server.CreateObject("MSProject.Application")
Dim objFSO
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(Server.MapPath("uploaded\1.mpp")) Then
objFSO.DeleteFile Server.MapPath("uploaded\1.mpp")
End IF
a.FileOpen Server.MapPath ("uploaded" & "\" &
fileName),,,,,,,,,"MSProject.XML"
a.FileSaveAs Server.MapPath ("uploaded" & "\" & "1.mpp")
a.FileCloseAll
Response.write "File has been successfully converted..."
%>